回答編集履歴
1
コード修正
test
CHANGED
|
@@ -10,13 +10,11 @@
|
|
|
10
10
|
|
|
11
11
|
Dim Ages As Variant
|
|
12
12
|
|
|
13
|
-
AddAge = Age
|
|
14
|
-
|
|
15
13
|
Ages = Split("0才 1才 2才 3才 4才 5才 6才 1年生 2年生 3年生 4年生 5年生 6年生 " & _
|
|
16
14
|
|
|
17
15
|
"中学1年生 中学2年生 中学3年生")
|
|
18
16
|
|
|
19
|
-
|
|
17
|
+
AddAge = Age
|
|
20
18
|
|
|
21
19
|
On Error Resume Next
|
|
22
20
|
|
|
@@ -28,7 +26,7 @@
|
|
|
28
26
|
|
|
29
27
|
Sub MultiReplacement()
|
|
30
28
|
|
|
31
|
-
Dim Rng As Range
|
|
29
|
+
Dim Rng As Range, Ans As Long
|
|
32
30
|
|
|
33
31
|
Set Rng = Selection 'マウスで範囲を選択してください。
|
|
34
32
|
|