繰り返しマクロについて
先日、マクロについて質問をさせていただきました。
常に右側の列と左側の列のデータを比較して、右側の列のデータが多ければ「↑」マークを、同じなら「―」マークを、少なければ「↓」マークを表示させたいのです。
最初にデータを入れる列はD列7行目から30行目まで。次はE列に同じようににデータ入力した後ににマクロを実行します。これをM列7行目から30行目まで、列に新しいデータを入れるたびに毎回繰り返したいのです。 矢印マークは 常にN列に表示。
で、以下のようなマクロを教えていただきましたが、このマクロだと 比較がされる列が、絶えずD列と、新しく入力した列になってしまいます。
先ほども書きましたが、比較する列は、D列とE列 それが終わったらE列とF列 次はF列とG列 というように常に右側とその直ぐ左側の列の比較をしたいのです。
もう一度 お教えいただきたいのですが、よろしくお願いいたします。
回答いただいたマクロを下に入れておきます。
Sub test()
Dim i, j, k As Long
Dim vl1, vl2 As Variant
For i = 4 To 30
If WorksheetFunction.Count(Range(Cells(i, 4), Cells(i, 13))) > 1 Then
j = 4
Do Until Cells(i, j) <> ""
j = j + 1
Loop
vl1 = Cells(i, j)
For k = 4 To 13
If Cells(i, k) <> "" Then
vl2 = Cells(i, k)
End If
Next k
If vl1 > vl2 Then
Cells(i, 14) = "↓"
ElseIf vl1 = vl2 Then
Cells(i, 14) = "→"
Else
Cells(i, 14) = "↑"
End If
Else
Cells(i, 14) = ""
End If
Next i
End Sub
お礼
単語自体が読めてこそ、意味が理解できると思ったもので、 読み方字体が知りたいと思っていました。 どうも、ありがとうございます。