excel 怎么用宏复制一行数值到粘贴另一表格最后一行下空白行 EXCEL如何用宏自动复制粘贴到下方空白行?

作者&投稿:雀英 (若有异议请与网页底部的电邮联系)

是一行对吧,使用数组会比较简单,代码如下:

Sub Copy_to()

Dim WK As Workbook
Set WK = Workbooks.Open("D:\1111.XLS") '复制来源的表格路径
arr = WK.Sheets("11").Cells(3, 1).Resize(1, 20) '假设复制  工作表名称是 11 第三行,20个单元格
WK.Close ' 关闭来源表格
Sheets("My").Select '选择要粘贴的工作表
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Resize(1, 20) = arr  '定位最后一行,下一下个空白行,并输出数组。

End Sub


请按照以下流程操作:
1,选择C列
2,ctrl g ,选择定位条件,选择“空值”,点确定
3,直接按 =,向上键,按住ctrl敲回车
4,ok

~