回答編集履歴
2
追記
test
CHANGED
|
@@ -25,3 +25,7 @@
|
|
|
25
25
|
|
|
26
26
|
|
|
27
27
|
```
|
|
28
|
+
|
|
29
|
+
追記
|
|
30
|
+
|
|
31
|
+
"さん"の後に改行あると一人目しか拾えませんね
|
1
追記
test
CHANGED
|
@@ -12,7 +12,9 @@
|
|
|
12
12
|
|
|
13
13
|
For r = 1 To 1000
|
|
14
14
|
|
|
15
|
-
Cells(r, 2).Formula = "=LEFT(A" & r & ",FIND(""さん"",A" & r & ")+1)"
|
|
15
|
+
'Cells(r, 2).Formula = "=LEFT(A" & r & ",FIND(""さん"",A" & r & ")+1)"
|
|
16
|
+
|
|
17
|
+
Cells(r, 2).Formula = "=LEFT(R[]C[-1],FIND(""さん"",R[]C[-1] )+1)"
|
|
16
18
|
|
|
17
19
|
Next
|
|
18
20
|
|