選擇列直到找到值

Question

我想找到Visual Basic命令來選擇非特定數量的列。例如，我有一行中的值列表，我必須從第一列中選​​擇它們，直到找到「5」。我怎樣才能做到這一點？

Answer 1

試試這個：

Public Function Search(row As Integer) As Integer 
    Dim col As Integer 
    col = 1 

    While ActiveSheet.Cells(row, col) <> "5" 
     col = col + 1 
    Wend 
    Search = col 
End Function 

Answer 2

爲此，您可以快速找到查找，這也使「未找到」的結果通過測試，如果RNG1存在後發現

在activesheet的第1行搜索對於列A中的變量strfind和higlight到找到的值

Sub QuickFind() 
    Dim rng1 As Range 
    Dim strFind As String 
    strFind = "5" 
    Set rng1 = ActiveSheet.Rows(1).Find(strFind, , xlValues, xlWhole) 
    If rng1 Is Nothing Then 
     MsgBox strFind & " not found" 
    Else 
     Range(rng1, rng1.End(xlToLeft)).Activate 
    End If 
End Sub