如何让VBA宏支持对单个或选中列范围设置日期格式？

原代码仅能处理单个单元格所在的整列，无法支持多列范围批量处理。直接替换ActiveCell.Column为ActiveCell.Columns无效，因为ActiveCell是单个单元格，其Columns属性仅返回单列集合，无法覆盖多列场景。

优化后的高效批量处理代码 #

Sub change_2_short_dt()
    Dim targetColumns As Range
    ' 获取选中区域覆盖的所有整列
    Set targetColumns = Columns(Selection.Column).Resize(ColumnSize:=Selection.Columns.Count)
    ' 设置日期格式为m/d/yyyy
    targetColumns.NumberFormat = "m/d/yyyy"
End Sub

代码说明 #

• 选中单个单元格时：自动识别该单元格所在整列，设置整列格式；
• 选中多列连续范围时（如选中B:D列的任意区域）：一次性获取所有涉及的整列，批量设置格式，无需循环遍历，效率更高。

兼容非连续列的备选方案 #

如果需要处理非连续列选中场景（如同时选中B列和D列），可使用循环遍历每一列：

Sub change_2_short_dt()
    Dim col As Range
    ' 遍历选中区域的每一列，设置对应整列格式
    For Each col In Selection.Columns
        Columns(col.Column).NumberFormat = "m/d/yyyy"
    Next col
End Sub

内容的提问来源于stack exchange，提问作者Olendris63