VBAで、離れた複数の列に対して処理を施すには？

Question

VBAでマクロを組んでいたところ、問題が出てきたので質問させてください。
1．任意の列を全選択する(たとえばA列とC列という離れた列です)
2．その列の中でも、すべての行にではなく、数行にだけセル結合解除という処理を施す
というマクロを組もうとしています。

しかし、全選択した列の一部の行(画像参照)にだけ処理を施す、というのができません。
1列だけ全選択→セル結合解除、というのはできるのですが、複数の列(しかも列同士が隣り合っていない)に対して処理を施すというのがうまくいかず…。

以下のようにマクロを作成してみたのですが、どこが問題になってるのでしょうか？
アドバイスいただけると幸いです。

Sub test1()
　Dim intX_1 As Long
　Dim intX_2 As Long
　Dim rg1 As Range
　Dim rg2 As Range

Set rg1 = Range(CStr(ActiveWindow.RangeSelection.Address))
　For Each rg2 In rg1
    '選択した列のうち、2行目～最後のデータが存在する行まで処理を行う
    intIX_1 = 2
    While rg2(intIX_1) <> ""
         rg2(intIX_1).MergeCells = False
　　　　intIX_1 = intIX_1 + 1
         If rg2(intIX_1) = "" Then
            Exit For
        End If
    Wend
  Next

End Sub

puddingeater · Accepted Answer

個別の範囲なら処理できる、しかし複数の選択範囲を個別の範囲にバラす方法が分からない、というのが質問の核のようなので…。
Excel VBAのヘルプでRangeオブジェクトのプロパティを見ていくと、Areasというのがあります。
これでインデックスを指定して個別に参照できます。

Sub aaaa()

Dim i As Integer
Dim r As Range  '列を参照する

For i = 1 To Selection.Areas.Count
Set r = Selection.Areas(i)

'列ごとの処理を実施
MsgBox r.Address & " -> " & r.Rows("3:5").Address

Next
End Sub

mitarashi · Answer

ちょっと横からおじゃまさせていただきます。
オブジェクト変数を使わずに、たとえば
Range("$A:$A,$D:$E")
から、スマートに単独の列をとりだす方法は思いつきませんので、オブジェクト変数を用います。
Sub test1()
  Dim targetRange As Range, myArea As Range, myColumn As Range
  '一旦、オブジェクト変数に受けると、インテリセンスが効いて
  'Rangeオブジェクトの様々なメンバが表示されるので、参考になります
  Set targetRange = Selection
  'Range("$A:$A,$D:$E")の様な場合に対応するため、下記が常道
  For Each myArea In targetRange.Areas
    For Each myColumn In myArea.Columns
      Debug.Print myColumn.Address
    Next myColumn
  Next myArea
  '下記でも結果は同じでした
'  For Each myColumn In targetRange.Columns
'    Debug.Print myColumn.Address
'  Next myColumn
  'しかし
  'Debug.Print targetRange.Columns.Count
  'は最初の群の列数1を戻し、総列数の3は戻しません
End Sub

さて、本題に戻って、

Sub test2()
  Dim myColumn As Range
  
  For Each myColumn In Selection.Columns
     '一列に対する処理を記述
  Next
End Sub

とすれば良いですが、ご質問の文中のロジックでは、一列に対する処理の方も動かないと思います。
intIX_1 = intIX_1 + 1
では、次の結合セルに移りません。次の行に行くだけです。
intIX_1 = intIX_1 + 当該結合セルの行数（Range(...).MergeArea.Rows.Count）
にしなければいけませんね。
（他にOffset(1,0)で移る方法もあります）

ご参考まで。

0909union · Answer

大事な事忘れていました。

よく素人の方だと、バージョンをまったく無視して作る方が多いです。それで、何でできないのかと、よくここで質問されます。

何のバージョンのエクセルを対象にしているか、記載しましょう。もっともちゃんと理解しているなら、最初からバージョンの記載はあるはずですが

また、COMからのアクセスは、そのプラットフォームに依存するので、例えばコレクションや引数の指定などは、できない場合もあります。それはマイクロソフトのMSDNのサイトにテクニカル情報として、どうすればいいいか記載があります。

