回答編集履歴
1
誤記修正 14→j
answer
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
For i = 2 To 100
|
|
7
7
|
For j = 14 To 134 Step 4 '4つずつ増える
|
|
8
8
|
'.Value を付けたほうが良いです。
|
|
9
|
-
Cells(i,
|
|
9
|
+
Cells(i, j).Value = Replace(Cells(i, j).Value, "混り", "混じり")
|
|
10
10
|
Next j
|
|
11
11
|
Next i
|
|
12
12
|
End Sub
|