作者：未知 来源：月光软件站 加入时间：2005-6-5　月光软件站

Sub instab()
    Dim flag As Boolean
    Dim rs1 As String
    Dim rs2 As String
    flag = True
    Range("A5:A6").Select
    With Application.FindFormat.Font
        .Subscript = False
        .ColorIndex = 5
    End With
    While flag
        Cells.Find(What:="小计", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
            , MatchByte:=False, SearchFormat:=True).Activate
        ActiveCell.Offset(1, 0).Select

相关软件：