|
▼みかこ さん:
>If Application.CountIf(.Range("B2:M2"), .Cells(2, i).Value) = 1 Then
>と書き換えてみました。
よくわかってませんが、
上記の方法で判定して、転記のコードを
For i = 2 To 14
next
で、挟んでいませんか?そうだと、4月が1だから転記、5月は1だから転記
6月は重複しているので転記なし、7月は1なので転記・・・と何回も転記されるのでは?
そこで、Flgで重複かどうかを判定し、重複がなければ転記というようにしてみたらどうでしょう?
Option Explicit
Sub test3()
Dim i As Long
Dim Flg As Boolean
Flg = True
With Sheets("売上")
For i = 2 To 13
If Application.CountIf(.Range("B2:M2"), .Cells(2, i).Value) > 1 Then
Flg = False
Exit For
End If
Next
End With
If Flg Then
’転記処理
End If
>教えていただいたのに、
>なんとかうまく動かないものかと奮闘いたしておりますが
>再度、ご教授いただけますでしょうか。
>宜しくお願い致します。
|
|