質問編集履歴
3
c
test
CHANGED
File without changes
|
test
CHANGED
@@ -52,7 +52,7 @@
|
|
52
52
|
|
53
53
|
'Eからみぎのセルに貼り付ける
|
54
54
|
|
55
|
-
Cells(i, "E").Resize(, j).Value =
|
55
|
+
Cells(i, "E").Resize(, j).Value = a
|
56
56
|
|
57
57
|
Next
|
58
58
|
|
2
code
test
CHANGED
File without changes
|
test
CHANGED
@@ -40,7 +40,7 @@
|
|
40
40
|
|
41
41
|
'もし文頭が記号から始まれば1文字のみ取る
|
42
42
|
|
43
|
-
If Left(
|
43
|
+
If Left(a(j), 1) = "『" Then
|
44
44
|
|
45
45
|
a(j) = Left(a(j), 1)
|
46
46
|
|
1
code
test
CHANGED
File without changes
|
test
CHANGED
@@ -20,19 +20,19 @@
|
|
20
20
|
|
21
21
|
'Dのテキストを格納する
|
22
22
|
|
23
|
-
|
23
|
+
b = WorksheetFunction.Clean(Cells(i, "D").Text)
|
24
24
|
|
25
|
-
|
25
|
+
b = Replace(b, c, "")
|
26
26
|
|
27
27
|
'記号の次
|
28
28
|
|
29
29
|
For Each v In Array("。")
|
30
30
|
|
31
|
-
|
31
|
+
b = Replace(b, v, c, , , vbTextCompare)
|
32
32
|
|
33
33
|
Next
|
34
34
|
|
35
|
-
|
35
|
+
a = Split(WorksheetFunction.Trim(b), c)
|
36
36
|
|
37
37
|
'0行目から最終行まで
|
38
38
|
|
@@ -42,11 +42,11 @@
|
|
42
42
|
|
43
43
|
If Left(b(j), 1) = "『" Then
|
44
44
|
|
45
|
-
|
45
|
+
a(j) = Left(a(j), 1)
|
46
46
|
|
47
47
|
End If
|
48
48
|
|
49
|
-
|
49
|
+
a(j) = Left(a(j), 2)
|
50
50
|
|
51
51
|
Next
|
52
52
|
|