格式列与日期到特定格式 - Excel VBA

Question

我正在写一个excel vba宏。

我有一个超过10,000行的大型工作表。 其中一列具有此格式的日期：10/28/13 06:57，单元格具有格式设置的常规编号。

我想格式化它只有四个数字的格式为：mmdd（1028上面的例子）

这里是我迄今为止在子程序：

' This subroutine formats the columns to what is necessary for output 
Sub formatColumns() 
    ' Set the LastRow variable to hold the last row number 
    lastRow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 

    Dim cell As Range 

    For Each cell In Range("B3:B" & lastRow) 
     cell.NumberFormat = "mmdd;@" 
    Next 
End Sub 

Answer 1

你不能用那种mmdd数字格式真正格式化它。至少它不适合我。 （Excel 2010/Win 7 欧洲区域设置）

我建议它增加一个额外的列并复制数据以保留原始格式，最后隐藏该列。同时，您将使用Month()和Day()函数来创建所需的格式。

Sub formatColumns() 
    Dim lastRow As Long 

    ' Set the LastRow variable to hold the last row number 
    lastRow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 

    Dim cell As Range 
    For Each cell In Range("B3:B" & lastRow) 
     'cell.NumberFormat = "mmdd;@" 
     cell.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 
     cell.Offset(0, -1).NumberFormat = "@" 
     cell.Offset(0, -1) = _ 
      IIf(Len(Month(cell)) = 1, "0" & Month(cell), Month(cell)) & _ 
      IIf(Len(Day(cell)) = 1, "0" & Day(cell), Day(cell)) 
    Next 

    Columns("C:C").EntireColumn.Hidden = True 
End Sub 

---

，如果你不希望添加一个额外的列，但你不介意失去原始格式那么你可以使用此代码

Sub formatColumns() 
    Dim lastRow As Long 

    ' Set the LastRow variable to hold the last row number 
    lastRow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 

    Dim cell As Range 
    For Each cell In Range("B3:B" & lastRow) 
     'cell.NumberFormat = "mmdd;@" 
     cell = IIf(Len(Month(cell)) = 1, "0" & Month(cell), Month(cell)) & _ 
     IIf(Len(Day(cell)) = 1, "0" & Day(cell), Day(cell)) 
    Next 

End Sub 

Answer 2

我不要认为你发布的代码有什么问题，所以我不太清楚你正在尝试做什么或者你目前的工作失败，但是你不需要使用For/Next循环来做到这一点，你可以在整个范围内应用NumberFormat属性：

Sub formatColumns() 
    Dim lastRow as Long 
    ' Set the LastRow variable to hold the last row number 
    lastRow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 

    Range("B3:B" & lastRow).NumberFormat = "mmdd" 

End Sub