3 回答

TA貢獻(xiàn)1842條經(jīng)驗(yàn) 獲得超13個(gè)贊
哪種按鈕,無(wú)論是窗體控件還是ActiveX控件都不會(huì)影響使用范圍。
excel不能很好地跟蹤使用范圍是一個(gè)已知的問(wèn)題。通過(guò)VBA對(duì)使用范圍的任何引用都會(huì)將值重置為當(dāng)前使用范圍。因此,請(qǐng)嘗試運(yùn)行以下子過(guò)程:
Sub ResetUsedRng()
Application.ActiveSheet.UsedRange
End Sub
否則您可能會(huì)遇到一些格式化問(wèn)題。嘗試清除/刪除最后一行之后的所有單元格。
關(guān)于以上內(nèi)容,另請(qǐng)參閱:
Excel開(kāi)發(fā)人員提示
查找最后使用的單元格的另一種方法:
Dim rLastCell As Range
Set rLastCell = ActiveSheet.Cells.Find(What:="*", After:=.Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
更改搜索方向以找到第一個(gè)使用的單元格。

TA貢獻(xiàn)1854條經(jīng)驗(yàn) 獲得超8個(gè)贊
Readify做出了非常完整的答案。但是,我想添加該End語(yǔ)句,您可以使用:
在列中的空白之前找到最后使用的單元格:
Sub LastCellBeforeBlankInColumn()
Range("A1").End(xldown).Select
End Sub
在“列”中找到最后使用的單元格:
Sub LastCellInColumn()
Range("A" & Rows.Count).End(xlup).Select
End Sub
在行中的空白之前找到最后一個(gè)單元格:
Sub LastCellBeforeBlankInRow()
Range("A1").End(xlToRight).Select
End Sub
在一行中找到最后使用的單元格:
Sub LastCellInRow()
Range("IV1").End(xlToLeft).Select
End Sub
請(qǐng)參閱此處以獲取更多信息(以及為什么xlCellTypeLastCell不是很可靠的解釋)。
添加回答
舉報(bào)