| |
▼みかこ さん：
>If Application.CountIf(.Range("B2:M2"), .Cells(2, i).Value) = 1 Then
>と書き換えてみました。
よくわかってませんが、
上記の方法で判定して、転記のコードを
For i = 2 To 14
next
で、挟んでいませんか？そうだと、4月が１だから転記、5月は１だから転記
6月は重複しているので転記なし、7月は１なので転記・・・と何回も転記されるのでは？
そこで、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
>教えていただいたのに、
>なんとかうまく動かないものかと奮闘いたしておりますが
>再度、ご教授いただけますでしょうか。
>宜しくお願い致します。
|
|
ponpon
- 07/10/17(水) 22:14 -
