我想findsheet2上的最后一行，然后能够将每个单元格移动到sheet1上定义的位置

我已经search了所有网站上的主题行中显示的信息，所以我可以继续前进这个小项目。 我希望能够在工作表2上find最后一行，然后将每个单元格的内容提取回工作表1中的预先定义的位置或预先定义的variables。

我已经能够find最后一行

Cells(Application.Rows.Count, 1).End(xlUp).Select 

并用定义的单元格的内容填充文本框

 TextBox1.Value = Sheets("Sheet2").Range("a1").Value 

我希望以上信息足以让某人指引我正确的方向。 我感谢和帮助，任何人都可以提供。

Answer 1

我不确定这是你想要的：

 Sub test() Dim ws1 As Worksheet: Set ws1 = ActiveSheet Dim ws2 As Worksheet: Set ws2 = Workbooks("abc.xlsm").Sheets("Test_ws") For i = 1 To 12 ws1.Cells(3, i) = ws2.Cells(Application.Rows.Count, i).End(xlUp).Value Next i End Sub 

必须打开PS abc.xlsm才能使代码正常工作。 您可以使用Application.Workbooks.Open打开具有完整path的文件。