0

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

1 回答 1

0

如果您尝试删除上面所有行的内容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方法。

于 2013-06-23T09:03:49.633 回答