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

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