- ベストアンサー
《エクセル2000》非表示の行を削除したい
quit123の回答
- quit123
- ベストアンサー率21% (4/19)
Wendy02さん、KenKen_SPさん、こんばんは。 コードの提示、及び改良コードありがとうございます。 もうひとつ、宜しいでしょうか。 お二人のコードの次の部分 For i = 1 To ThisWorkbook.Sheets.Count （お二人） With Sheets(i).UsedRange （Wendy02さん） Set Sh = Sheets(i) （KenKen_SPさん） は、ワークシート以外のシートがあればエラーになりますので 今回の場合ワークシートに限定した方がベターではないでしょうか For i = 1 To ThisWorkbook.WorkSheets.Count With WorkSheets(i).UsedRange Set Sh = WorkSheets(i) ーーーーーーーーーーーーーーーーーーーーーーーー それから、KenKen_SPさんにお尋ねします。 ＞セルのデータより下にシェープはUsedRange では ＞必ずしも正しい処理範囲を取得できない、 と言っておられますが、これ初耳でしたので ちょっと検証してみましたが、上手く範囲取得されます 後学のためも少し詳しく説明いただければと思います 当方コートの提示もせず粗探しみたいになってますが 少しでも質問者のためになればとの考えからですので ご無礼お許しください。 お二人のコードとても為になります。 これからも素晴らしい回答楽しみにしています。
関連するQ&A
- エクセルマクロ 空白行の削除ですが、コピー時の問題
いつもお世話になっております。 エクセルのマクロですが、指定したシートの指定した行にデータが 入っていない場合に削除するマクロなんですが、行くつか試してみ ましたが、削除したものをコピーして張り付けると、削除された行も コピーされてしまいます。完全に削除するにはどのようにしたらよい のでしょうか。 空白行のあるデータを、空白を無くしてデータベースにコピーする 作業を行いたいのですが、他によい方法はありますでしょうか。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルのマクロについて教えてください
作業が面倒だし、間違いもよく発生するので、 下の条件のマクロをどなたか教えて頂けませんか？ 宜しくお願い致します。 社内のサーバーにエクセルファイル名、AからZまであるとします。 各AからZにそれぞれ同じシート名「集計」があるとします。 そのシート内にデータが色々あるとします。 ある決まったセルだけを削除するのではなく、セルの色だけで判断してデータを削除したいのです。 例えば、赤色のセルになっている部分だけを対象に 入力されている数字を消したいのです（行削除ではなく、単純にデリートです）。 上記をマクロで実行する方法はないでしょうか。 マクロ初心者なので、プログラム言語の下に簡単な説明を頂けると助かります。 どなたか詳しい方がいらっしゃいましたら、宜しくお願い致します。
- ベストアンサー
- Visual Basic
- 条件つき書式で該当した行を一気に削除したい
複数のシートのデータを集計した表に、社員番号が0ならばセルに色をつける条件付き書式を使っています。 この色がついた行を削除したいのですが、3000行程ある大きな表ですので、いちいち手作業していると時間がかかります。一気に削除できる方法はありますか？ このデータは毎月使用するもので、毎月集計結果が変わります。マクロはごくごく簡単なものしかやったことがなく知識がありません。 こんな私でも出きる方法があれば教えてください。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで行を削除すると他行の表示が消える
エクセル2010を使用しています。 1行目から50行目まで品番が表示されている表で、10行目を削除すると 30行目の表示が消えてしまいます。 枠線は表示されていて品番の表示だけが消えてしまいます。 非表示設定やマクロ設定はしていません。 発注作業に支障をきたしてしまい大変困っております。 原因、改善の方法など教えてください。
- 締切済み
- その他MS Office製品
- エクセル：文字コピーすると０と表示されてしまう
エクセルにおいてSheet1の文字（セル結合箇所）をSheet2へコピー（セル結合箇所）すると ０（ゼロ） と表示されてしまいます。文字をコピーするにはどうしたらよいでしょうか。
- 締切済み
- オフィス系ソフト
- エクセル 複数行にまたがっているデータを一つの行3
エクセル 複数行にまたがっているデータを一つの行にまとめ（応用） 以前にも同じような質問で１商品複数行のデータを1行にまとめるマクロ をつくって頂いたのですが、（http://okwave.jp/qa/q8191364.html） これが、たまたま、1商品1行のデータがありまして、まとめるとエラーがでてしまいます。 （エラーがでるブック http://yahoo.jp/box/aiXHto） →成分の箇所だけまとめたいのが目的。 またかなり無理な作業を承知の上でのマクロなんですが、 下記のサンプルデータで http://yahoo.jp/box/SUs3B3 前のように複数行を1行にまとめたいのですが、成分の箇所がちょっと複雑で サンプルデータの黄色のA成分、B成分、C成分があるのですが、 これを一つのセルにsheet2のようにまとめたいのですが、 VBAで上記の処理を出来る方法がありますでしょうか。 またtom04さんいつもありがとうございます。
- ベストアンサー
- Excel（エクセル）
- 非表示行の削除方法
１．A列に=COUNTIF(F6:Z6,"<0")+COUNTIF(F6:Z6,">0")とし、0以外のセルを数えて表示しています。 ２．A列が0ならば非表示にするようにマクロで作ってあります。 ３．御教示頂きたき事。 非表示のまま、非表示の行を全てを削除する方法 例えば、非表示のままA列が0ならば0の行全体を削除するような方法です。
- ベストアンサー
- Windows XP
- エクセルVBA初心者です。マクロを組んでください。
エクセルVBA初心者です。組んで欲しいマクロがあります。 Sheet 1に13桁を入力するセル sheet 2に検索したいデータ 手順としては、 Sheet 1のセルにデータを入力 →13桁以上でマクロが開始(されるように設定します) →Sheet 1のセルと同じ数列をSheet 2の列Aから検索 →該当のセルを含む行をSheet 3にコピー →Sheet 1の入力セルの少し下にもコピー (確認用) というのを一回一回ずつやりたいです。 できれば作業中マウスやキーボードを触りたくないので、そのために、マクロの終わわりには入力セル内の消去、マクロの始まりには確認用でコピーした行の削除もつけて下さい。 検索するSheet 2には同じデータが含まれているので、出来ればひとつずつSheet 3にコピーしたいので組み込んで頂けると幸いです。 よろしくお願いいたします。
- 締切済み
- Visual Basic
- Excelマクロの部分的削除
エクセルの表で各行にプルダウンメニューがマクロで設定されているのですが、不要な2-3行を削除したところ、最後の１行のマクロ部分（プルダウンメニュー）だけ残って表示されてしまいました。 シート全体のマクロを削除せずに、一行の部分のみ削除する方法はありますか？ 説明不足で申し訳ありませんが、教えて下さい。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル 空の行を削除するマクロについて
エクセルで、特定の列(ここではFの列としてください)が空欄だった場合に、その行ごと削除するマクロを記述したのですが、不完全で困っています。 不完全な部分としては、 ・Fが空であるはずなのに、行が削除されない ・Fが空でもその隣のセル(E)に文字列などが入っていた場合、削除されない 以下が問題のマクロです Dim i As Integer For i = 1 To 300 If Sheets("Sheet1").Cells(i, "F") = "" Then Sheets("Sheet1").Rows(i).Select Selection.Delete Shift:=xlUp End If Next i End Sub 例) A B C D E F 1 あ い う え お か 2 き く け こ さ し 3 す せ そ た ち 4 つ て と な に ぬ ３列目を削除したいです。 問題箇所がお分かりの方、教えていただけませんでしょうか。 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
quit123さま、こんばんは。 …正直申し上げまして、皆様の議論されていることは、ビギナーには理解するに厳しい内容となっております(^^;) そんな達人の皆様のおかげで、無事作業を終了することができました。 本当にありがとうございました。