VBA複製和查找

我已經在網上獵殺，還沒有設法找到任何東西來涵蓋我需要的東西。VBA複製和查找

希望這會有道理。

我需要複製當前單元格，選擇sheet2，然後找到該表單中的字符串。

我敢肯定這是一段簡單的代碼，我已經找到了可以找到文本的地方，但只有當我將它直接放入代碼中。我只是需要它來使用當前的單元格。

Sub Find() 
Selection.Copy 
Sheets("Sheet2").Select 
Range("A1").Select 
Cells.Find(What:="MYDATA", After:=ActiveCell, LookIn:= _ 
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
    xlNext, MatchCase:=False, SearchFormat:=False).Activate 
End Sub

感謝所有幫助。

謝謝。

來源

2017-05-19 Chris Music

你可以分享你的代碼？我懷疑它只需要稍作修改 –

您只需要'.Find（）'方法，該方法在互聯網上廣泛記錄。 –

如果你說你可以做'Find'，也許你需要知道如何使用'ActiveCell.Value'而不是硬編碼的值。 – YowE3K

修改你的代碼，包括當前單元格的值作爲變量findValue，然後使用該作爲什麼參數在找到功能。

嘗試了這一點：

Sub Find() 
findValue = ActiveCell.Value 
Sheets("Sheet2").Select 
Range("A1").Select 
Cells.Find(What:=findValue, After:=ActiveCell, LookIn:= _ 
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
    xlNext, MatchCase:=False, SearchFormat:=False).Activate 
End Sub

來源

2017-05-19 11:14:39

完美。謝謝。 –

VBA複製和查找

回答

相關問題