excel VBA 如何将sheet1A3以下数据复制于sheet2的A列的从第一个空格位置?
例如，sheet1从A3往下有4、5、6、7、8，sheet2从A1至A3有2、9、0，运行VBA后，sheet2A列的值为：2、9、0、4、5、6、7、8。而且，运行第...
例如，sheet1从A3往下有4、5、6、7、8，sheet2从A1至A3有2、9、0，运行VBA后，sheet2A列的值为：2、9、0、4、5、6、7、8。 而且，运行第二次，sheet2A列的值为：2、9、0、4、5、6、7、8、4、5、6、7、8。每列数据的数目是随机的。
请问宏该怎么写？ 展开
请问宏该怎么写？ 展开
1个回答
展开全部
Sub 定位复制()
Set 定位 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
'解释：sheet2的A列最后一个单元格向上查，直到最后一个数据，向下移动一位。
Sheets("Sheet1").Range("A4:A8").Copy 定位 '复制sheet1的A4:A8到sheet2定位位置
End Sub
1、先定位
2、在粘贴
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
