有没有一种方法可以在一个单元格中使用5种不同的数字格式，或者编写VBA脚本来根据数值生成数字格式？

Sub GenerateNumberFormat()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A1:A10") '设置需要生成数字格式的单元格范围
    
    For Each cell In rng
        If cell.Value < 0 Then
            cell.NumberFormat = "[$-409]0.00;[Red]-[$-409]0.00" '负数显示红色
        ElseIf cell.Value > 1000 Then
            cell.NumberFormat = "#,##0.00" '大于1000的数值显示千分位分隔符
        ElseIf cell.Value > 100 Then
            cell.NumberFormat = "0.0%" '大于100的数值显示百分比
        ElseIf cell.Value < 1 Then
            cell.NumberFormat = "0.0000" '小于1的数值显示4位小数
        Else
            cell.NumberFormat = "General" '其他情况使用默认格式
        End If
    Next cell
End Sub