EXCEL表相同編號的單元行打印成壹頁？

用循環，依次將某個編號，獲取到新的sheet打印，就是壹個編號壹頁

假設數據在 Sheet, 其他sheet復制vba

Sub 打印()

Range("A2:E10000") = ""

Dim i, x, brr(1 To 10000, 1 To 5)

s = InputBox("請輸入要打印的編號 ", "系統提示：查詢")

x = WorksheetFunction.CountIf(Sheets(1).Range("E:E"), s)

If x = 0 Then

MsgBox " 無此編號，重新輸入 "

Exit Sub

End If

x = Sheets(1).Range("E65536").End(xlUp).Row

arr = Sheets(1).Range("a2:e" & x)

For i = 1 To UBound(arr)

If arr(i, 5) = s Then

n = n + 1

brr(n, 1) = arr(i, 1)

brr(n, 2) = arr(i, 2)

brr(n, 3) = arr(i, 3)

brr(n, 4) = arr(i, 4)

brr(n, 5) = arr(i, 5)

End If

[a2].Resize(n, 5) = brr

End Sub