Excel VBA 代码：将日期转换为年月格式

以下是 VBA 代码，可以将日期列中的日期转换为年月格式，并在新列中显示。

1. 打开 Excel 文件，并按下 ALT + F11 键，打开 Visual Basic Editor。
2. 在左侧的 Project 窗格中，双击要编写代码的工作表。
3. 在代码模块中，将以下代码复制并粘贴。

Sub ConvertDateToYearMonth()
    Dim LastRow As Long
    Dim i As Long
    
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To LastRow
        Cells(i, 2).Value = Format(Cells(i, 1).Value, "yyyy-mm")
    Next i
End Sub

4. 将代码中的 'A' 和 'B' 改为你的实际日期列和要将结果显示的新列。
5. 按下 F5 键来运行该代码。现在，你应该可以在新列中看到已转换为年月格式的日期。

请注意，此代码假定日期位于第一列（A 列），并且第二列（B 列）为空白列，可作为结果列使用。如果你的日期位于不同的列中，请相应地更改代码中的列号。