VBA UserForm下拉列表VAT税率格式显示异常求助

这问题我碰到好多次了！Excel里的百分比单元格看着是0.0%、2.0%这类格式，但底层存储的其实是小数（比如20.0%实际存的是0.2），所以直接用.Value拉数据到用户窗体的下拉列表，就会显示成原始的小数数值。给你几个靠谱的解决办法：

方法1：读取单元格的显示文本（最直观） #

直接用单元格的.Text属性获取它在Excel里显示的完整字符串，这样下拉列表就会和工作表里的格式完全一致：

Dim rng As Range
Dim vatRates() As Variant
Dim i As Integer

' 定义要读取的税率范围
Set rng = Ref.Range("AE2:AE7")
' 初始化数组，长度和单元格数量一致
ReDim vatRates(1 To rng.Cells.Count)

' 遍历每个单元格，读取显示文本
For i = 1 To rng.Cells.Count
    vatRates(i) = rng.Cells(i).Text
Next i

' 把数组赋值给下拉列表
NewRangePlan.VATRateDD.List = vatRates

方法2：手动格式化数值为百分比字符串 #

如果担心工作表的单元格格式被修改，导致.Text读取的结果不符合预期，可以自己用Format函数把小数转成指定格式的百分比字符串：

Dim rng As Range
Dim vatRates() As Variant
Dim i As Integer

Set rng = Ref.Range("AE2:AE7")
ReDim vatRates(1 To rng.Cells.Count)

For i = 1 To rng.Cells.Count
    ' 用Format函数将小数转成"0.0%"格式的字符串
    vatRates(i) = Format(rng.Cells(i).Value, "0.0%")
Next i

NewRangePlan.VATRateDD.List = vatRates

小贴士：如果需要显示两位小数，把格式字符串改成"0.00%"即可。

方法3：用数组公式批量转换（高效版，适用于Excel 365/2021+） #

如果你的Excel版本支持动态数组，可以用Evaluate配合工作表的TEXT函数一次性完成转换，不用循环，效率更高：

Dim vatRates As Variant

' 用TEXT函数批量把数值转成百分比格式的文本
vatRates = Ref.Evaluate("TEXT(AE2:AE7,""0.0%"")")
' 把Evaluate返回的二维数组转成一维数组，适配下拉列表的要求
vatRates = Application.Transpose(vatRates)

NewRangePlan.VATRateDD.List = vatRates

额外提醒 #

如果后续需要用下拉列表选中的税率进行计算，记得把选中的字符串转成小数数值：

' 比如获取选中的税率并转成可计算的小数
Dim selectedVAT As Double
selectedVAT = CDbl(Replace(NewRangePlan.VATRateDD.Value, "%", "")) / 100

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