ＶＢＡ グループ化について

質問

VBAで、取り込んだ本のリストをグループ化して見やすくしようと思ったのですが、＠のついているところでエラーが出ます。
（あるところからとってきたＶＢＡを自分で付け加えたものです。）
Ａ列に著者、Ｂ列に本のタイトルが書かれているリストで、完成図としては著者の毎にグループがされ、著者のグループを開くと、本のタイトルのグループが出てくるかたちを目指しています。

エラー内容は以下の通りです。
実行時エラー　1004
アプリケーション定義またはオブジェクト定義のエラーです。

どなたか教えて下さい。

Sub TEST()
Dim wri1 As Long
Dim wri2 As Long
Dim wri As Long
Dim com1 As Long
Dim com2 As Long
Dim com As Long
Dim strFORMULA As String

ActiveCell.Activate

com = 1
Do While Cells(com, 2).Value <> "END"

com1 = com
com = com + 1

Do While Cells(com, 2).Value = Cells(com1, 2).Value
com = com + 1
Loop

com2 = com - 1

Rows(com).Insert
Cells(com, 2).Value = Cells(com1, 2).Value
Cells(com, 1).Value = Cells(com1, 1).Value

Rows(com1 & ":" & com2).Group
com = com + 1
Loop

wri = 1
Do While Cells(wri, 1).Value <> "END"

wri = wri
wri = wri + 1

@@@ Do While Cells(wri, 1).Value = Cells(wri1, 1).Value
wri = wri + 1
Loop

wri2 = wri - 1

Rows(wri).Insert
Cells(wri, 1).Value = Cells(wri1, 1).Value

Rows(wri1 & ":" & wri2).Group
wri = wri + 1
Loop

End Sub

回答No.1

ambriel · ベストアンサー

問題の箇所まで、変数「wri1」には何も入れられていません。
手前の「wri = wri」「wri = wri + 1」あたりで何かをしたかったのでしょうか？

余談ですが、著者ごとに整理するのであれば、「sortメソッド (並び替え機能) でソート後にグループ化設定を行うのが手っ取り早いような気がします。