嘿，我看到你在VBA里碰到了两个关键问题：一是Do While循环的正确使用，二是怎么把变量i正确塞进公式和文件名里——这正是你得到#NAME?错误的根源。让我一步步给你捋清楚：

1. 为什么会出现#NAME?错误？ #

你直接在FormulaR1C1字符串里写了i，Excel会把它当成单元格名称（比如一个叫i的单元格），但你根本没有这个单元格，所以就抛出了#NAME?错误。要解决这个，你得把VBA变量i的实际数值插入到公式字符串里，而不是让Excel去识别变量名。

2. 公式中正确嵌入变量i的方法 #

在VBA里，公式是作为字符串传递给Excel的，所以你需要用VBA的字符串拼接功能，把i的值嵌入到公式里。具体来说，把公式里的i替换成" & i & "（注意前后的引号和&连接符），这样VBA会把i的当前值转换成字符串，插入到公式中，Excel看到的就是具体的数字，而不是变量名。

比如你原来的A1公式：

' 错误写法：Excel把i当成单元格
ActiveCell.FormulaR1C1 = _
"=""01""&"",""&Sheet1!R[1]C[1]&"",""&Sheet1!R[2]C[1]&"",""&Sheet1!R[1]C[9]+i+1&"",""&Sheet1!R[4]C[1]&"",""&Sheet1!R[5]C[1]&"",""&Sheet1!R[6]C[1]&"",""&Sheet1!R[7]C[1]&"",""&Sheet1!R[14]C[1]&""/"""

修正后：

' 正确写法：把VBA变量i的数值嵌入公式
ws2.Range("A1").FormulaR1C1 = _
"=""01""&"",""&Sheet1!R[1]C[1]&"",""&Sheet1!R[2]C[1]&"",""&Sheet1!R[1]C[9]+" & i & "+1&"",""&Sheet1!R[4]C[1]&"",""&Sheet1!R[5]C[1]&"",""&Sheet1!R[6]C[1]&"",""&Sheet1!R[7]C[1]&"",""&Sheet1!R[14]C[1]&""/"""

同样，A2公式里的Sheet1!RC[9]+i也要改成Sheet1!RC[9]+" & i & "。

3. 文件名中正确使用变量i的方法 #

你原来的Filename = Range("Sheet1!J3") + i有问题：如果J3是文本，+会导致类型不匹配错误。应该用&来拼接文本和数值：

' 正确拼接文件名：J3的文本 + i的数值
Filename = ws1.Range("J3").Value & i

另外，建议提前把Sheet1/Sheet2的引用存成变量，避免重复写Sheets("Sheet1")，既高效又不容易出错。

4. Do While循环的正确用法 #

你的循环结构本身没问题，但可以优化几个点：

• 提前把循环上限（Sheet1!L1的值）存成变量，避免每次循环都读取单元格
• 尽量不用Select/Activate，直接引用单元格，减少不必要的错误
• 调整操作顺序：先处理当前i的行，再保存文件，最后让i自增

完整修正后的代码 #

Sub Macro1()
    ' 声明变量
    Dim Path As String
    Dim Filename As String
    Dim i As Integer
    Dim maxRow As Integer
    Dim ws1 As Worksheet, ws2 As Worksheet
    
    ' 初始化工作表引用，避免重复查找
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 设置保存路径
    Path = "C:\Users\XYZ\Documents\"
    
    ' 获取循环上限（Sheet1!L1的值）
    maxRow = ws1.Range("L1").Value
    
    ' 初始化循环变量
    i = 1
    
    ' Do While循环：i小于设定值时执行
    Do While i < maxRow
        ' --------------------------
        ' 1. 处理Sheet2的公式，嵌入变量i
        ' --------------------------
        ' A1单元格公式
        ws2.Range("A1").FormulaR1C1 = _
        "=""01""&"",""&Sheet1!R[1]C[1]&"",""&Sheet1!R[2]C[1]&"",""&Sheet1!R[1]C[9]+" & i & "+1&"",""&Sheet1!R[4]C[1]&"",""&Sheet1!R[5]C[1]&"",""&Sheet1!R[6]C[1]&"",""&Sheet1!R[7]C[1]&"",""&Sheet1!R[14]C[1]&""/"""
        
        ' A2单元格公式
        ws2.Range("A2").FormulaR1C1 = _
        "=""02""&"",""&Sheet1!R[1]C[1]&"",""&Sheet1!RC[1]&"",""&Sheet1!R[9]C[1]&"",""&Sheet1!RC[9]+" & i & "",""&Sheet1!R[11]C[1]&"",""&Sheet1!R[12]C[1]&"",""&Sheet1!R[13]C[1]&""/"""
        
        ' --------------------------
        ' 2. 设置文件名，包含变量i
        ' --------------------------
        Filename = ws1.Range("J3").Value & i
        
        ' --------------------------
        ' 3. 保存为txt文件
        ' --------------------------
        ThisWorkbook.SaveAs Filename:=Path & Filename & ".txt", _
                            FileFormat:=xlTextPrinter, _
                            CreateBackup:=False
        
        ' --------------------------
        ' 4. 循环变量自增
        ' --------------------------
        i = i + 1
    Loop
    
    ' 释放对象变量
    Set ws1 = Nothing
    Set ws2 = Nothing
End Sub

额外小提示 #

• 如果你要处理Sheet1的每一行，可能循环条件应该是i <= maxRow而不是<，根据你的实际需求调整
• 保存文件时，如果路径不存在会报错，可以加一段代码判断路径是否存在，或者提前创建
• 频繁保存整个工作簿效率不高，如果只需要保存Sheet2的内容，可以把Sheet2复制到新工作簿再保存，这样更合理

内容的提问来源于stack exchange，提问作者Siddharth Thakkar