回答編集履歴
3
再修正
answer
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
For-Next構文を修正してみました。動作済みです。
|
|
2
2
|
```VBA
|
|
3
3
|
For i = 18 To 91
|
|
4
|
-
With Range("C" & i
|
|
4
|
+
With Range("C" & i & ":" & "G" & i)
|
|
5
5
|
.HorizontalAlignment = xlCenter
|
|
6
6
|
.MergeCells = True
|
|
7
7
|
End With
|
2
動作確認済
answer
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
For-Next構文を修正してみました。動作
|
|
1
|
+
For-Next構文を修正してみました。動作済みです。
|
|
2
2
|
```VBA
|
|
3
3
|
For i = 18 To 91
|
|
4
4
|
With Range("C" & i + ":" & "G" & i)
|
1
+を＆に変更
answer
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
For-Next構文を修正してみました。動作確認は行っていません。
|
|
2
2
|
```VBA
|
|
3
3
|
For i = 18 To 91
|
|
4
|
-
With Range("C"
|
|
4
|
+
With Range("C" & i + ":" & "G" & i)
|
|
5
5
|
.HorizontalAlignment = xlCenter
|
|
6
6
|
.MergeCells = True
|
|
7
7
|
End With
|