是要这个效果吧？用VBA吧

并给t变量的数值加括号    （）

这个可以设置单元格格式（自定义）来实现
(G/通用格式)

加上标星号可以用VBA来实现，楼上已经有代码了，我也写了一段
Sub jiaxing()
    Dim xrow%, n%, i%, j%
    xrow = Worksheets("sheet1").Range("a1").CurrentRegion.Rows.Count
    For n = 2 To xrow
        i = Len(Worksheets("sheet1").Cells(n, 1))
        If Worksheets("sheet1").Cells(n, 2).Value <= 1 Then
            j = 1
        ElseIf Worksheets("sheet1").Cells(n, 2).Value > 2 Then
            j = 3
        Else
            j = 2
        End If
        Worksheets("sheet1").Cells(n, 1) = Worksheets("sheet1").Cells(n, 1) & WorksheetFunction.Rept("*", j)
        Worksheets("sheet1").Cells(n, 1).Characters(Start:=i + 1, Length:=j).Font.Superscript = True
    Next
End Sub

谢谢   只是限制给5个论坛币  可以多回复几条  

请问word宏跟excel的有什么太大区别吗   如果用word好处理吗