A B C D E(カウント数)
1行目 4 2 3 1
2行目 4 1 3 2 2 (1行と2行を調べる、一致したセル数を表示する)
3行目 2 3 3 4 1(1行と3行を調べる、一致したセル数を表示する)
・・・・ (1行と4行を調べる、一致したセル数を表示する)
・・・・
これでどうでしょうか。
よろしくお願いいたします。
投稿日時: 21/01/06 16:26:11
投稿者: WinArrow
なんとなく、分かりました。
参考コードです。
Sub test()
Dim RX As Long, CX As Long, KENSU As Long
For RX = 2 To 50
KENSU = 0
For CX = 1 To 4
KENSU = KENSU + Abs((Cells(1, CX).Value = Cells(RX, CX).Value))
Next
Cells(RX, "G").Value = KENSU
Next
End Sub