VBA проверяет столбец в ячейке на наличие букв и отображает слово в соответствующей ячейке

Question

 Option Explicit

 Sub PartNumberIdentifier()

Определение переменных здесь

 Dim cell As Range
 Dim celltxt As String

В моем листе Excel есть диапазон firstDigit, который отображает 256 строк в столбце.Я хочу проверить столбец, чтобы увидеть, содержит ли он букву

 For Each cell In Range("firstDigit")
 If cell >= "A" And cell <= "Z" Then
 ActiveSheet.Range("D4:D259") = "Ours"
 Else
 ActiveSheet.Range("D4:D259") = "NO"

. При выполнении код просто записывает Наши в D4: D259 вплоть до конца независимо от того, является ли столбец, соответствующий firstDigit, буквой илинет.

 End If
 Next
 End Sub

Answer 1

Попробуйте ...

Sub PartNumber()

Dim xCell As Range

For Each xCell In Range("firstDigit")
    If xCell Like WorksheetFunction.Rept("[a-zA-Z]", Len(xCell)) Then
        xCell.Offset(0, 2) = "Alpha Only"
    Else
        xCell.Offset(0, 2) = "Contains non Alpha Char"
        xCell.Offset(0, 2).Interior.Color = vbYellow   'To color the cell that has string
    End If
Next xCell

End Sub