VBA遍历名称/地址列表以自动创建同一发票

我想在excel中制作97张相同物品和相同金额但名称、地址和发票号不同的发票

i、 e.唯一更改的单元格是发票号（+前一个的1）、名称（在工作表的列下）和地址（也在列表的正下方）

我找到了如何使用以下代码来推进发票编号：

Private Sub Workbook_Open()
Range("C4").Value = Range("C4").Value + 1

End Sub

但是我如何循环浏览姓名和地址呢

是否有一种方法可以自动执行此操作以及将文件名保存为姓氏+姓氏+另一个字符串的串联

---

我对python比较熟悉，因此VBA对我来说是全新的，如果这个问题的措辞不恰当/非常不恰当，我很抱歉。

如果您有列表格式的名称/地址，只需迭代该列表中的所有值来替换名称，等等

要自动保存/导出文件，请执行以下操作：

Dim nWb As Workbook
Dim MyPath As String, MyFileName As String
Dim FirstName As String, LastName As String

FirstName = .Cells(x,y) -- cell with first name value
LastName = .Cells(z,y) -- cell with last name value

MyFileName = LastName & FirstName & "INPUT-WTV-VALUE"

If Not Right(MyFileName, 4) = ".xlsx" Then MyFileName = MyFileName & ".xlsx"

Sheets("Sheet1").Copy

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Where do you want to save this file?"
    .AllowMultiSelect = False
    .InitialFileName = ""
    If .Show <> -1 Then GoTo NextCode
    
MyPath = .SelectedItems(1) & "\"

End With

NextCode:

With ActiveWorkbook
    .SaveAs Filename:=MyPath & MyFileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End With

Dim nWb作为工作簿
将MyPath设置为字符串，将MyFileName设置为字符串
将FirstName设置为字符串，将LastName设置为字符串
FirstName=.Cells（x，y）——具有名字值的单元格
LastName=.Cells（z，y）--具有姓氏值的单元格
MyFileName=LastName&FirstName&“INPUT-WTV-VALUE”
如果不正确（MyFileName，4）=“.xlsx”，则MyFileName=MyFileName&“.xlsx”
活页（“活页1”）。复印件
使用Application.FileDialog（msoFileDialogFolderPicker）
.Title=“您想将此文件保存在何处？”
.AllowMultiSelect=False
.InitialFileName=“”
如果.Show-1，则转到下一个代码
MyPath=.SelectedItems（1）和“\”
以
下一个代码：
使用ActiveWorkbook
.SaveAs文件名：=MyPath&MyFileName，文件格式：=xlOpenXMLWorkbook，CreateBackup:=False
以

这将基本上生成保存文件时通常看到的弹出窗口