選擇最后一列的最后一行

Question

我正在嘗試選擇工作表中最后一列的最后一行。

Sub Paste2()
'
' Paste2 Macro
'

'
   Sheets("Macro").Select
   a = Range("B1")
   Sheets("Sheet1").Select
   ActiveSheet.Cells(2, a).End(x1Down).Offset(1, 0).Select
End Sub

變量“ a”鏈接到單獨工作表上的CountA函數，該工作表計算具有非空單元格的行。

當我運行宏時，它會出現運行時錯誤1004應用程序定義的錯誤或對象定義的錯誤。

我該如何工作？

Answer 1

兩個錯誤：

錯誤1：ActiveSheet.Cells（2，1）

錯誤2：xlDown，而不是x1Down！

Answer 2

試試這個：

子pfindLastNonEmptyCell（）

Dim rngRange                As Range
Dim wksWorksheet            As Worksheet

'Set 'Sheet1' worksheet
Set wksWorksheet = Worksheets("Sheet1")


With wksWorksheet
    'Check for last non-empty cell
    Set rngRange = .Cells.Find("*", .Cells(1, 1), xlFormulas, xlWhole, xlByRows, xlPrevious)
End With

If Not rngRange Is Nothing Then
    'if found then activate the worksheet and select last non-empty cell
    wksWorksheet.Activate
    wksWorksheet.Cells(rngRange.Row, rngRange.Column).Select
Else
    'if not found gives message
    MsgBox "No Data in " & wksWorksheet.Name, vbCritical + vbInformation, "Error"
End If

結束子