每个 PDF 的 VBA 嵌套

Question

我在此输出中遇到问题。它似乎主要工作，但我在某处错过了一步。

在下面的代码中:
K4 到 K7 是数字代码，l4 到 l7 是一些单词名称 - 4 条记录
我试图将它输出到 PDF，它应该只有 4 条记录，但是由于某种原因它输出重复的版本，总共 16 条。我知道循环是错误的。有任何解决这个问题的方法吗？

Sub foreachtest2()
Application.ScreenUpdating = False
Dim c As Range
Dim f As Range



Sheets("Lookup Table").Range("K4:K7").Name = "Rng"
Sheets("Lookup Table").Range("L4:L7").Name = "RngName"


For Each c In Range("Rng")
    For Each f In Range("RngName")

    Sheets("Site Report").Select
    Range("D7").Select
    ActiveCell.FormulaR1C1 = c.Value




Sheets("Site Report").Select
 Range("A1:M78").Select
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\path" & f.Value & c.Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False

Next
Next


  Application.ScreenUpdating = True

End Sub

Answer 1

您不需要两个循环，只需一个循环即可在 K 上进行迭代柱子。在每次迭代中，您都会在 L 中检索相应的值。通过使用“偏移量。

For Each c In Range("Rng")
    Set f  = c.Offset(, 1)
    ' ...
    ' do the work. I cant verify if the code inside your loop
    ' does the intended work. But this quick fix should solve the
    ' 16 values issue. Now you should have only 4 records to work on. 
Next