select最后一列的最后一行

我试图select我的工作表中最后一列的最后一行。

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 

variables“a”被链接到一个单独的表单上的CountA函数，该单元格用非空单元格对行进行计数。

当我运行macros时出现运行时错误1004应用程序定义或对象定义的错误。

我该如何做这项工作？

Answer 1

两个错误：

错误1：ActiveSheet.Cells（2，1）

错误2：xlDown，而不是x1Down！

Answer 2

试试这个：

Sub 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 

结束小组