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