|
▼ponpon さん:
お返事ありがとうございます。
>>各ファイルの売上というシートのA2:M2の範囲に
>>4月、5月・・・と月が書かれています。
>>この中に重複する月がないかを調べ、
>↑
>ここだけ
>A2:M2の範囲だと4月から4月までになり、4月が重複しませんか?
>
申し訳ありません。間違えてしまいました。
range("B2:M2")です。
>Sub test()
> Dim i As Long
>
> With Sheets("売上")
> For i = 2 To 14
> If Application.CountIf(.Range("B2:M2"), .Cells(2, i).Value) > 1 Then
> MsgBox "重複があります"
> Exit For
> End If
> Next
> End With
>End Sub
↑間違ってしまったところは変えて返信しています。
ご教授いただきましたコードでは
B2:M2の中で重複があれば転記してしまうので
If Application.CountIf(.Range("B2:M2"), .Cells(2, i).Value) > 1 Then
の部分を
If Application.CountIf(.Range("B2:M2"), .Cells(2, i).Value) = 1 Then
と書き換えてみました。
結果、重複検索関係なく全部のファイルが転記されてしまい
かつ
転記作業がひとつのファイルに対して何回も行われてしまいました。
↓こんな感じです。
番号 値段
NO.123 200
NO.123 200
NO.123 200
NO.123 200
NO.123 200
NO.123 200
NO.123 200
NO.123 200
・
・
・
教えていただいたのに、
なんとかうまく動かないものかと奮闘いたしておりますが
再度、ご教授いただけますでしょうか。
宜しくお願い致します。
|
|