复制粘贴硬编码数据后VBA中Range().Value引用无法更新的问题

你的代码里CopyFile、CopyWksht等变量只在Sub开头读取了一次值，后续虽然把Pull工作表的A2:F2、A3:F3复制到Post的A1:F1，但没有重新读取这些单元格的最新值到变量里，所以后面两次复制操作还是用的第一次的变量参数，自然不会更新。保存和等待完全没用，因为变量值根本没刷新。

Public Sub Changing_Variable_Loop()
    Dim wsPull As Worksheet, wsPost As Worksheet
    Dim CopyFile As String, CopyWksht As String, CopyRange As String
    Dim PasteFile As String, PasteWksht As String, PasteRange As String
    Dim i As Integer
    
    ' 提前绑定工作表对象，避免Activate/Select
    Set wsPull = ThisWorkbook.Worksheets("Pull")
    Set wsPost = ThisWorkbook.Worksheets("Post")
    
    ' 用循环处理3行数据，避免冗余代码
    For i = 1 To 3
        ' 1. 把Pull的第i行复制到Post的A1:F1
        wsPull.Range("A" & i & ":F" & i).Copy wsPost.Range("A1:F1")
        
        ' 2. 重新读取Post工作表的最新变量值（关键！）
        CopyFile = wsPost.Range("A1").Value
        CopyWksht = wsPost.Range("B1").Value
        CopyRange = wsPost.Range("C1").Value
        
        PasteFile = wsPost.Range("D1").Value
        PasteWksht = wsPost.Range("E1").Value
        PasteRange = wsPost.Range("F1").Value
        
        ' 3. 检查工作簿是否打开，避免报错
        If Not IsWorkbookOpen(CopyFile) Then
            MsgBox "源文件" & CopyFile & "未打开，请先打开", vbExclamation
            Exit Sub
        End If
        If Not IsWorkbookOpen(PasteFile) Then
            MsgBox "目标文件" & PasteFile & "未打开，请先打开", vbExclamation
            Exit Sub
        End If
        
        ' 4. 执行跨文件复制粘贴
        Workbooks(CopyFile).Worksheets(CopyWksht).Range(CopyRange).Copy _
            Workbooks(PasteFile).Worksheets(PasteWksht).Range(PasteRange)
        
        ' 可选：保存当前工作簿（如果需要）
        ThisWorkbook.Save
    Next i
    
    MsgBox "执行完成"
End Sub

' 辅助函数：检查工作簿是否已打开
Function IsWorkbookOpen(wbName As String) As Boolean
    Dim wb As Workbook
    On Error Resume Next
    Set wb = Workbooks(wbName)
    On Error GoTo 0
    IsWorkbookOpen = Not wb Is Nothing
End Function

• 重新读取变量：每次更新Post的A1:F1后，必须重新把单元格值赋值给变量，这样后续复制才会用新的参数
• 移除Activate/Select：直接绑定工作表对象，避免因激活窗口导致的引用错误，代码更稳定
• 循环简化代码：把重复的3次操作改成循环，后续要加更多行只需要修改循环次数
• 增加错误检查：先判断源文件和目标文件是否打开，避免运行时报错

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