如何用VBA搜尋跟某個儲存格內相同的值的其他儲存格並且移動過去

@大神幫幫忙

qcsunnyhsieh 2023-03-10 17:34:33 ‧ 646 瀏覽

分享至

不好意思大家
我是VB小白,大部分的資源都是錄製或是從網路獲得,沒有學過正規的VBA
這邊弱若地請教各位大神
假設我想要從一個sheet某個範圍例如B1:B100裡面搜尋跟A1相同的值並且將游標移動到那個搜尋到的儲存格
我應該怎麼寫
感恩各位大神
每個學會的程式碼我都會銘記

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

JamesDoge

iT邦高手 1 級 ‧ 2023-03-11 03:04:52

最佳解答

Sub SearchAndActivate()

    Dim searchRange As Range
    Dim foundCell As Range
    
    '設定搜尋範圍
    Set searchRange = Sheets("Sheet1").Range("B1:B100")
    
    '搜尋與A1相同的值
    Set foundCell = searchRange.Find(Sheets("Sheet1").Range("A1").Value)
    
    '如果找到匹配的儲存格，則將游標移動到那個儲存格
    If Not foundCell Is Nothing Then
        foundCell.Activate
    Else
        MsgBox "未找到匹配的儲存格"
    End If

End Sub