[英]Selecting Ranges in Excel VBA
我想創建一個VBA子例程,在表中搜索名為“Phonetic Name”的第一個列標題。 然后在右下角找到表中的絕對最后一個單元格,並將變量存儲為最后一個單元格上方一行的單元格坐標。 然后子程序將選擇第一個單元“Phonetic Name”和“LastCell”變量之間的所有單元。
Dim LastCol As Integer
TL = ActiveSheet.Range("A:A").Find("Phonetic Name", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True).Row
Set LastRow = Cells.Find("*", [a1], , , xlByRows, xlPrevious)
With ActiveSheet
LastCol = .Cells(TL, .Columns.Count).End(xlToLeft).Column
End With
Set LastCell = ActiveSheet.Cells(LastRow.Row - 1, LastCol)
'I would like to do something like the following...
ActiveSheet.Range("TL:LastCell").Select
Selection.Copy
如何以VBA友好的方式重寫此邏輯?
Dim LastCol As Integer
Dim TL as Range
Set TL = ActiveSheet.Range("A:A").Find("Phonetic Name", _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not TL Is Nothing Then
Set LastRow = Cells.Find("*", [a1], , , xlByRows, xlPrevious)
With ActiveSheet
LastCol = .Cells(TL.Row, .Columns.Count).End(xlToLeft).Column
End With
Set LastCell = ActiveSheet.Cells(LastRow.Row - 1, LastCol)
ActiveSheet.Range(TL,LastCell).Copy
End If
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.