各位有没一段只查找某一列内容的代码

Benfyhu

各位有没一段只查找某一列内容的代码：比方D列。并且跳转到内容的对应单元格。

扑腾

有，，，，，，，差不多够字符了。

杨建营

是否类似这样的，请参考。

gwjkkkkk

Option Explicit

Sub TEST1()
    Dim rngFind As Range
   
    Set rngFind = Columns(4).Find("查找的内容", , , xlWhole)
    If Not rngFind Is Nothing Then
        rngFind.Select
    End If
   
    Set rngFind = Nothing
End Sub

追风少年丶斌

答：可以使用以下VBA代码：

Sub FindInColumnD()
    Dim rng As Range
    Dim strSearch As String
    strSearch = InputBox("请输入要查找的内容：")
    Set rng = Range("D:D").Find(strSearch, LookIn:=xlValues)
    If Not rng Is Nothing Then
        rng.Select
    Else
        MsgBox "没有找到指定的内容！"
    End If
End Sub