a'''
Sub u()
ichr = Asc("a")
For i = 0 To 26
Cells(i, 1) = Chr(ichr + i)
'---------------------------------------------
'USER ACTION
' Your letter is stored in the variable Letter.
' Do what you want with it here.
' For example: Range("A" & i) = Letter
'---------------------------------------------
Next i
End Sub
v
Tidak ada komentar:
Posting Komentar