色を付けてある結合セルセルが一部消えません。下のはマクロ記録してそのまま使っているものですが、なぜ消えないのか分かりません。
ちょっとたくさんありすぎてゴチャゴチャしていて恐縮ですが、消えない部分は。
AM42:AO43,AR42:AX43,BD42:BJ43,F45:T46,V45:AJ46の部分です。
使用上のクセとかなんかあるんでしょうか?
Union(Range( _
"F57:T58,V57:AJ58,AM57:AO58,AR57:AX58,BD57:BJ58,F60:T61,V60:AJ61,AM60:AO61,AR60:AX61,BD60:BJ61,AV7:BC8,AU9:BC10,D16:AC17,G18:H19,O22:P23,W24:AE25,R32:AV34,F42:T43,V42:AJ43,AM42:AO43,AR42:AX43,BD42:BJ43,F45:T46,V45:AJ46,AM45:AO46,AR45:AX46,BD45:BJ46,F48:T49" _
), Range( _
"F51:T52,V51:AJ52,AM51:AO52,AR51:AX52,BD51:BJ52,F54:T55,V54:AJ55,AM54:AO55,AR54:AX55,BD54:BJ55" _
)).Select
Range("BD60").Activate
Union(Range( _
"F57:T58,V57:AJ58,AM57:AO58,AR57:AX58,BD57:BJ58,F60:T61,V60:AJ61,AM60:AO61,AR60:AX61,BD60:BJ61,G65:T66,AM65:AO66,BD65:BJ66,G69:T70,AM69:AO70,BD69:BJ70,BB76:BJ78,AI80:AM81,AV7:BC8,AU9:BC10,D16:AC17,G18:H19,O22:P23,W24:AE25,R32:AV34,F42:T43,V42:AJ43" _
), Range( _
"AM45:AO46,AR45:AX46,BD45:BJ46,F48:T49,V48:AJ49,AM48:AO49,AR48:AX49,BD48:BJ49,F51:T52,V51:AJ52,AM51:AO52,AR51:AX52,BD51:BJ52,F54:T55,V54:AJ55,AM54:AO55,AR54:AX55,BD54:BJ55" _
)).Select
Range("AI80").Activate
Selection.Interior.ColorIndex = xlNone
No.1
- 回答日時:
提示されたコードのうち
Range("BD60").Activate の前は意味がありません。
それ以降の部分にAM42:AO43,AR42:AX43,BD42:BJ43,F45:T46,V45:AJ46が含まれてないのでは?
ほんとにごちゃごちゃなのでよくはわかりませんが。
Sub test01()
Union(Range( _
"F57:T58,V57:AJ58,AM57:AO58,AR57:AX58,BD57:BJ58,F60:T61,V60:AJ61,AM60:AO61,AR60:AX61,BD60:BJ61,G65:T66,AM65:AO66,BD65:BJ66,G69:T70,AM69:AO70,BD69:BJ70,BB76:BJ78,AI80:AM81,AV7:BC8,AU9:BC10,D16:AC17,G18:H19,O22:P23,W24:AE25,R32:AV34,F42:T43,V42:AJ43" _
), Range( _
"AM45:AO46,AR45:AX46,BD45:BJ46,F48:T49,V48:AJ49,AM48:AO49,AR48:AX49,BD48:BJ49,F51:T52,V51:AJ52,AM51:AO52,AR51:AX52,BD51:BJ52,F54:T55,V54:AJ55,AM54:AO55,AR54:AX55,BD54:BJ55,AM42:AO43,AR42:AX43,BD42:BJ43,F45:T46,V45:AJ46" _
)).Interior.ColorIndex = xlNone
End Sub
No.2ベストアンサー
- 回答日時:
こんばんは。
単に、マクロらしく書けば、このようになるのでは?
ループできるところは、ループして、全部、Union でつなげる必要はないような気がします。ただし、結合セルの具合によっては、うまくいかない可能性はあります。
Sub TestMacro1()
Dim i As Long
Dim j As Long
Const iColor = xlNone
Application.ScreenUpdating = False
With ActiveSheet
For i = 42 To 60 Step 3
.Cells(i, 6).Resize(2, 15).Interior.ColorIndex = iClolor
.Cells(i, 22).Resize(2, 15).Interior.ColorIndex = iClolor
.Cells(i, 39).Resize(2, 3).Interior.ColorIndex = iClolor
.Cells(i, 44).Resize(2, 7).Interior.ColorIndex = iClolor
.Cells(i, 56).Resize(2, 7).Interior.ColorIndex = iClolor
Next i
For j = 65 To 69 Step 4
.Cells(j, 7).Resize(2, 14).Interior.ColorIndex = iClolor
.Cells(j, 39).Resize(2, 3).Interior.ColorIndex = iClolor
.Cells(j, 56).Resize(2, 7).Interior.ColorIndex = iClolor
Next j
.Cells(16, 4).Resize(2, 26).Interior.ColorIndex = iClolor
.Cells(18, 7).Resize(2, 2).Interior.ColorIndex = iClolor
.Cells(24, 23).Resize(2, 9).Interior.ColorIndex = iClolor
.Cells(22, 15).Resize(2, 2).Interior.ColorIndex = iClolor
.Cells(32, 18).Resize(3, 31).Interior.ColorIndex = iClolor
.Cells(9, 47).Resize(2).Interior.ColorIndex = iClolor
.Cells(7, 48).Resize(4, 8).Interior.ColorIndex = iClolor
.Cells(22, 15).Resize(2, 2).Interior.ColorIndex = iClolor
.Cells(76, 54).Resize(3, 9).Interior.ColorIndex = iClolor
.Cells(80, 35).Resize(2, 5).Interior.ColorIndex = iClolor
End With
Application.ScreenUpdating = True
End Sub
ありがとうございました。うまくいきました。あんなゴチャゴチャしている中で、規則性を見つけてループさせるように考えることができるなんてすごいです。私は何時間もやってましたが・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 政治 「このクソッタレが!」名古屋の高級焼肉店個室で“人糞”放置事件が発生 3 2022/05/30 18:30
- 飲み物・水・お茶 え!これ100%、ならば買おうかな。…しかし実際は… 10 2022/09/06 20:37
- 政治 佐渡金山の推薦書不備に怒りの声……こういうのに、統一教会の意向を受けた売国議員が暗躍してませんか? 2 2022/07/31 19:18
- 政治 辻元清美さんや蓮舫さんが何かにつけて炎上するのは、人間としてモラルがないからじゃないですか? 14 2022/09/11 11:45
- 世界情勢 中国の気球がアメリカ上空で問題になってますけど、現在でも風船爆弾みたいなアメリカ攻撃は可能ですか 3 2023/02/04 06:03
- 政治 立憲民主党が共産党と組んで、旧統一教会問題で自民党を徹底追求するぞと言った直後に辻元清美ちゃんが…… 4 2022/09/27 13:15
- 政治 福島の処理水について中国や韓国がいちゃもんをつけてくる問題って…… 9 2023/07/11 17:18
- 事件・事故 海に沈んだヘリコプターから回収された遺体って、なんで引き上げた後で死亡確認になるの? 11 2023/04/18 17:36
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- 世界情勢 韓国が公使呼び抗議 「慰安婦の強制性を薄めた」……韓国がずる賢く表現をズラしてますね? 2 2022/03/29 18:38
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
マクロを実行すると画像がズレ...
-
セル背景や文字を点滅させる方法
-
【マクロ】ファイル名の変更に...
-
範囲指定をしてPDF保存vba
-
EXCELのセルや文字色の反映
-
excelで セルの移動時に...
-
クリックすると文章が表示され...
-
セルがクリックされた回数をカ...
-
太字に設定されているセルの個...
-
セルの値が変ると自動でマクロ...
-
フォントの色を指定して削除出...
-
エクセル 未入力セルがあると...
-
現在のセルの位置を返す関数は...
-
Excelで、図形内の文字をセルに...
-
小数点以下の文字だけ書式を変...
-
エクセル マクロ 相対パスか...
-
【EXCEL】先週の月曜日の日付を...
-
Excelで挿入した図をセルの中央...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
Excelでセルをクリックす...
-
太字に設定されているセルの個...
-
Excel ハイパーリンクのURLを別...
-
Excelで、図形内の文字をセルに...
-
マクロを実行すると画像がズレ...
-
現在のセルの位置を返す関数は...
-
Excelで挿入した図をセルの中央...
-
フォントの色を指定して削除出...
-
VBA 見つからなかった時の処理
-
エクセルでの検索ボックスの作...
-
エクセル 未入力セルがあると...
-
Excel2007 色のカウント (VBA)
-
エクセルでPDFリンクを大量...
-
【EXCEL】先週の月曜日の日付を...
-
EXCELのセルや文字色の反映
-
セルがクリックされた回数をカ...
おすすめ情報