'declarations
Dim i, k, l, t, tana, retsu, iro, bangou, shouhin, insatsu, insatsuh, insatsum, crit, critnb As Long
Dim shouhinmei, hinbanmei, hinmei, hashira, ran As String
(...)
'Kopikol imp
retsu = WorksheetFunction.CountA(Columns("B:B"))
crit = WorksheetFunction.CountA(Sheets("filtres").Range("1:1"))
For m = 1 To crit
insatsuh = WorksheetFunction.CountA(Sheets("impression").Range("C:C")) + 1
insatsum = WorksheetFunction.CountA(Sheets("impression").Range("I:I")) + 1
If insatsuh > insatsum Then
hashira = "I"
insatsu = insatsum
Else
hashira = "C"
insatsu = insatsuh
End If
ran = Chr(m + 64)
critnb = WorksheetFunction.CountA(Sheets("フィルター").Range(ran & ":" & ran))
Range("A:B").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Sheets("フィルター").Range(ran & "1:" & ran & critnb), Unique:=False
Range("1:1").EntireRow.Hidden = True
Range("A1:B" & retsu).Select
* Selection.SpecialCells(xlCellTypeVisible).Copy
Sheets("impression").Range(hashira & insatsu).PasteSpecial Paste:=xlPasteValues
Selection.SpecialCells(xlCellTypeVisible).ClearContents
ActiveSheet.ShowAllData
Next m
With Sheets("impression")
.Activate
.PrintPreview
End With
(...)