このマクロ

（自分） マクロについて教えてください。エクセル2010です。（A) C6：T6に
84.69.62.59.58.53.52.50.49.48.47.46.41.40（ここの数字は8～18個

の数字が入り、9個の時とか12個の
時もあります。）
そのデータ（数字は同じではなくその行ごとによって違う。が２８行目まで同一の単位で２行飛びであり）

同一シートにある（B） C32：T32に84.69.62.58.53.52.50.49（ここの数字は8個の数字だけ。）
そのデータ（数字は同じではなくその行ごとによって違う。が５４行目まで同一の単位で２行飛び出あり）
（A）と（B)を比較して（B)には表示されていない（A）の抜けている数字（ここでは59.48.47.46.41.40）に
色を付ける（緑）のマクロを教えて頂きたいです。あと出来たら空白にする（59.48.47.46.41.40）のも教え
て頂きたいです。宜しくお願いします。



（答えてくれた人）
貴方の言う2行飛びとは、2行空けることではないのですか。
先頭が、6行目で２行あけていくと、最後は27行目になりますが。
Bのエリアも同様です。

それから、AとBで対応する行の比較でいいのですね。
6行目は32行目と比較、9行目は35行目と比較というように


（自分）
お急がしい所回答有り難うございます。６行目は３２行目、８行目は34行目、１0行目は36行目、12行目は38行目、14行目は40行目...28行目は54行目までという感じです。
すいません２行ではなく１行飛びでした。
AとBで対応する行の比較です。


と質問してマクロを教えてもらったのですが、

Sub Sample()
Dim i As Integer, j As Integer
Dim rng As Range
For i = 6 To 28 Step 2
Set rng = Range("C" & i + 26 & ":T" & i + 26)
For j = 3 To 20
If Application.CountIf(rng, Cells(i, j)) > 0 Then
Cells(i, j).Interior.ColorIndex = 4
End If
Next j
Next i
End Sub

同じ表があり、（Ｘ6：ＡＯ6、ＡＳ6：ＢＪ6、ＢＮ6：ＣＥ6、ＣＩ6：ＣＺ6、ＤＤ6：ＤＵ6、
ＤＹ6：ＥＰ6、ＥＴ6：ＦＫ6）
にも同じ事をしたいのですが、5行目のＣとＴの所をＸとＡＯにしても動きませんというか、色がつきません。

マクロを教えてください。宜しくおねがいします。

No.1 ベストアンサー 回答者： siffon9 回答日時： 2019/04/10 04:27

ソースをきっちりと読んでいませんが

> For j = 3 To 20

の部分、3→"C"、20→"T"に対応しているので、
この数値も変更する必要があると思います。
（”X"→24みたいに）

この回答へのお礼

有難うございました。　助かりました。

お礼日時：2019/04/10 21:09