質問編集履歴
3
test
CHANGED
File without changes
|
test
CHANGED
@@ -22,19 +22,17 @@
|
|
22
22
|
|
23
23
|
◆現状
|
24
24
|
|
25
|
-
→Mid関数を使い、i番目の会社の文字列を特定し抜き出すことができずにいます。
|
26
|
-
|
27
|
-
"、"の数をカウントし、cnt個あることがわかり、会社数はcnt+1個あるとわかりました。
|
25
|
+
"、"の数をカウントし、"、"がcnt個あることがわかり、会社数はcnt+1個あるとわかりました。
|
28
26
|
|
29
27
|
|
30
28
|
|
31
29
|
◆不明点
|
32
30
|
|
33
|
-
分からないのは、i番目の会社の文字列
|
31
|
+
分からないのは、Mid関数を使い、i番目の会社の文字列を特定し、抜き出す部分です。
|
34
32
|
|
35
|
-
i番目の会社
|
33
|
+
特に、i番目の会社の文字列の開始位置をどのように指定し、プログラムを組むか、というところです。
|
36
34
|
|
37
|
-
|
35
|
+
具体的には、
|
38
36
|
|
39
37
|
|
40
38
|
|
@@ -44,13 +42,25 @@
|
|
44
42
|
|
45
43
|
となるので、
|
46
44
|
|
45
|
+
i番目の会社は、
|
46
|
+
|
47
|
+
|
48
|
+
|
49
|
+
i番目の会社は、
|
50
|
+
|
51
|
+
=InStr(InStr(InStr...Instr(Original,Kigou)+1),Original,Kigou)+1),...,Original,Kigou)+1)
|
52
|
+
|
53
|
+
|
54
|
+
|
55
|
+
この式を自動的に作成するため、
|
56
|
+
|
47
|
-
|
57
|
+
2番目の会社の式の前に、
|
48
58
|
|
49
59
|
文字列"InStr("を(i-1)回足し、
|
50
60
|
|
51
61
|
2番目の会社の式の後に",Original,Kigou)+1)をi-2回足せばi番目の式になり、それが計算できれば良いと思っているのですが、生成した文字がStringのせいか、何のせいか、計算されません。
|
52
62
|
|
53
|
-
急いでい
|
63
|
+
急いでいて間違えているかもしれません。
|
54
64
|
|
55
65
|
ご教示下さい。
|
56
66
|
|
2
test
CHANGED
File without changes
|
test
CHANGED
@@ -4,7 +4,7 @@
|
|
4
4
|
|
5
5
|
という文字列*が入っている時、"、"を使って、各文字を、以下のように分割したいです。
|
6
6
|
|
7
|
-
* 字数は不規則、文字列は全て"、"で
|
7
|
+
* 字数は不規則、文字列は全て"、"で区切られていること以外規則性はなし、各文字列は上記では5つですが、実際はいくつ入っているかわかりません。
|
8
8
|
|
9
9
|
|
10
10
|
|
1
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,6 +1,6 @@
|
|
1
1
|
vbaで、1つの変数(以下では変数Original)に
|
2
2
|
|
3
|
-
B、CC、DDD、EE、FABC
|
3
|
+
B社、CC社、DDD社、EE社、FABC社
|
4
4
|
|
5
5
|
という文字列*が入っている時、"、"を使って、各文字を、以下のように分割したいです。
|
6
6
|
|