回答編集履歴
2
訂正２
answer
CHANGED
|
@@ -21,7 +21,7 @@
|
|
|
21
21
|
Dim i As Long
|
|
22
22
|
Dim c As Long
|
|
23
23
|
For i = 1 To 72
|
|
24
|
-
c = (i - 1) * 6 + 1
|
|
24
|
+
c = (i - 1) * 6 + 1 + Application.WorksheetFunction.ROUNDDOWN((i - 1) / 6, 0)
|
|
25
25
|
Sheets("統合").Columns("A:S").AdvancedFilter Action:=xlFilterCopy, _
|
|
26
26
|
CriteriaRange:=Range(Cells(78, c + 2), Cells(79, c + 3)), CopyToRange:=Range(Cells(88, c), Cells(88, c + 1)), Unique:= _
|
|
27
27
|
False
|
1
訂正コード追加
answer
CHANGED
|
@@ -15,5 +15,18 @@
|
|
|
15
15
|
CriteriaRange:=Range(Cells(78, c + 4), Cells(79, c + 4)), CopyToRange:=Range(Cells(88, c + 2), Cells(88, c + 5)), Unique:= _
|
|
16
16
|
False
|
|
17
17
|
Next
|
|
18
|
-
|
|
18
|
+
```
|
|
19
|
+
訂正
|
|
20
|
+
```VBA
|
|
21
|
+
Dim i As Long
|
|
22
|
+
Dim c As Long
|
|
23
|
+
For i = 1 To 72
|
|
24
|
+
c = (i - 1) * 6 + 1
|
|
25
|
+
Sheets("統合").Columns("A:S").AdvancedFilter Action:=xlFilterCopy, _
|
|
26
|
+
CriteriaRange:=Range(Cells(78, c + 2), Cells(79, c + 3)), CopyToRange:=Range(Cells(88, c), Cells(88, c + 1)), Unique:= _
|
|
27
|
+
False
|
|
28
|
+
Sheets("統合").Columns("A:S").AdvancedFilter Action:=xlFilterCopy, _
|
|
29
|
+
CriteriaRange:=Range(Cells(78, c + 4), Cells(79, c + 4)), CopyToRange:=Range(Cells(88, c + 2), Cells(88, c + 5)), Unique:= _
|
|
30
|
+
False
|
|
31
|
+
Next
|
|
19
32
|
```
|