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

Question

我已经在所有网络上搜索了主题行中显示的信息，因此我可以继续这个小项目。我希望能够找到工作表 2 上的最后一行，然后将每个单元格的内容提取回工作表 1 上的预定义位置或预定义变量。

我已经能够找到最后一行

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 打开具有完整路径的文件。