select列直到find一个值

我想findVisual Basic命令来select非特定数量的列。 例如，我有一行中的值列表，我必须从第一列中选​​择它们，直到我find一个“5”。 我怎样才能做到这一点？

Answer 1

你可以快速findFind，通过testingrng1是否存在post find来启用“未find”结果

在activesheet的第1行中search列A中的variablesstrfind和higlight以查find的值

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 

Answer 2

尝试这个：

 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