excel - 如何使用 VBA 在列中插入组上方/下方的行

Question

我什至为此启动宏都遇到了麻烦。任何帮助将不胜感激。

引用下面的示例，是否可以找到组的第一个值并在其上方插入一行。例如:在A列中找到第一个“苹果”并在上方插入行，在A列中找到第一个“香蕉”并在上方插入行等。查找组中的最后一个值并在下方插入行也可以，如:在A列中找到最后一个“苹果”并在下面插入行。

还需要的是，如果 A 列中没有“苹果”，则转到“香蕉”。

 	  A
1	apple
2	apple
3	apple
4	apple
5	banana
6	banana
7	banana
8	banana
9	banana
10	orange
11	orange
12	orange
13	orange
14	orange
15	orange

Answer 1

这里有一些代码可以做你想做的。

Sub LoopAddRow()

    Dim i As Long
    Dim sTemp As String
    Dim ws As Worksheet

    Set ws = Sheets("Sheet2")

    For i = 1 To 15
        If i = 1 Then
            sTemp = ws.Cells(i, 1).Value
            ws.Rows(i).EntireRow.Insert
        Else
            If ws.Cells(i, 1).Value <> sTemp Then
                sTemp = ws.Cells(i, 1).Value
                ws.Rows(i).EntireRow.Insert
            End If
        End If
    Next i

End Sub

之前和之后如下:



编辑:添加 lRow变量，每个 OP 请求

Sub LoopAddRow()

    Dim i As Long
    Dim sTemp As String
    Dim ws As Worksheet
    Dim lRow As Long

    Set ws = Sheets("Sheet2")
    lRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

    For i = 15 To lRow
        If i = 1 Then
            sTemp = ws.Cells(i, 1).Value
            ws.Rows(i).EntireRow.Insert
        Else
            If ws.Cells(i, 1).Value <> sTemp Then
                sTemp = ws.Cells(i, 1).Value
                ws.Rows(i).EntireRow.Insert
            End If
        End If
    Next i

End Sub