Question

我只是想知道可以从地址中减去一些东西吗？我的意思是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

Answer 1

如果您尝试删除位于aCell上方的所有行的内容，请尝试替换

Sheets("Target").Range("A1:" & aCell.Address).Select

带

Sheets("Target").Range("A1:" & aCell.offset(-1,0).Address).ClearContents

您无需选择范围，因此可以删除下两行。

如果您实际上是在尝试删除aCell上方的行并将其余行向上移动（而不仅仅是删除），请尝试

Sheets("Target").Range("A1:" & aCell.Offset(-1, 0).Address).Delete shift:=xlUp

而不是.ClearContents方法。

VBA减去地址

1 个答案: