回答編集履歴
2
修正
test
CHANGED
@@ -8,8 +8,6 @@
|
|
8
8
|
|
9
9
|
|
10
10
|
```VBA
|
11
|
-
|
12
|
-
|
13
11
|
Dim str1 As String '一行目
|
14
12
|
Dim str2 As String '二行目
|
15
13
|
Dim strSplit As String
|
1
誤記
test
CHANGED
@@ -8,6 +8,8 @@
|
|
8
8
|
|
9
9
|
|
10
10
|
```VBA
|
11
|
+
|
12
|
+
|
11
13
|
Dim str1 As String '一行目
|
12
14
|
Dim str2 As String '二行目
|
13
15
|
Dim strSplit As String
|
@@ -15,12 +17,18 @@
|
|
15
17
|
Dim s As String
|
16
18
|
Dim row_ As Long '操作したい行が入ってるとします(for文とかで回すと思います)
|
17
19
|
|
18
|
-
|
19
20
|
'処理~~~~
|
21
|
+
'Columns("L:L").Select
|
20
22
|
|
21
23
|
'判別部分
|
22
24
|
strSplit = ""
|
23
25
|
s = ""
|
26
|
+
row_ = 1
|
27
|
+
|
28
|
+
For row_ = 1 To Cells(Rows.count, 1).End(xlUp).Row
|
29
|
+
|
30
|
+
str1 = Cells(row_, "L")
|
31
|
+
str2 = Cells(row_, "M")
|
24
32
|
|
25
33
|
If Len(str1) > 23 Then
|
26
34
|
s = Mid(str1, 23, 1) '23文字目は濁音?
|
@@ -33,7 +41,11 @@
|
|
33
41
|
End If
|
34
42
|
End If
|
35
43
|
|
36
|
-
Cells(row_, "M").Value = "'" & strSplit & str2
|
44
|
+
Cells(row_, "M").Value = "'" & strSplit & str2 '取り急ぎ0落ち回避処理 もっと良い方法が有れば教えて下さい
|
45
|
+
|
46
|
+
strSplit = "" '初期化 しないとダメだった。。。
|
47
|
+
|
48
|
+
Next row_
|
37
49
|
|
38
50
|
```
|
39
51
|
|