Question

我正在尝试创建一个宏，用于搜索已从另一个单元格输入/选择的文本字符串。当我录制宏时，它会设置＆＃34;什么＆＃34; find函数的一部分作为录制宏时复制的特定文本，而不是Paste Selection，这就是我想要的。

Sub GOTOSECTION() ' ' GOTOSECTION Macro '

'
Range("B7").Select

Selection.Copy
Cells.Find(What:="Section 4A", After:= _
    ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
End Sub

但我想要＆＃34;什么：＆＃34;是从单元格B7复制的值。当我尝试在那里输入粘贴命令时，它会给我一个语法错误，因此我确定它是一个非常基本的东西我不知道（当我遇到它时，我很绿。 vba，我一直无法找到我在网上寻找的例子。感谢您的任何意见！

Answer 1

将What:="Section 4A"替换为What:=ActiveCell.Value

这将获取当前所选单元格的当前值（虽然它可能（虽然我没有100％确定而不检查）如果单元格为空，会导致一些错误，因此请考虑错误检查。）

修改如果您将来继续使用宏录制，则可能需要查看相关参考。我从来没有用过这样的东西，所以我不确定它是否会产生影响，但它可以，所以检查一下。

Excel VBA - 粘贴到查找命令

1 个答案: