230问答网 > 将工作表1某一区域的数值复制粘贴到另一工作表2某一区域的第一空白行,用VBA语言怎么表示?

将工作表1某一区域的数值复制粘贴到另一工作表2某一区域的第一空白行,用VBA语言怎么表示?

2025-01-04 05:02:20

推荐回答（2个）

回答1：

Sub copytest()
dim i&
For i = 1 To Sheets(2).Rows.Count '循环表2的所有行
If Sheets(2).Range("A" & i) = "" Then ’从上到下判断单元格A1是否为空
’如果为空，则把表1的单元格A1：D10复制到表2的空行和相同范围的单元格内
Sheets(1).Range("A1:D10").Copy Sheets(2).Range("A" & i)
Exit For '结束循环
End If
Next
End Sub

回答2：

workbooks("1.xls").sheets(1).range("a1:a100").copy workbooks("2.xls").sheets(1).range("a1")