Sheets("Sheet1").Cells(aCell.Row,1)
其中aCell
是包含您搜索的单词的范围
或者,您也可以使用此
Sheets("Sheet1").Range("A" & aCell.Row)
aCell.Offset(0, -aCell.Column + 1).Value = "This is my message."
为避免需要知道工作表名称,请使用
aCell.EntireRow.Cells(1,1)