VBA学习记录

'简易实现单列查找定位
Private Sub CommandButton1_Click()
    Dim arr1
    cx = TextBox1.Value
    arr1 = Range("C1:C10000")
    For i = 1 To UBound(arr1)
        If arr1(i, 1) = cx Then
            n = i
        End If
    Next
    Range("c" & n).Select
End Sub