excel 怎么用宏复制一行数值到粘贴另一表格最后一行下空白行

发布网友发布时间：2022-04-24 04:16

共2个回答

热心网友时间：2023-09-19 08:54

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

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

热心网友时间：2023-09-19 08:54

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