小编Nis*_*ant的帖子

这是一个我真的很困惑的问题.因为我已经多次寻找这个,但我总能找到与查找最后使用过的或第一个非空单元相关的代码.试过下面的代码.差异代码用"偶数"一词分隔

iRow = Worksheets("Sheet1").Cells(Rows.Count,1).End(XlUp).Row 

甚至

Sub LastCellBeforeBlankInColumn()

Range("A1").End(xldown).Select

End Sub

甚至

找到列中最后使用的单元格:

Sub LastCellInColumn()

Range("A65536").End(xlup).Select

End Sub

甚至

在行中的空白之前找到最后一个单元格:

Sub LastCellBeforeBlankInRow()

Range("A1").End(xlToRight).Select

End Sub

甚至

找到行中最后一个使用过的单元格:

Sub LastCellInRow()

Range("IV1").End(xlToLeft).Select

End Sub

甚至

Worksheets("Sheet1").Range("A1").End(xlDown).Row + 1

甚至

LastRow = Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("SheetName").Range("A" & LastRow).Paste

甚至

Dim FirstBlankCell as Range
Set FirstBlankCell=Range("A" & rows.Count).end(xlup).offset(1,0)
FirstBlankCell.Activate

'Find the last used row in a Column: column A in this example
Dim LastRow As Long
Dim NextRow As Long
With ActiveSheet
    LastRow …