大きなデータの複数の任意の行のみを表示する方法

質問

エクセル上に３６００行のデータがあり、その中から任意の４０個の行（行番号２３４、行番号３３６、行番号４８７、・・・）のみを表示させる作業を現在行っています。
今行っている方法は、「任意の行から次の任意の行を　データ＿グループとアウトラインの設定＿グループ化　を行い、グループ化した範囲を折りたたんで、任意の４０行のみを表示させる」方法です。
この方法だと、「データ＿グループとアウトラインの設定＿グループ化　を行い、グループ化した範囲を折りたたむ」という一連の作業を４０回繰り返すことになります。また、同様に処理するワークシートが残り３部あります。
地道に作業することは全く苦痛ではありませんが、もし、エクセルの機能の中にこのような作業をサポートする別の方法があれば、教えて下さい。
よろしくお願いします。

回答No.1

luka3 · ベストアンサー

大変ですね。私ならマクロに頼ります。

新しいブックを開き、Alt+F11キーでマクロエディタを開きます。
メニューから「挿入」→「標準モジュール」をクリックし、開いた画面に以下をコピーします。

Sub test()
　Const book = "BookName.xls" ' ★ブック名
　Const sheet = "SheetName" ' ★シート名
　Dim i, sh As Worksheet
　Dim Lines As Variant

　Lines = Array(1, 3, 5) ' ★抽出する行番号
　Set sh = Workbooks(book).Sheets(sheet)
　For i = 0 To UBound(Lines)
　　sh.Rows(Lines(i)).Copy ThisWorkbook.Sheets("Sheet1").Rows(i + 1)
　　' セルが数式だと表示されない可能性があるので値のみ再度コピー
　　ThisWorkbook.Sheets("Sheet1").Rows(i + 1).Value = sh.Rows(Lines(i)).Value
　Next
End Sub

★の部分を変更して下さい。
エクセルの画面に戻ってAlt+F8キー（またはメニューの「ツール」→「マクロ」→「マクロ」）でtestのマクロを実行します。
抽出の対象となるエクセルは一緒に開いておいて下さい。
書式と値が新しいブックにコピーされます。
列の幅はコピーされませんが元のブックから一度だけコピー＆ペーストしておけばいいかと。

お礼

ありがとうございました。おかげさまで１シートの作業が完了しました。残りのシートも今日中に終わらせることができそうです。（追記：エクセルを使いこなせていないことがよく理解できました。）