錦子老師

如果我想要在工作表1的B1:B100儲存格範圍中搜尋與A1儲存格內容相同的儲存格並且移動到該儲存格，不知要怎麼完成。

步驟1：按ALT+F11鍵開啟女VBA視窗。

步驟2：點取「插入 > 模組」指令。

步驟3：輸入下列程序。

Sub TEST4236()

    Dim searchR As Range    '設定變數

    Dim foundC As Range     '設定變數

    Set searchR = Sheets("工作表1").Range("B1:B100")                  '設定搜尋範圍

    Set foundC = searchR.Find(Sheets("工作表1").Range("A1").Value)    '搜尋與A1儲存格相同的值

    If Not foundC Is Nothing Then      '如果找到符合的儲存格，則移到那個儲存格

        foundC.Activate

    Else                               '如果找不到符合的儲存格，則顯示訊息方塊。

        MsgBox "未找到符合的儲存格"

    End If

End Sub

步驟4：按ALT+F4鍵關閉VBA視窗，回到活頁簿。

步驟5：點取「檢視 > 巨集」圖示。

步驟6：在【巨集】對話方塊，點取「TEST4236」項目。

步驟7：點取「執行」鈕。

結果如下：