質問編集履歴
1
わからないポイントを追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
```vba
|
|
26
26
|
|
|
27
|
-
max_row = Sheets("シート1").Cells(Rows.Count, "A").End(xlUp).Row
|
|
27
|
+
max_row = Sheets("シート1").Cells(Rows.Count, "A").End(xlUp).Row
|
|
28
28
|
|
|
29
29
|
For row_next = 1 To max_row
|
|
30
30
|
|
|
@@ -60,4 +60,30 @@
|
|
|
60
60
|
|
|
61
61
|
|
|
62
62
|
|
|
63
|
+
【追記】わからないことまとめ
|
|
64
|
+
|
|
65
|
+
・行を挿入する際、行を個別に挿入数を変える方法がわからない。
|
|
66
|
+
|
|
67
|
+
行を挿入するときは
|
|
68
|
+
|
|
69
|
+
```vba
|
|
70
|
+
|
|
71
|
+
'Rows(1).Insertで挿入できる
|
|
72
|
+
|
|
73
|
+
For i = max_row To 2 Step -1
|
|
74
|
+
|
|
75
|
+
Rows(i).Insert
|
|
76
|
+
|
|
77
|
+
Next i
|
|
78
|
+
|
|
79
|
+
|
|
80
|
+
|
|
81
|
+
```
|
|
82
|
+
|
|
83
|
+
上記のコードで間に1行づつあけることができるが、
|
|
84
|
+
|
|
85
|
+
行によって挿入する行数が違う場合どうすればいいのかがわからない。
|
|
86
|
+
|
|
87
|
+
|
|
88
|
+
|
|
63
89
|
ご教授お願い致します。
|