从列表中打印具有可互换单元格值的 Excel 工作表，并按副本编号打印工作表编号答案

【问题标题】：Print Excel sheets with interchangeable cell value from list and sheet number by copy number从列表中打印具有可互换单元格值的 Excel 工作表，并按副本编号打印工作表编号
【发布时间】：2017-10-13 15:16:53
【问题描述】：

我正在尝试优化文书工作，但我不知道如何编译两个单独的宏以按我的需要工作。

在 Excel 工作簿上，我有两张工作表：

Sheet1 包含订单（发票等）。
Sheet2 包含产品名称和数量列表。

我需要创建一个宏，以便它从列表中获取“产品名称”（例如，Sheet2!A1 到 Sheet1!N10）并将可互换的数字从 1 更改为“数量”（例如，Sheet2!B1 到 @987654324 @) 并通过所有列表打印所有生成的副本。

例如：Sheet2!A1 单元格包含产品“ALFA”，对应的数量为“3”（单元格 B1）。下一行 - A2 包含“BETA”，B2 包含 2（作为数量）

所以打印输出将是 5 页“ALFA - 1”、“ALFA - 2”、“ALFA - 3”、“BETA - 1”、“BETA - 2”，然后跟随列表中的下一个值.

我找到了一个代码（在互联网上的某个地方），可以使用以下代码打印具有可互换编号的副本数量：

Sub Technologiniu_korteliu_kiekis()

    Dim CopiesCount As Long
    Dim copynumber As Long

    CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
    'Now the program wants you to input how many pages you like to print.
    'You can input 100 here.

    For copynumber = 1 To CopiesCount
        With ActiveSheet
            .Range("L7").Value = copynumber 'I assume your invoice number is in cell E1.
            .PrintOut 'Print the sheet
        End With
    Next copynumber
End Sub

【问题讨论】：

你需要问一个具体的问题——你到底坚持的是什么？

标签： vba list excel printing

【解决方案1】：

我找到了解决办法。我的宏正在创建重复项。虽然这不是我需要的。

Sub Macro()

    Dim i As Long, LastRow As Long

    LastRow = Worksheets("Sheet2").Range("C65536").End(xlUp).Row

    For i = 8 To LastRow

        Worksheets("Sheet1").Range("G6").Value = Worksheets("Sheet2").Range("C" & i).Value
        Worksheets("Sheet1").Range("J7").Value = Worksheets("Sheet2").Range("D" & i).Value

        Dim CopiesCount As Long
        Dim copynumber As Long

        CopiesCount = Worksheets("Sheet2").Range("E" & i).Value

        If Not Worksheets("Sheet2").Range("B" & i).Value = 1 Then
            For copynumber = 1 To CopiesCount
                With Worksheets("Sheet1")
                    .Range("L7").Value = copynumber
                    .PrintOut
                End With
            Next copynumber
        End If

    Next i

End Sub

【讨论】：