回答編集履歴
2
訂正2
test
CHANGED
@@ -44,7 +44,7 @@
|
|
44
44
|
|
45
45
|
For i = 1 To 72
|
46
46
|
|
47
|
-
c = (i - 1) * 6 + 1
|
47
|
+
c = (i - 1) * 6 + 1 + Application.WorksheetFunction.ROUNDDOWN((i - 1) / 6, 0)
|
48
48
|
|
49
49
|
Sheets("統合").Columns("A:S").AdvancedFilter Action:=xlFilterCopy, _
|
50
50
|
|
1
訂正コード追加
test
CHANGED
@@ -32,6 +32,32 @@
|
|
32
32
|
|
33
33
|
Next
|
34
34
|
|
35
|
+
```
|
35
36
|
|
37
|
+
訂正
|
38
|
+
|
39
|
+
```VBA
|
40
|
+
|
41
|
+
Dim i As Long
|
42
|
+
|
43
|
+
Dim c As Long
|
44
|
+
|
45
|
+
For i = 1 To 72
|
46
|
+
|
47
|
+
c = (i - 1) * 6 + 1
|
48
|
+
|
49
|
+
Sheets("統合").Columns("A:S").AdvancedFilter Action:=xlFilterCopy, _
|
50
|
+
|
51
|
+
CriteriaRange:=Range(Cells(78, c + 2), Cells(79, c + 3)), CopyToRange:=Range(Cells(88, c), Cells(88, c + 1)), Unique:= _
|
52
|
+
|
53
|
+
False
|
54
|
+
|
55
|
+
Sheets("統合").Columns("A:S").AdvancedFilter Action:=xlFilterCopy, _
|
56
|
+
|
57
|
+
CriteriaRange:=Range(Cells(78, c + 4), Cells(79, c + 4)), CopyToRange:=Range(Cells(88, c + 2), Cells(88, c + 5)), Unique:= _
|
58
|
+
|
59
|
+
False
|
60
|
+
|
61
|
+
Next
|
36
62
|
|
37
63
|
```
|