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

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開始批量，這裏是如何使二維數組：

Dim myarray 

myarray = Sheet1.[a1].CurrentRegion