質問編集履歴
3
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -10,21 +10,26 @@
|
|
|
10
10
|
A5セル:FABC社
|
|
11
11
|
|
|
12
12
|
◆現状
|
|
13
|
-
→Mid関数を使い、i番目の会社の文字列を特定し抜き出すことができずにいます。
|
|
14
|
-
"、"の数をカウントし、cnt個あることがわかり、会社数はcnt+1個あるとわかりました。
|
|
13
|
+
"、"の数をカウントし、"、"がcnt個あることがわかり、会社数はcnt+1個あるとわかりました。
|
|
15
14
|
|
|
16
15
|
◆不明点
|
|
16
|
+
分からないのは、Mid関数を使い、i番目の会社の文字列を特定し、抜き出す部分です。
|
|
17
|
-
|
|
17
|
+
特に、i番目の会社の文字列の開始位置をどのように指定し、プログラムを組むか、というところです。
|
|
18
|
-
|
|
18
|
+
具体的には、
|
|
19
|
-
=InStr(InStr(InStr...Instr(Original,Kigou)+1),Original,Kigou)+1),...,Original,Kigou)+1)
|
|
20
19
|
|
|
21
20
|
1番目の会社は1,
|
|
22
21
|
2番目の会社は=InStr(Original,Kigou)+1
|
|
23
22
|
となるので、
|
|
23
|
+
i番目の会社は、
|
|
24
|
+
|
|
25
|
+
i番目の会社は、
|
|
26
|
+
=InStr(InStr(InStr...Instr(Original,Kigou)+1),Original,Kigou)+1),...,Original,Kigou)+1)
|
|
27
|
+
|
|
28
|
+
この式を自動的に作成するため、
|
|
24
|
-
|
|
29
|
+
2番目の会社の式の前に、
|
|
25
30
|
文字列"InStr("を(i-1)回足し、
|
|
26
31
|
2番目の会社の式の後に",Original,Kigou)+1)をi-2回足せばi番目の式になり、それが計算できれば良いと思っているのですが、生成した文字がStringのせいか、何のせいか、計算されません。
|
|
27
|
-
急いでい
|
|
32
|
+
急いでいて間違えているかもしれません。
|
|
28
33
|
ご教示下さい。
|
|
29
34
|
どうぞよろしくお願い致します。
|
|
30
35
|
|
2
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
vbaで、1つの変数(以下では変数Original)に
|
|
2
2
|
B社、CC社、DDD社、EE社、FABC社
|
|
3
3
|
という文字列*が入っている時、"、"を使って、各文字を、以下のように分割したいです。
|
|
4
|
-
* 字数は不規則、文字列は全て"、"で
|
|
4
|
+
* 字数は不規則、文字列は全て"、"で区切られていること以外規則性はなし、各文字列は上記では5つですが、実際はいくつ入っているかわかりません。
|
|
5
5
|
|
|
6
6
|
A1セル:B社
|
|
7
7
|
A2セル:CC社
|
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
vbaで、1つの変数(以下では変数Original)に
|
|
2
|
-
B、CC、DDD、EE、FABC
|
|
2
|
+
B社、CC社、DDD社、EE社、FABC社
|
|
3
3
|
という文字列*が入っている時、"、"を使って、各文字を、以下のように分割したいです。
|
|
4
4
|
* 字数は不規則、文字列は全て"、"で限られていること以外規則性はなし、各文字列は上記では5つですが、実際はいくつ入っているかわかりません。
|
|
5
5
|
|