回答編集履歴
2
コード修正
test
CHANGED
@@ -29,6 +29,8 @@
|
|
29
29
|
|
30
30
|
|
31
31
|
SplitTSV = Split(Join(cols, ""), vbCrLf)
|
32
|
+
|
33
|
+
'SplitTSV = Split(Join(cols, """"), vbCrLf) '"を残したい場合はこちらで
|
32
34
|
|
33
35
|
End Function
|
34
36
|
|
1
誤字の修正
test
CHANGED
@@ -1,6 +1,6 @@
|
|
1
1
|
正規表現を使うと一発でできると思いますが、私は苦手なので、
|
2
2
|
|
3
|
-
S
|
3
|
+
Split と Join で書いてみました。
|
4
4
|
|
5
5
|
|
6
6
|
|
@@ -60,10 +60,10 @@
|
|
60
60
|
|
61
61
|
ロジック
|
62
62
|
|
63
|
-
0. 引用符 " で分割する(Split)と、配列の奇数番目の要素が " で囲まれた部分になる。
|
63
|
+
0. 引用符 " で分割する(Split)と、配列の奇数番目(1,3,5...)の要素が " で囲まれた部分になる。
|
64
64
|
|
65
|
-
0. 偶数番目の要素のタブを別の区切り文字(改行)に置換する。
|
65
|
+
0. 偶数番目(0,2,4...)の要素のタブを別の区切り文字(改行)に置換する。
|
66
66
|
|
67
67
|
0. 配列をJoinで結合する。
|
68
68
|
|
69
|
-
0. 区切り文字(改行)で分割する。
|
69
|
+
0. 結合した文字列を区切り文字(改行)で分割する。
|