我只是想知道是否可以从地址中减去一些东西?我的意思是像 data.Address -1?
我这里有一个代码,可以根据关键字返回单元格的地址。我想做的是在找到关键字(及其地址)后,我想从中减去 1,这样我要查找的关键字就不会被删除。
Set ws = Sheets("Target")
lastRow = ws.Range("A" & Rows.Count).End(xlUp).row
wordSearch = "data"
Set aCell = ws.Range("A1:A" & lastRow).Find(What:=wordSearch, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlDown, _
MatchCase:=False, SearchFormat:=False)
Sheets("Target").Range("A1:" & aCell.Address).Select
Application.CutCopyMode = False
Selection.delete Shift:=xlUp