[已解决]紧急求助，明天早上就要用，麻烦各位大侠，高手给解决下

ai85011582

把目录里的商品品名、规格导到sheet1中，每次只能导入11条，导入后进行打印，打印完后在进行下11条，直到完毕

最佳答案

月排行榜 / 总排行榜

过儿

2011-11-28 22:12

Sub 导入打印()
Dim arr, x, y, k, j
arr = Sheets("贵重目录").Range("a2:b" & Sheets("贵重目录").Range("a65536").End(xlUp).Row)
j = 0
For x = 1 To UBound(arr)
   k = k + 1
   j = j + 3
   Cells(j, 1) = arr(x, 1)
   Cells(j, 2) = arr(x, 2)
   If k = 11 Or x = UBound(arr) Then
    j = 0
    k = 0
    ActiveSheet.PrintOut
    Range("a3:b36") = ""
   End If
Next x
End Sub

跳转到最佳答案楼层

过儿

导入后的效果做一个样表

ai85011582

过儿 发表于 2011-11-28 21:54
导入后的效果做一个样表

导入后的样表，麻烦了

ai85011582

过儿 发表于 2011-11-28 22:12
Sub 导入打印()
Dim arr, x, y, k, j
arr = Sheets("贵重目录").Range("a2:b" & Sheets("贵重目录").Rang ...

谢谢管理员，呵呵

过儿

Sub 导入打印()
Dim arr, x, y, k, j
arr = Sheets("贵重目录").Range("a2:b" & Sheets("贵重目录").Range("a65536").End(xlUp).Row)
j = 0
For x = 1 To UBound(arr)
   k = k + 1
   j = j + 3
   Cells(j, 1) = arr(x, 1)
   Cells(j, 2) = arr(x, 2)
   If k = 11 Or x = UBound(arr) Then
    j = 0
    k = 0
    ActiveSheet.PrintOut
    Range("a3:b36") = ""
   End If
Next x
End Sub