VBA非连续列百分比格式设置异常：H列未生效问题咨询

你写的 .Range(.Range("D5:F5, H5"), vRng) 之所以只生效D-F列，是因为Excel的Range对象不支持用不连续的起始区域和另一个区域组合成目标范围。这里第一个参数里的D5:F5, H5是两个分开的区块，Excel只会认第一个连续区块（D5:F5），再和vRng的右下角单元格（A列最后一行对应的单元格）拼成一个矩形，H列根本不在这个矩形里，自然不会被格式化。

另外提一句，你vRng的定义里&和.Rows.Count之间缺个空格，规范写法应该是：

vRng = .Range("A5", .Range("A" & .Rows.Count).End(xlUp))

不过这不是H列失效的原因，只是写法上的小问题。

方法1：合并区域后统一设置 #

用Union把D-F列和H列的目标范围合并成一个整体，再设置格式，逻辑清晰：

Dim targetRng As Range
Set targetRng = Union(.Range("D5:F" & .Range("A" & .Rows.Count).End(xlUp).Row), _
                      .Range("H5:H" & .Range("A" & .Rows.Count).End(xlUp).Row))
targetRng.NumberFormat = "0.00%"

方法2：分两次单独设置 #

直接分别给D-F列和H列设置格式，简单粗暴不容易出错：

' 处理D到F列
.Range("D5:F" & .Range("A" & .Rows.Count).End(xlUp).Row).NumberFormat = "0.00%"
' 处理H列
.Range("H5:H" & .Range("A" & .Rows.Count).End(xlUp).Row).NumberFormat = "0.00%"

方法3：拆分原写法的区域选择 #

如果想贴近原来的写法，可以分开指定连续列的范围：

' 先处理D-F列
With .Range("D5:D" & .Range("A" & .Rows.Count).End(xlUp).Row, "F5:F" & .Range("A" & .Rows.Count).End(xlUp).Row)
    .NumberFormat = "0.00%"
End With
' 再处理H列
.Range("H5:H" & .Range("A" & .Rows.Count).End(xlUp).Row).NumberFormat = "0.00%"

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