VBA　複数セルを選択したとき一番左の行しか参照されない

コードではActiveCellを選択してその列にある色付きのセルを参照するようにしています。そのときActiveCellはセルの結合をされており３列が結合されています。その３列のうち１番左の列しか参照されないので３列すべてが参照されるようにしたいです。

Sub
1    Dim ws1 As Worksheet
2    Set ws1 = ThisWorkbook.Worksheets("１")
3    Dim ws2 As Worksheet
4    Set ws2 = ThisWorkbook.Worksheets("２")
5
6    Dim i, r, kj1, kj2
7    r = 8
8    
9    ws2.Range("B8:B29").ClearContents 
10
11    For i = 10 To ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Row 
12        If ws1.Cells(i, 2).Value <> "" Then kj1 = ws1.Cells(i, 2).Value 
13        If ws1.Cells(i, ActiveCell.Column).Interior.ColorIndex <> xlColorIndexNone Then
14            If kj1 <> kj2 Then
15                kj2 = kj1
16                ws2.Cells(r, 2).Value = kj2
17                r = r + 1
18            End If
19            ws2.Cells(r, 2).Value = ws1.Cells(i, 4).Value
20            r = r + 1
21        End If
22    Next
23End Subここに言語を入力
24コード

よろしくお願いします。

hatena19

2022/01/13 05:13

画像が表示されてませんので、アップロードしておしてください。 > その３列のうち１番左の列しか参照されないので３列すべてが参照されるようにしたいです。結合セルは１番左の列にしか値は入っていません。他の2列は空欄です。空欄ときまっているものを参照しても無意味です。このことを踏まえたうえでどうしたいのでしょう。

321Kurumins

2022/01/13 07:20

すみませんなぜか画像が貼れなくなっています。テラテイルのアップデートで一部機能が使えないようなのでそのせいかもしれません。画像はよくある工程表なのですが工程のある日はセルを塗りつぶしています。結合セルは日にちになっていてその下３列で午前午後残業と分けてあります。塗りつぶしセルを参照するようにしているのですが午前分しか参照されないので１日すべてを参照するようにしたいです。

行動規範の内容に同意します

回答1件

ベストアンサー

これでどうでしょうか。

For i = 10 To ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Row
    If ws1.Cells(i, 2).Value <> "" Then kj1 = ws1.Cells(i, 2).Value

    Dim c As Range
    For Each c In ActiveCell.MergeArea.Cells
        If ws1.Cells(i, c.Column).Interior.ColorIndex <> xlColorIndexNone Then
            If kj1 <> kj2 Then
                kj2 = kj1
                ws2.Cells(r, 2).Value = kj2
                r = r + 1
            End If
            ws2.Cells(r, 2).Value = ws1.Cells(i, 4).Value
            r = r + 1
            Exit For
        End If
    Next c
Next i

投稿2022/01/13 07:25