|
>コード(数字)で重複した場合はわかったのですが
>文字となるとよくわからなくて・・。
どのように解らないのかわかりません。
> a$ = Mid$(ActiveSheet.Cells(i, 1).Value, 1, 6)
> b$ = Mid$(WS2.Cells(j, 1).Value, 7, 6)
上記でやっていることを把握しているのでしょうか?
また、
> end1 = ActiveSheet.UsedRange.Rows.Count
> end2 = WS2.UsedRange.Rows.Count
これだと、
> For i = 2 To end1
> For j = 2 To end2
と、やった場合、不具合が出るような気がしますが、
UsedRange.Rows.Count
で、良いのでしょうか?
例えば、新規シートで、下記コードを確認してください。
sub aaaa()
Range("E11:H15").Value = 111
MsgBox "ActiveSheet.UsedRange.Rows.Count" & vbLf & _
ActiveSheet.UsedRange.Rows.Count
End sub
|
|