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

Question

我说的是用宏 VBA代码 一个按钮 自动操作
求大神赐个代码
可以用的话立马发微信红包

Answer 1

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

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

Answer 2

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