Excel 循环通过一组具有定义值的变量

我有一组值，我正试图自动输入到pdf中。它首先打开pdf并使用sendkeys to选项卡浏览pdf中的set文本框。我试图在使用我定义的集合变量（D1、D2、D3等）时循环这个sendkeys函数

我已经/已经尝试过的东西不起作用，我似乎无法确定如何定义我正在浏览的列表（以XXXXX显示）

代码如下所示：

Sub CreatePDFForms()
Dim PDFTemplateFile, NewPDFName, SavePDFFldr, Desc As String
Dim CustRow, LastRow As Long

With Sheet1
LastRow = .Range("A999").End(xlUp).Row    
PDFTemplateFile = .Range("F2").Value       
SavePDFFldr = .Range("F4").Value           
ThisWorkbook.FollowHyperlink PDFTemplateFile
Application.Wait Now + 0.000004

For CustRow = 13 To 13 ' LastRow
D1 = .Range("L" & CustRow).Value        
D2 = .Range("B" & CustRow).Value          
D3 = .Range("AC" & CustRow).Value
D4 = .Range("C" & CustRow).Value
D5 = .Range("Y" & CustRow).Value
D6 = .Range("AB" & CustRow).Value
D7 = .Range("Z" & CustRow).Value
D8 = .Range("U" & CustRow).Value
'D9 = .Range("AA" & CustRow).Value
'D10 = .Range("AA" & CustRow).Value

Description = D4                      

DataEntry = XXXXX(D1, D2, D3, D4, D5, D6, D7, D8)

For DataEntry = 1 To 8

Application.SendKeys "{Tab}", True
Application.SendKeys DataEntry, True
Application.Wait Now + 0.00001

Next DataEntry

---

这正是我想要的。谢谢！这正是我想要的。谢谢！

DataEntry = Array(D1, D2, D3, D4, D5, D6, D7, D8)

For Each e in DataEntry 

    Application.SendKeys "{Tab}", True
    Application.SendKeys e, True
    Application.Wait Now + 0.00001

Next e