循环引用另一个工作表的保存代码

我有一个工作表（Sheet1）与50个不同的5位数字代码，所有在A1：A50。 我有另一个工作表（Sheet2）有A1引用Sheet1-A1的5位数字代码。 我的目标是将Sheet2保存为刚引用的5位数字，然后擦除Sheet2中的A1和Sheet1中的参考A2，然后再次执行保存过程，直到我有50个不同的工作表。 我有保存部分的代码，但我不能完全弄清楚如何循环它为Sheet1中剩余的单元格引用

Dim part1 As String Range("A1").Select ActiveCell.FormulaR1C1 = "='[Sheet1.xlsx]Tiering'!R1C1" part1 = Range("BA1").Value ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Desktop\" & Format(Now(), "MM-DD-YYYY") & " " & part1 & ".xls", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ActiveWorkbook.Save Range("A1").Select Selection.ClearContents 

总之，这个代码工作，我只需要循环它，以便它保存Sheet1的范围内的其他50个代码A1：A50

谢谢

Answer 1

这应该给你一个想法

没有必要在一个单元格中放置一个公式

 Sub test() Dim part1 As String Dim i As Integer For i = 0 To 49 part1 = Workbooks("Sheet1.xlsx").Sheets("Tiering").Range("a1").Offset(i).Value debug.print part1 Next i End Sub