[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

範例下載

-----如果文章對您有幫助，打開微信掃一掃，請作者喝杯咖啡。-----