查找最后一列，然后找到該列中的最后一行

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)

這是工作表的快照：

有人還能幫我將要保存的所有數據放入二維數組中，然后將數據粘貼到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

。

假設批處理數據從A1單元格的Sheet1中獲取，這是制作2D數組的方法：

Dim myarray

myarray = Sheet1.[a1].CurrentRegion