VBA最終列の取得/不規則な処理

質問

VBAにて、最終列の取得ができません。
また、繰り返し処理を3列処理、step5、3列処理、step5…と繰り返し行う方法もご教授いただきたいです。

エクセルはo365を使用しております。

①最終列の取得
実際は300列近くの表になります。
最終行は取得できたのですが、最終列がなぜかエラーも出ず、処理が行われません。

②不規則な繰り返し処理
画像の水色部分のみ処理を行いたいです。
3列処理と記載したのですが、セル結合しているので、考え方が合っているのかも不明です。
塗りつぶされているセル一つ一つに処理を行いたいです。
また、行列共に可変します。

実行したいマクロは、選択したブックのSheets(1)の表の中の水色に入力されている文字列が「1」か「2」か判断するというものです。
「１」と入力されていれば　→ 別ブックのA1セルに１をカウント
「２」と入力されていれば　→ 別ブックのB1セルに１をカウント
※水色セルは参考で用意したものなので、実際は塗りつぶしされていません。
※空白のセルもあります

①②の解消法のご教授をよろしくお願い致します。

===============================================

Option Explicit

Sub kurikaeshi()

Dim retu As Long, gyou As Long
Dim File As Workbook
Set File = Workbooks("test.xlsx")

Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = File.Sheets(1)
Set ws2 = ThisWorkbook.Sheets(1)

Workbooks.Open FileName:=ThisWorkbook.Path & "/" & File

For retu = 2 To ws1.Cells(4, ws1.Columns.Count).End(xlToLeft).Column 'ここが処理されません
For gyou = 4 To ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Rows

If ws1.Cells(gyou, retu).Value = "1" Then

ws2.Range("A1") = ws2.Range("A1") + 1

If ws1.Cells(gyou, retu).Value = "2" Then

ws2.Range("B1") = ws2.Range("B1") + 1
End If

Else
Exit Sub
End If

Next gyou
Next retu

End Sub

回答No.2

kon555 · ベストアンサー

>> ①最終列の取得
　画像からすると結合セルが対象のようですが、結合セルは範囲中の1番左上のセルとしてアドレスが返りますので、そのあたりが原因でしょう。
　画像の例なら1行2列分が結合してあるようですから、プログラムは最終列ではなく一つ左の列を最終として捕まえてしまいます。
　例外なく結合されているなら、『Cells(4, ws1.Columns.Count).End(xlToLeft).Column+1』で一列ズラせば解決すると思います。
　また出来れば『処理されない』で終わらせず、ステップ処理などで変数の内容を確認するようにしましょう。
https://asatte.biz/vba-debug-menu/

>> 繰り返し処理を3列処理、step5、3列処理、step5…と繰り返し行う方法
　これは、例えば『1.2.3列を処理、4〜8列処理なし、9.10.11列を処理、12〜16列処理なし』でいいですか？
　色々方法もありますが、このような場合には別の変数を作ってカウントするのが分かりやすいです。
　例えば変数iを作り、For〜next処理の中でi=i+1でカウントして、if i=3 then retu = retu +5、とすれば処理をスキップさせられます。

お礼

共に解消いたしました！
勉強になりました。ありがとうございます！

回答No.5

n-jun

回答No.4 です。

そう言えば他のセルにどのようなデータがあるのか不明ですが、

＞入力されている文字列が「1」か「2」か判断するというものです。

本当に文字列なのかは置いといて（Excelは数値に出来る場合は勝手に数値にしちゃう。もしかしてやっぱり数式があるのかな？）。

１か２のカウントってならCountIfにて個数を調べるのもありかもです。
他のセル部分にはない値ならセル全体を範囲とすれば最終データ云々も関係ないように思う。
３列分を個々でカウントしたいなら、それぞれを３倍すれば良いのでは？

回答No.4

n-jun

回答No.3 です。

サンプルの画像が正確だとしたら、これって最終行のＢ列にデータがない時があったら、適切な最終行を取得する事は出来ないのでは？
空白に見えるセルに数式とか埋め込んでいるなら別かもですけど、本当にまっさらなら『別の列の値』が最終行となり得るかなと。
Ｂ列の最後の値が『絶対的な最終データである』と言う定義づけされているなら良いのですが、途中の空白が気になりますね。

この場合始点はＢ４であったとしても終点については、『不特定セルアドレス』をチェックする必要があるのでは？と思います。
なのでFor~NextやFor Each~Nextでは厳しいのかなと初級レベルは感じます。
確かにUsedRangeを使えば或いは？とは思いますが、余り使う方は少ないのかなと。

ちょっとした疑問ですので『問題なし！』ならスル～してください。

＞また、行列共に可変します。

どのように変わるのかですが、３列の結合セル＋５列の単独セルであれば個人的ならOffsetプロパティ
https://www.limecode.jp/entry/trap/mergecell-offset
を用います。

回答No.3

n-jun

If ws1.Cells(gyou, retu).Value = 1 Then ws2.Range("A1") = ws2.Range("A1") + 1

If ws1.Cells(gyou, retu).Value = 2 Then ws2.Range("B1") = ws2.Range("B1") + 1

判定式で数値と数字を間違えているのと、
1であった時に2である判定を行う書き方が変なのと、
1でなかった時に中断するのがおかしいように思います。
初級レベルなので勘違いかもですけど。

回答No.1

imogasi

小生は本質問のポイントを捉えられてない。
この程度の画像だけで、セルのデータも質問（画像でも）に掲げられていなくて、何をしようとしているのか、質問文から推測もできず、答えられないが、下記をやって見ると、
●
第2行目のD,E列が結合されている場合
テストでは、下記のようになる。
これの類推から、対策を考えざるを得ないように思うが、どういう処理か判らないので、何も言いようがない。
Sub test01()
c = Worksheets("Sheet1").Range("z2").End(xlToLeft).Column
MsgBox c 'D列の４が返る。５ではない。
For i = 1 To c
If Cells(2, i).MergeCells Then
MsgBox 2 & "行," & i & "列 = は結合されています"
End If
MsgBox Cells(2, i)
Next i
MsgBox Cells(2, 5)
End Sub
Sub test02()
'Cells(2, 5)　　はエラーではない
If Cells(2, 5).MergeCells Then
MsgBox 2 & "行," & 5 & "列 = は結合されています" '結合はTRUE
End If
MsgBox Cells(2, 5) '空白
End Sub
もっと質問者自身が、色々試行してみて、論点を整理し、その点の対策に絞って質問すべきだと思う。
＝＝＝
●繰り返し処理？
＞3列処理、step5、3列処理、step5…と繰り返し行う方法
の意味も、よく判らない。step5はSkip5（次に続く５列は処理を飛ばす）の意味か？
3列処理は各列で独立の処理か？３列の合計のように３列グループでの処理か？
推測では、
イレギュラーなルールは、各々を表（実際のは表ではなく配列）にするーー＞配列にすることを考えて、処理は同じパターンになるように考えるのが良いと思う。