質問編集履歴
2
文修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -33,7 +33,27 @@
|
|
|
33
33
|
また補足点や何か不足内容があれば追記いたしますので、
|
|
34
34
|
ご教示の程よろしくお願いいたします。
|
|
35
35
|
|
|
36
|
+
|
|
37
|
+
【追記】
|
|
38
|
+
画像あった方が伝わりやすいかと思い画像を追加させていただきました。
|
|
39
|
+
▼重複について
|
|
40
|
+
シート名の転記時に使用する時に使用する重複しないリストを作成、
|
|
41
|
+
Keyに紐づくitemは重複の有無関係なくKeyが同様であれば転記を行いたいと考えています。
|
|
36
42
|
```VBA
|
|
43
|
+
For I = 9 To wb2Row
|
|
44
|
+
|
|
45
|
+
list = .Cells(I, "E").Value 'Key&item
|
|
46
|
+
|
|
47
|
+
'未登録がある場合は登録(重複防止)
|
|
48
|
+
If Not dc.exists(list) Then
|
|
49
|
+
dc.Add list, ""
|
|
50
|
+
End If
|
|
51
|
+
```
|
|
52
|
+
上記コード部分で重複判別している認識なのですが、誤りでしょうか..?
|
|
53
|
+
|
|
54
|
+
|
|
55
|
+
|
|
56
|
+
```VBA
|
|
37
57
|
Option Explicit
|
|
38
58
|
|
|
39
59
|
|
1
文修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -46,7 +46,7 @@
|
|
|
46
46
|
Set wb1 = ThisWorkbook
|
|
47
47
|
|
|
48
48
|
'-----------------------------------------------------------------------------
|
|
49
|
-
'
|
|
49
|
+
'転記データの取得・展開
|
|
50
50
|
'-----------------------------------------------------------------------------
|
|
51
51
|
Dim path2 As String
|
|
52
52
|
path2 = ThisWorkbook.Sheets("データ元").Range("D2")
|