No.2ベストアンサー
- 回答日時:
シートが40もあるのであれば、いちいちコピーすれば、80にもなりますよ。
どうも直接非表示行を削除した方が、手っ取り早いとおもいますが、如何でしょうか。
下記のマクロを実行すると、全シートの非表示行を削除します。
一応、マクロの設定方法を書いておきます。
1.Alt + F11 で VBE(Visual Basic Editor)を開きます。
2.VBE のメニューから[挿入] -->[標準モジュール] を指定します。
3.モジュールウィンドウに下記コードをコピーして貼り付けます。
コードの2行目をデータの最終行を多めに指定します。(1000とか10000など)
4.Alt + Q (または、右上隅の×)でウィンドウを閉じ、シートに戻ります。
5.このマクロを保存して使用する場合は、メニューから[ツール]-->[マクロ]-->
[セキュリティ]で「セキュリティレベル」を「中」にして[OK]します。
6.実行するときは、Alt + F8 (メニューから[ツール]-->[マクロ]-->[マクロ])で
「DelHiddenRow」を指定し、[実行]ボタンを押します。
これで如何でしょうか。
Sub DelHiddenRow()
Const ChkMaxRow = 1000 ' <--- 非表示をチェックする最終行を指定
Dim Rw As Long
Dim N As Integer
For N = 1 To Worksheets.Count
With Worksheets(N)
For Rw = ChkMaxRow To 1 Step -1
If .Rows(Rw).Hidden Then .Rows(Rw).Delete
Next Rw
End With
Next N
End Sub
こんにちは。
なるほど…手作業にした方が早いですか(^^;)了解です。
データベースソフトだと非表示レコードだけを簡単に選択できたりするので、もしかしたらエクセルでも似たようなことをできるのかもしれないと思い、お気楽に質問させていただきました。
ご回答をどうもありがとうございました。
No.1
- 回答日時:
VBAが必要ですが、表示行/列のみをコピーし、別のシートに貼り付ければ、結果的に非表示行/列は削除されます。
一例ですが、Sheet1の表示行/列をSheet2に貼り付ける場合、下記の要領です。
Sub Test()
With Application
.Worksheets(1).UsedRange.SpecialCells(xlCellTypeVisible).Copy
.Worksheets(2).Paste
End With
End Sub
この回答への補足
こんにちは。
実は当方マクロは全くの初心者なのですが、あちこちのサイトを覗いて、見よう見まねでやってみました。
おお、確かにこの方法ですと非表示行が削除されますね。
さらに重ねての質問になってしまうのですが、
1)行列幅を変えずにコピーするにはどうすればいいか
2)コピーの前にワークシートを新規に挿入し、さらにそのシートに名前をつけるには(できれば“コピーしたいシート名-1”のような似通った名前で)
なにぶん素人ですので、もしかしたらトンデモナイ質問をしてしまっているのかもしれませんが、何卒ご容赦下さい。
よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
見学に行くとしたら【天国】と【地獄】どっち?
みなさんは、一度だけ見学に行けるとしたら【天国】と【地獄】どちらに行きたいですか? 理由も聞きたいです。
-
【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
【お題】・忍者がやってるYouTubeが炎上してしまった理由
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
コーピングについて教えてください
皆さんはストレスを感じたとき、どのような方法や手段、テクニックで対処していますか?
-
【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
【お題】追い込まれた犯人が咄嗟に言った一言とは?
-
非表示の列をすべて削除するマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・ことしの初夢、何だった?
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・【お題】逆襲の桃太郎
- ・自分独自の健康法はある?
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
エクセルのマクロ機能で前のシ...
-
Excelを開いた時に表示さ...
-
エラーになってないのにVBA...
-
複数ファイルにある特定のシー...
-
ワードからエクセルへ貼り付け...
-
Wordの画面を左右にスクロール...
-
エクセルでマクロ実行中に任意...
-
EXCELのセルへ、デジタル時計を...
-
powerpointにwebページを挿入
-
Excel VBA のdebug(F8キー) が...
-
マクロ 実行ボタンを押さずに...
-
VBAでEXCELに埋め込んだPDFを開...
-
モジュール内のマクロを全て実...
-
EXCEL2000 VBA マクロ実行中に...
-
TeraTermのマクロについて
-
Excelマクロでオプションボタン...
-
Excelの改ページ 同シート内で...
-
EXCEL 複数のシートの同一の位...
-
Accessのマクロで「yes、no」の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
Excel VBA のdebug(F8キー) が...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
EXCELのセルへ、デジタル時計を...
-
ワードからエクセルへ貼り付け...
-
複数ファイルにある特定のシー...
-
エクセルのマクロ機能で前のシ...
-
Wordの画面を左右にスクロール...
-
エクセル グラフの軸の最小値最...
-
モジュール内のマクロを全て実...
-
Excelマクロでオプションボタン...
-
TeraTermのマクロについて
-
VBAでEXCELに埋め込んだPDFを開...
-
EXCEL2000 VBA マクロ実行中に...
-
マクロボタンをある条件の時に...
-
ワードで画像を自動で挿入する方法
-
開いているフォルダを全て閉じ...
-
Wordで「原稿用紙○枚」を換算す...
おすすめ情報