回答編集履歴
1
数式の修正
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
For Each r In Range("A1").CurrentRegion
|
|
10
10
|
|
|
11
|
-
r.Offset(, 1).Value = Left(r.Value, InStrRev(r.Value, "さん" & Chr(10)) +
|
|
11
|
+
r.Offset(, 1).Value = Left(r.Value, InStrRev(r.Value, "さん" & Chr(10)) + 2)
|
|
12
12
|
|
|
13
13
|
Next
|
|
14
14
|
|