|
VBA初心者です。
以下の条件でマクロを組みたいと思っています。
検索で探してみましたがよくわからなかったので
質問させてください。
シート1にある文字(書名)が
シート2で重複(書名)していれば
シート1のセルに印をつけるというプログラミングを
教えていただけないでしょうか。
コード(数字)で重複した場合はわかったのですが
文字となるとよくわからなくて・・。
ちなみにコード(数字)、以下のようにプログラミングしました。
Sub 変換1()
Dim i, j, endofrow, endofcol As Integer
Set WS2 = ActiveSheet.Next
end1 = ActiveSheet.UsedRange.Rows.Count
end2 = WS2.UsedRange.Rows.Count
For i = 2 To end1
For j = 2 To end2
a$ = Mid$(ActiveSheet.Cells(i, 1).Value, 1, 6)
b$ = Mid$(WS2.Cells(j, 1).Value, 7, 6)
If a$ = b$ Then
' ActiveSheet.Cells(j, i).Interior.ColorIndex = 3
ActiveSheet.Cells(i, 3) = "*"
End If
Next j
Next i
End Sub
よろしくお願いいたします。
|
|