Excel VBA解读（138）： 自定义函数时使用字节数组实现更快的字符串处理

=MATCH(TRUE,ISERR(FIND(MID(A1,ROW($1:$255),1),LOWER(A1))),0)

Function FirstCap2(Cell As Range)
   For FirstCap2 = 1 To Len(Cell.Value)
        If Mid(Cell.Value, FirstCap2, 1) Like"[A-Z]" Then
            Exit For
        End If
   Next FirstCap2
End Function

Function FirstCap3(Rng As Range)
   Dim theString As String
   theString = Rng.Value2
   For FirstCap3 = 1 To Len(theString)
        If Mid$(theString, FirstCap3, 1) Like"[A-Z]" Then
            Exit For
        End If
   Next FirstCap3
End Function

Function FirstCap4(strInp AsString) As Long
   Dim tmp As String
   Dim i As Long
   Dim pos As Long
   tmp = LCase$(strInp)
   pos = -1
   For i = 1 To Len(tmp)
        If Mid$(tmp, i, 1) <>Mid$(strInp, i, 1) Then
            pos = i
            Exit For
        End If
   Next
   FirstCap4 = pos
End Function

Function FirstCap5(theRange AsRange) As Long
   Dim aByte() As Byte
   Dim j As Long
   FirstCap5 = -1
   aByte = theRange.Value2
   For j = 0 To UBound(aByte, 1) Step 2
        If aByte(j) < 91 Then
            If aByte(j) > 64 Then
                FirstCap5 = (j + 2) / 2
                Exit For
            End If
        End If
   Next j
End Function

Function AFirstCap(theRange AsRange) As Variant
   Dim aByte() As Byte
   Dim j As Long
   Dim L As Long
   Dim vRange As Variant
   Dim jAnsa() As Long
   Dim NumCells As Long
   vRange = theRange.Value2
   NumCells = UBound(vRange, 1)
   ReDim jAnsa(NumCells - 1, 0)
   For L = 0 To NumCells - 1
        jAnsa(L, 0) = -1
        aByte = vRange(L + 1, 1)
        For j = 0 To UBound(aByte, 1) Step 2
            If aByte(j) < 91 Then
                If aByte(j) > 64 Then
                    jAnsa(L, 0) = (j + 2) / 2
                    Exit For
                End If
            End If
        Next j
   Next L
   AFirstCap = jAnsa
End Function