how use VBA in excel move active cell!

最新推荐文章于 2023-09-15 18:36:33 发布

hansbj

最新推荐文章于 2023-09-15 18:36:33 发布

阅读量1.2k

点赞数

分类专栏：语言其它文章标签： vba excel string

本文链接：https://blog.csdn.net/hansbj/article/details/386226

版权

语言同时被 2 个专栏收录

21 篇文章 0 订阅

订阅专栏

其它

14 篇文章 0 订阅

订阅专栏

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
        Selection.EntireRow.Insert
        Selection.EntireRow.Insert
        ActiveCell.Offset(2, 0).Select
        If ActiveCell.Offset(0, 0) = "" Then
           flag = False
        End If
    Wend
End Sub