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