と言うことは、COMで使用している場合は、呼び出し元も記載しないと、明確にできるとかできないとか言い切れるものではありません。

0909union · Answer

偶然にもNO2の方と意見がいっちしてようで、びっくりしています。

言っておきますが、No2とNo1は関係ないので、そこんとこよろしく。

＞それをRange("E1:E12,G1:G12,I1:I12").Selectに変換するなんて、たぶんできないですよね

それでいいんです。このような発想を、”机上の空論”というのです。実際にやってみましたか？

このようにできるのか、できないのかを実際にやってみて、試行錯誤するのが初心者です。

みんなやっています。そこで、いろんなやり方があるのだと理解が深まるのです。

開発は、まず理論武装します。その次に、それを実践するために、設計します。その設計段階で、理論と合わないところや、やり方ににつまります。それで、実際に、実験をしてみます。

その実験は、検証といって、ただやるのではなく、あらゆる場合も想定して、ケースを作るのです。例えば３つの物の組み合わせは、３X3＝9通りが理論ですね。

実証するときは、例えば、トランプを用意して、実際に、組み合わせを並べます。これが実証です。

この事例は簡単な話なのでイメージできないと思いますが、このようにすると見えないものが見えてくるのが実証実験です。何も見えないのなら、才能が無いということで、あきらめてください。

あなたの場合、やりもしないで、ただ子供が口をあけてまっているみたいに、「できないですよね」。

別に質問者ができようと、できまいと、回答者には何の関係もありません。あ、そ。で終わりです。

金をもらっているわけでもないし、責任があるわけでもない。個人的に講習料をいただけるなら別ですが・・・

ちなみに、ちゃんとコードを分析していないですよね？？？

＞たぶんできないですよね。

それはちゃんとマニュアルみましたか？　エクセルに付属しているヘルプにリファレンスがあるので、そこを見れば、何が引数になるか、書式がでています。見ていないことがばればれですよね。

さらにいえば、このコードのポイントは、セレクトして、アクティブです。それでアクティブになったセレクションイオブジェクトになるわけです。

GUIソフトはGUI的にといったはずです。

ためさないということは、ただの釣りの質問ですよね。

imogasi · Answer

初心者にとって、大事なことを忘れていませんか。
それはマクロの記録を採って、それでは記録が採れない問題化、使えないか検討し、修正箇所・方法を勉強することです。
ーー
本件はマクロの記録を採ってみると
Ｃ列とＦ列の例で
Sub test01()
Range("C1:C12,F1:F12").Select
    With Selection
   .MergeCells = False
    End With
End Sub
となりました。（一部行を不要として削除してます。）
まずこれ（または一部修正して）を実行して、質問者が検討をして、それではニーズに合わない場合、それを柱にして質問をするぐらいしてほしい。
ーー
範囲全域の結合セルをすべて解除するなら、全セルについて繰り回しをする必要ないのは知っているのかな。
書式はセル範囲の全体に一発で設定できるのだ。

0909union · Answer

Range("E:E,G:G,I:I").Select
    Range("I1").Activate
    With Selection
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

を改良してつかってください。マクロの記録を使ってだしたものです。

私はこうして自動かしています。もっと早く解決する方法ですね。できなかったときに、何のオブジェクトなんだと考えると、理解が深まります。アクティブな物に対して行うものと、プログラム的に、セル選択、処理だと、あれれれ、というのが多いのがエクセル、ワード、オブジェクトです。

GUIソフトは、GUI的に処理するのが無難です。

VBAで、離れた複数の列に対して処理を施すには？

個別の範囲なら処理できる、しかし複数の選択範囲を個別の範囲にバラす方法が分からない、というのが質問の核のようなので…。

ちょっと横からおじゃまさせていただきます。

大事な事忘れていました。

偶然にもNO2の方と意見がいっちしてようで、びっくりしています。

初心者にとって、大事なことを忘れていませんか。

Range("E:E,G:G,I:I").Select

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング