查找最后一列，然后查找该列中的最后一行

Question

我需要找到工作表中的最后一列，然后找到该特定列中的最后一行。对于最后一栏，我使用的是：

lastcol = .Cells(1, .Columns.count).End(xlToLeft).Column
last_row = Range((Cells(Rows.count), lastcol).Find("*", after:=r, LookIn:=x1values, lookat:=x1part, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)

Here是工作表的快照：

有些人还可以帮我将所有想要保存的数据放在二维数组中，然后将数据粘贴到Excel工作表上吗？

Answer 1

以下是：

lastcol = .Cells(1, .Columns.Count).End(xlToLeft).Column
lastrow = .Cells(.Rows.Count, lastcol).End(xlUp).Row

.Cells(lastrow + 1, lastcol).Resize(UBound(myarray)) = myarray

让我们假设批次数据来自Sheet1，从单元格A1开始，以下是如何制作2D数组：

Dim myarray

myarray = Sheet1.[a1].CurrentRegion