teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

作成したコードを添付します。

2020/05/27 08:36

投稿

mika99
mika99

スコア0

title CHANGED
File without changes
body CHANGED
@@ -8,4 +8,27 @@
8
8
  最初のデータはC6からの挿入です。
9
9
  (矢印下の画像はシート"1"の振分後のデータになります。)
10
10
 
11
+ Set Sh2 = Sheets(c.Text)でデバッグとなるのですが、何が原因なのでしょうか。
12
+
11
- アドバイスよろしくお願いいたします
13
+ アドバイスよろしくお願いいたします```
14
+
15
+ ```Sub Test()
16
+ Dim c As Range
17
+ Dim Sh1 As Worksheet, Sh2 As Worksheet
18
+ Dim FRange As Range
19
+
20
+ Set Sh1 = Sheets("?f?[?^")
21
+ For Each c In Sh1.Range(Sh1.Cells(2, "A"), Sh1.Cells(Rows.Count, "A").End(xlUp))
22
+ Set Sh2 = Sheets(c.Text)
23
+ Set FRange = Sh2.Range(Sh2.Cells(6, "C"), Sh2.Cells(Rows.Count, "C").End(xlUp)). _
24
+ Find(What:=c.Offset(0, 2).Value, LookIn:=xlValues, lookat:=xlWhole)
25
+ If FRange Is Nothing Then
26
+ Sheets(c.Text).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(1, 10).Value = _
27
+ c.Resize(1, 10).Value
28
+ End If
29
+ Set Sh2 = Nothing
30
+ Next
31
+ Set Sh1 = Nothing
32
+ End Sub
33
+ コード
34
+ ```