vba - 无法在 Excel VBA 中对行进行分组

Question

我在 Excel-VBA 中有一点小事。我有 114000 行数据，每行都有一个唯一的标志。我想使用 Excel>Data>Group 函数对它们进行分组。我录制了一个宏，并在此基础上编写了以下代码：

Sub Macro2()


Dim i As Double


With ActiveSheet.Outline
    .AutomaticStyles = False
    .SummaryRow = xlAbove
    .SummaryColumn = xlLeft
End With

For i = 1 To 141163

If Range("B" & i).Value = 9 Then
Rows("i:i").Select
Selection.Rows.Group

End If

Next i

End Sub

我收到运行时错误 1005 Rows("i:i").Select。建议？谢谢。

Answer 1

用引号括起来采用文字值“i”而不是变量定义。尝试以下操作：

Rows(i & ":" & i).Select