VBA - Excel：在列中发现特定数字

Question

我的 excel 文件中有一个列，其中包含这样的单词和数字：

我的目标是让我的程序分析本专栏的元素。现在，我正在尝试识别邮政编码，就我而言，它是一个四位数字（这里是 1121）。

所以我想从第一个元素循环到最后一个元素，并有一个匹配方法说“如果这个元素是一个数字并且有四个数字，那么......”。我不知道这在 VBA 中是否可行，而且我的研究非常低效，因为谷歌搜索我的关键词用于此查询会导致与我正在做的事情无关的结果。

我猜结构应该是这样的：

For i = 2 To lRowD
Range("D" & i).Activate
myResult = xxxxxxxxxxxxxxxxxx 'SOMETHING IDENTIFYING FOUR FIGURES NUMBERS

If myResult Then 'if Metro Manila in the address
  Range("A20").Value = ActiveCell.Value  'put the Zip Code in another cell
Else

End If
 Next i

Answer 1

这是你想要的吗？

Sub ProcessColumn()
Dim ws As Excel.Worksheet
Dim lRowD As Long
Dim cell As Excel.Range

Set ws = ActiveSheet
With ws
    lRowD = .Range("D" & .Rows.Count).End(xlUp).Row
    For Each cell In .Range("D2:D" & lRowD).Cells
        If Len(cell.Value) = 4 And (Val(cell.Value) = cell.Value) Then
            ws.Range("A20").Value = cell.Value  'put the Zip Code in another cell
        Else
            'do something else?
        End If
    Next cell
End With
End Sub