エクセル上に3600行のデータがあり、その中から任意の40個の行(行番号234、行番号336、行番号487、・・・)のみを表示させる作業を現在行っています。
今行っている方法は、「任意の行から次の任意の行を データ_グループとアウトラインの設定_グループ化 を行い、グループ化した範囲を折りたたんで、任意の40行のみを表示させる」方法です。
この方法だと、「データ_グループとアウトラインの設定_グループ化 を行い、グループ化した範囲を折りたたむ」という一連の作業を40回繰り返すことになります。また、同様に処理するワークシートが残り3部あります。
地道に作業することは全く苦痛ではありませんが、もし、エクセルの機能の中にこのような作業をサポートする別の方法があれば、教えて下さい。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
大変ですね。
私ならマクロに頼ります。新しいブックを開き、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のマクロを実行します。
抽出の対象となるエクセルは一緒に開いておいて下さい。
書式と値が新しいブックにコピーされます。
列の幅はコピーされませんが元のブックから一度だけコピー&ペーストしておけばいいかと。
ありがとうございました。おかげさまで1シートの作業が完了しました。残りのシートも今日中に終わらせることができそうです。(追記:エクセルを使いこなせていないことがよく理解できました。)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 非表示にしたい行をグループ化して折り畳み 4 2022/09/17 20:17
- Illustrator(イラストレーター) Illustrator アンカーポイント選択について 3 2023/01/30 12:31
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) Excel 指定した固有番号で、複数の行を削除する方法は? 2 2022/03/30 15:18
- Excel(エクセル) アウトラインの小計のやり方 1 2023/03/20 11:51
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
リモートデスクトップ接続が頻...
-
GT/sをGB/sへの換算方法
-
【Windows10】自動構成IPv4 ア...
-
プロトコルの階層化とインター...
-
nslookupでIPが見つからない
-
社内ネットワークの1台だけ接...
-
家庭内LANの2台のPC間で「ネッ...
-
【Hyper-Vの質問】ホストOS以外...
-
DHCPのリース期限が半分になっ...
-
ファイルサーバーで毎回パスワ...
-
ストリーミング配信されている...
-
ルーターを冗長化するとPC側の...
-
MyスカパーIDの登録、メールア...
-
YAHAMA RTXシリーズのコマンド...
-
パソコンに詳しい人 d3dx9_42.d...
-
「ファイル名を指定して実行」...
-
瞬快 コンソール操作 ローカル...
-
一台のサーバーに複数個のIPア...
-
自作のサーバーPCが自宅内のネ...
-
L3の勉強。何から始めてどうす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あみだくじの横線の本数の求め方
-
貼り付けをマクロで禁止させたい。
-
ゾンビエクセル・・・(Exc...
-
マクロでエクセル内のアウトラ...
-
エクセルのスピンボタン
-
エクセルでコメント挿入した部...
-
エクセルVBAのRand()関数は?
-
エクセルのselect case で 100...
-
不明なコマンドです("FROM")。...
-
Access2010 「演算子がありませ...
-
【ExcelVBA】sheet作成時にマク...
-
WordPressをインストールしてい...
-
オペランドが足りませんとコメ...
-
Excel2010でふりがなが漢字にな...
-
エクセル/マクロ Exit Subが実...
-
エクセルの文字間スペースを入...
-
pythonでrequestsが使えない
-
VBA シートの切り替えができな...
-
mfc42.dllファイルってなんです...
-
エクセル 「実行時エラー"13":...
おすすめ情報