036.查找指定列名的列数

'###############################################################

'函数作用：查找指定列名的列数

'###############################################################

Function FindColumnNumber(strTmp As String, strsheet As String) As Integer

    ' strSheet is the name of the sheet

    ' strTmp is the name of this column

    Dim Tmp As String

    Sheets(strsheet).Select

    strTmp = LCase(strTmp)

    FindColumnNumber = 0

    For j = 1 To 255

        Tmp = Sheets(strsheet).Cells(1, j).Value

        Tmp = LCase(Tmp)

        If Tmp = strTmp Then

            FindColumnNumber = j

            Exit For

        End If

    Next j

    If FindColumnNumber = 0 Then

        MsgBox ("Can't find this column: " & strTmp)

    End

End If

End Function