excel - 如何将字母字符从 AA 增加到 ZZ？

Question

我正在尝试将字母字符从 AA 增加到 ZZ。

我创建的那个能够将字母字符从 A 增加到 Z。

我只需要从AA到ZZ。我会将它们用作网页中的搜索词来填充结果。

Sub GetAlphabets()
    Dim myvar$, I&
        
    For I = 65 To 90
        myvar = Chr(I)
        Debug.Print myvar
    Next I
End Sub

标签： excelvba

Answer 1

使用第二个循环

Sub GetAlphabets()
    Dim myvar As String
    Dim I As Long, J As Long
    
    For I = 65 To 90
        For J = 65 To 90
            myvar = Chr(I) & Chr(J)
            Debug.Print myvar
        Next J
    Next I
End Sub