回答編集履歴
2
コード修正
test
CHANGED
|
@@ -22,7 +22,7 @@
|
|
|
22
22
|
|
|
23
23
|
If Not 抽出文字列 Like "*," & Range("A1").Offset(j, 0).Value & ",*" Then
|
|
24
24
|
|
|
25
|
-
抽出文字列 = 抽出文字列 & "," & Range("A1").Offset(j,
|
|
25
|
+
抽出文字列 = 抽出文字列 & "," & Range("A1").Offset(j, 0).Value
|
|
26
26
|
|
|
27
27
|
End If
|
|
28
28
|
|
1
コード修正
test
CHANGED
|
@@ -1,4 +1,10 @@
|
|
|
1
1
|
対象の範囲内で重複した文字列を飛ばして配列に格納っていうことで良ければゴリ押しですが
|
|
2
|
+
|
|
3
|
+
|
|
4
|
+
|
|
5
|
+
追記:
|
|
6
|
+
|
|
7
|
+
このコード1行or1列しか対応できません
|
|
2
8
|
|
|
3
9
|
|
|
4
10
|
|
|
@@ -14,7 +20,7 @@
|
|
|
14
20
|
|
|
15
21
|
For j = 0 To Range(抽出範囲終点).Row
|
|
16
22
|
|
|
17
|
-
If Not 抽出文字列 Like "*," & Range("A1").Offset(j,
|
|
23
|
+
If Not 抽出文字列 Like "*," & Range("A1").Offset(j, 0).Value & ",*" Then
|
|
18
24
|
|
|
19
25
|
抽出文字列 = 抽出文字列 & "," & Range("A1").Offset(j, i).Value
|
|
20
26
|
|