Excel 使用VBA.NumberFormat有没有办法将整个列格式化为邮政编码？

我正在尝试使用VBA将整个列格式化为邮政编码。我知道这可以通过从数字下拉列表中选择特殊-->邮政编码来实现。这是VBA中.NumberFormat函数所支持的吗

我尝试了这个，但没有成功：

Sheets("Sheet1").Columns(2).NumberFormat = "Zip Code"

---

宏记录器在这里非常有用：

Sheets("Sheet1").Columns(2).NumberFormat = "00000"

---

宏记录器在这里非常有用：

Sheets("Sheet1").Columns(2).NumberFormat = "00000"

---

这是宏记录器产生的结果：

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("E4").Select
    Selection.NumberFormat = "00000"
End Sub

---

这是宏记录器产生的结果：

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("E4").Select
    Selection.NumberFormat = "00000"
End Sub

---

哈，以38秒左右的优势击败了你：）@BigBen-没错。你甚至有时间把代码格式化得更好一些：）哈哈：）我仍然认为推动OP使用宏记录器的两个答案是一个很好的“提示提示，你可以弄明白这一点”：）哈，比你快38秒左右：）@BigBen-真的。你甚至有时间将代码的格式设置得更好：）哈哈：）我仍然认为推动OP使用宏记录器的两个答案是一个很好的“提示提示，你可以解决这个问题”：）仅限美国zipcodes？在加拿大，它们是

A1A 1A1

格式…仅限美国邮政编码？在加拿大，它们是

A1A 1A1

格式…仅限美国邮政编码？在加拿大，它们是

a1a1

格式…@braX这是一个很好的观点。虽然我猜OP是来自“波士顿”部分的美国。@braX-我也在考虑它。在德国，它们也有5位数字。有荷兰籍的人能试一试吗？他们在那里有字母。但是OP可能使用的电子表格中混合了一些加拿大地点（我工作过的地方经常发生这种情况）@braX如果他们是A1A 1A1格式，他们不会受到影响-他们将显示为文本。想想看，加拿大邮政编码怎么会有特殊格式？它将只是文本，对吗？仅限美国邮政编码？在加拿大，它们是

a1a1

格式…@braX这是一个很好的观点。虽然我猜OP是来自“波士顿”部分的美国。@braX-我也在考虑它。在德国，它们也有5位数字。有荷兰籍的人能试一试吗？他们在那里有字母。但是OP可能使用的电子表格中混合了一些加拿大地点（我工作过的地方经常发生这种情况）@braX如果他们是A1A 1A1格式，他们不会受到影响-他们将显示为文本。想想看，加拿大邮政编码怎么会有特殊格式？它只会是文本，对吗？