Excel宏实现按币种批量设置数字格式（USD/IDR/JPY）

原代码存在的问题 #

• 始终只判断A1单元格的值，没有针对循环到的当前行进行货币类型判断
• 每次修改整列B的格式，循环结束后只会保留最后一次设置的格式，无法实现逐行对应设置
• 未处理单元格为空的场景，可能导致不必要的格式覆盖

修正后的宏代码 #

Sub SetCurrencyFormat()
    Dim rng As Range
    Dim cell As Range
    ' 设置要遍历的A列范围，可根据实际数据行数调整
    Set rng = Range("A1:A100")
    
    For Each cell In rng
        ' 跳过空单元格，避免无效判断
        If cell.Value <> "" Then
            Select Case UCase(cell.Value)
                Case "IDR"
                    ' 定位到当前行的B列单元格，设置0位小数格式
                    cell.Offset(0, 1).NumberFormat = "#,##0"
                Case "JPY"
                    ' 设置2位小数格式
                    cell.Offset(0, 1).NumberFormat = "#,##0.00"
                Case "USD"
                    ' 设置4位小数格式
                    cell.Offset(0, 1).NumberFormat = "#,##0.0000"
                ' 可选：处理其他未定义的货币类型
                Case Else
                    cell.Offset(0, 1).NumberFormat = "General"
            End Select
        End If
    Next cell
End Sub

关键修改说明 #

• 用cell.Value替代固定的Range("a1")，确保判断的是当前循环行的货币类型
• 使用cell.Offset(0,1)定位到当前行对应的B列单元格，实现逐行单独设置格式
• 增加UCase()统一转换为大写判断，避免大小写不一致导致的匹配失败
• 加入空单元格判断，跳过无数据的行，提升效率
• 改用Select Case结构，比多层If-Else更清晰易维护

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