这是一个我很困惑的查询。因为我已经找了这么多次,但是我总是找到与查找最后使用或第一个非空单元有关的代码。 尝试在下面的代码。从列1开始选择第一个空单元格。(不使用偏移量)
Sub LastCellInColumn()
Range("A65536").End(xlup).Select
End Sub
即使
:DIFF代码已经由单词 “甚至”iRow = Worksheets("Sheet1").Cells(Rows.Count,1).End(XlUp).Row
即使
Sub LastCellBeforeBlankInColumn()
Range("A1").End(xldown).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 = .Cells(.Rows.Count, "F").End(xlUp).Row
End With
NextRow = LastRow + 1
你见过吗? http://stackoverflow.com/questions/11169445/error-finding-last-used-cell-in-vba – 2013-02-19 12:53:31
是不是同样的事情。我想选择或激活第一个空单元格。 例如:如果有值直到单元格F5,那么我想激活单元格F6并且不使用偏移量,而这样做 – Nishant 2013-02-19 13:00:07
如果您知道最后一行,那么只需使用Range(“F”&LastRow)。激活'虽然我不是太赞成了'.Activate' – 2013-02-19 13:05:58