Question

我使用VBA从数据库填充Excel工作表中的行。我在Excel工作表中有超过50个列，我想在其中找到最后一个列地址，以显示整个数据总数的总和。我怎么能这样做呢？

Answer 1

来自http://www.ozgrid.com/VBA/ExcelRanges.htm的代码。你会发现其他有用的潜艇用于在Excel中找到“最后”的东西，还有一些警告。

Sub FindLastColumn()
Dim LastColumn As Integer
If WorksheetFunction.CountA(Cells) > 0 Then
    'Search for any entry, by searching backwards by Columns.'
     LastColumn = Cells.Find(What:="*", After:=[A1], _
                       SearchOrder:=xlByColumns, _
                   SearchDirection:=xlPrevious).Column
               MsgBox LastColumn
End If 
End Sub

在行中查找上次使用的单元格地址

1 个答案: