VBA循环用于字母表中的特定字母

Question

我想使用VBA遍历excel中列的内容。在每个单元格中都有一个单词。对于以字母开头的单词＆＃39; P-Z＆＃39;我想要退回＆＃39; 1＆＃39;否则＆＃39; 0＆＃39;。

e.g：

DOG
CAT
PONY
ZEBRA

返回：

0
0
1
1

谢谢

Answer 1

另一种解决方案是使用 EXCEL FORMULA 。

在EXCEL中使用简单IF ELSE条件，可以实现。

检查以下公式：

=IF(AND(CODE(LEFT(UPPER(TRIM(A1)))) >=80, CODE(LEFT(UPPER(TRIM(A1))))<=90),1,0)

Answer 2

考虑：

Public Function Starter(s As String) As Integer
    Starter = 0
    If Left(s, 1) Like "[P-Z]" Then Starter = 1
End Function

例如：

修改

现在我们已经有了功能，我们可以插入 sub 来使用该功能：

Sub MAIN()
    Dim i As Long, N As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To N
        Cells(i, 2).Value = Starter(Cells(i, 1).Value)
    Next i
End Sub

VBE现在看起来像：