データを各シートに自動振り分け

Question

データシートの「営業所」ごとに各シートに自動振り分けしたいです。
データシートは都度上書しますが、各シートに振り分けられたデータは残したまま
最後の行からデータを挿入させていきたいです。
品番が重複するものがあれば、新しいデータのものを削除したいです。
各シート全て、5行目が項目行となります。
最初のデータはC6からの挿入です。
(矢印下の画像はシート"1"の振分後のデータになります。)

Set Sh2 = Sheets(c.Text)でデバッグとなるのですが、何が原因なのでしょうか。

アドバイスよろしくお願いいたします```

Dim c As Range
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim FRange As Range

Set Sh1 = Sheets("?f?[?^")
For Each c In Sh1.Range(Sh1.Cells(2, "A"), Sh1.Cells(Rows.Count, "A").End(xlUp))
Set Sh2 = Sheets(c.Text)
Set FRange = Sh2.Range(Sh2.Cells(6, "C"), Sh2.Cells(Rows.Count, "C").End(xlUp)). _
Find(What:=c.Offset(0, 2).Value, LookIn:=xlValues, lookat:=xlWhole)
If FRange Is Nothing Then
Sheets(c.Text).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(1, 10).Value = _
c.Resize(1, 10).Value
End If
Set Sh2 = Nothing
Next
Set Sh1 = Nothing
End Sub
コード

Comments

[DreamTheater]

ご自身が書いたコードはないのですか？
VBAコードが書けないのであれば、先ずはVBAを勉強してください。
丸投げは誰も回答しませんよ。

Answer 1

直前で
Debug.print c.Text
で何が表示されますか？