'Kopikol imp
retsu = WorksheetFunction.CountA(Columns("B"))
crit = WorksheetFunction.CountA(Sheets("フィルター").Rows("1"))
For m = 1 To crit
insatsuh = WorksheetFunction.CountA(Sheets("印刷").Columns("C")) + 1
insatsum = WorksheetFunction.CountA(Sheets("印刷").Columns("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("フィルター").Columns(ran))
Range("A:B").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Sheets("フィルター").Range(ran & "1:" & ran & critnb), Unique:=False
Set kekka = Range("A2:A" & retsu)
If WorksheetFunction.Subtotal(103, kekka) > 0 Then
Range("A2:B" & retsu).SpecialCells(xlCellTypeVisible).Copy
Sheets("印刷").Range(hashira & insatsu).PasteSpecial Paste:=xlPasteValues
Range("A2:B" & retsu).SpecialCells(xlCellTypeVisible).ClearContents
End If
ActiveSheet.ShowAllData
Next m
With Sheets("印刷")
.Activate
.PrintPreview
End With