[Excel VBA]判斷英文字母是否為大寫

 

在Excel VBA中，利用ASC 指令可以取得ASCII碼，將可應用於判斷字元的屬性。

本文利用asc指令製作一支簡易的VBA程式，用以判斷英文字母的大小寫，功能為若原資料為英文大寫字母，則輸出資料為空一格+原資料。程式碼如下，供各位參考。

Sub 判斷大寫()

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

    If Asc(Cells(i, 1)) >= Asc("A") And Asc(Cells(i, 1)) <= Asc("Z") Then

        Cells(i, 2) = " " & Cells(i, 1)

    Else

    Cells(i, 2) = Cells(i, 1)

    End If

Next

End Sub

 

Sub clear()

Range("B2:B6").Value = ""

End Sub