提取数字并自动打印

lclwan1314

表2的数据从表一中提取，并自动打印表二的表格

limonet

先选好打印机再运行，表2没有改你的函数。
Sub a()
    With CreateObject("scripting.dictionary")
        For i = 2 To Sheets("收样登记").Range("D" & Rows.Count).End(xlUp).Row
            .Item(Sheets("收样登记").Cells(i, 4).Value) = Sheets("收样登记").Range(Sheets("收样登记").Cells(i, 5), Sheets("收样登记").Cells(i, 9)).Value
        Next i
        For P = 0 To .Count - 1
            Cells(10, 1) = .keys()(P)
            ActiveSheet.PrintOut
        Next P
    End With
End Sub

金樽空对月

提问要把自己的要求说的尽可能的详尽，比如：你的打印内容是一次性打印多条内容，还是每次只打印一条等

金樽空对月

此附件是只打印一条内容的效果，就是当你在是否打印单元格内输入”是“的时候进行所在行内容的打印。

limonet

施救者付出了劳动，结果都不配得到消息。