回答編集履歴
1
追記
answer
CHANGED
|
@@ -1,1 +1,8 @@
|
|
|
1
|
+
```VBA
|
|
2
|
+
Dim c1 As Range, c2 As Range
|
|
1
|
-
|
|
3
|
+
Set c1 = Range("F7").End(xlToRight).Offset(-2)
|
|
4
|
+
Set c2 = c1.Offset(24, -4)
|
|
5
|
+
|
|
6
|
+
Range(c1, c2).Copy
|
|
7
|
+
Range(c1, c2).Insert xlShiftToRight
|
|
8
|
+
```
|