WPS表格里复制一行，再选择插入到下面的空白处，或者粘贴到下面的空白处，就会弹出一个要选择文件的框。
WPS表格里复制一行，再选择插入复制单元格功能复制到同表格下面的空白处，或者粘贴功能到同表格下面的空白处，就会弹出一个要选择文件的框。请问遇到这个问题要怎么操作？
1 +1
2
+1
请
登录后发表评论哦
全部评论
2
打卡
回复
Sub CopyAndPasteRow()
' 定义变量
Dim rng As Range
Dim lastRow As Long
' 选择要复制的行
Set rng = Application.InputBox("请选择要复制的行", Type:=8)
' 复制选中的行
rng.Copy
' 获取表格的最后一行
lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
' 将光标移动到最后一行并粘贴复制的行
ActiveSheet.Rows(lastRow + 1).Select
ActiveSheet.Paste
End Sub
回复