Excel-VBA将数值区域转换为以万为单位

应用场景

将除标题以外的单元格区域值转换成以万为单位

知识要点

1：Range.NumberFormat 属性  返回或设置一个 Variant 值，它代表对象的格式代码

2：Application.Intersect 方法 返回一个 Range 对象，该对象表示两个或多个区域重叠的矩形区域。

3：Range.Offset 属性   返回 Range 对象，它代表位于指定单元格区域的一定的偏移量位置上的区域。

Sub 将区域数据的单位转换为万()

    With ActiveSheet.UsedRange

        Intersect(.Offset(0, 1), .Offset(1, 0)).NumberFormat = '#''.''#,万'

    End With

End Sub