回答編集履歴
1
コード微修正
test
CHANGED
|
@@ -7,8 +7,7 @@
|
|
|
7
7
|
r = WorksheetFunction.Match(Range("A2"), Range("A5", Cells(Rows.Count, 1).End(xlUp)), 1)
|
|
8
8
|
On Error GoTo 0
|
|
9
9
|
|
|
10
|
-
Rows(2).Copy
|
|
11
|
-
Rows(r + 5).Insert
|
|
10
|
+
Rows(r + 5).Insert
|
|
12
|
-
|
|
11
|
+
Rows(2).Copy Rows(r + 5)
|
|
13
12
|
End Sub
|
|
14
13
|
```
|