Excel VBA：存储单元格地址并跨工作表定位以实现数据合并

你的核心需求是：在"Graded_File"中记录表头下方的起始单元格位置，然后在其他工作表中用这个位置作为数据起点，复制对应范围的数据到"Graded_File"末尾。先给你修正并优化后的代码，再拆解关键问题：

优化后的完整代码 #

Public Sub consolidate()
    Dim i As Integer
    Dim startRow As Integer, startCol As Integer
    Dim targetWs As Worksheet, sourceWs As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim pasteStartCell As Range
    
    ' 初始化目标工作表（Graded_File）
    Set targetWs = ThisWorkbook.Worksheets("Graded_File")
    
    ' 获取Graded_File中表头下方的起始单元格位置（存储行号和列号）
    With targetWs
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        startRow = lastRow + 1
        startCol = 1 ' 假设从A列开始，若不是可调整
    End With
    
    ' 遍历需要合并的工作表（跳过最后2个工作表，根据你的需求）
    For i = 1 To ThisWorkbook.Worksheets.Count - 2
        Set sourceWs = ThisWorkbook.Worksheets(i)
        
        ' 跳过目标工作表本身（如果它在遍历范围内）
        If sourceWs.Name = "Graded_File" Then GoTo NextSheet
        
        ' 定位当前工作表的数据起始点（用之前存储的startRow和startCol）
        With sourceWs
            ' 检查起始单元格是否为空，避免无效范围
            If .Cells(startRow, startCol).Value = "" Then GoTo NextSheet
            
            ' 获取数据区域的最后一行和最后一列
            lastRow = .Cells(startRow, startCol).End(xlDown).Row
            lastCol = .Cells(startRow, startCol).End(xlToRight).Column
            
            ' 复制数据区域
            .Range(.Cells(startRow, startCol), .Cells(lastRow, lastCol)).Copy
        End With
        
        ' 定位Graded_File的粘贴起始位置
        With targetWs
            Set pasteStartCell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
        End With
        
        ' 粘贴数据
        pasteStartCell.PasteSpecial xlPasteValuesAndNumberFormats ' 按需选择粘贴类型
        Application.CutCopyMode = False ' 清除剪切板
        
NextSheet:
    Next i
    
    MsgBox "数据合并完成！"
End Sub

关键修正点说明 #

1. 取消冗余的Select操作：原代码大量使用Select/Selection，不仅执行效率低，还容易因用户操作打断运行。改用工作表对象（targetWs、sourceWs）直接引用单元格，稳定性和效率都更高。
2. 正确调用存储的位置：原代码Range("StartRow", "StartColumn")是错误写法——变量不能加引号，应该用Cells(startRow, startCol)来精准定位单元格。
3. 增加空值判断：避免因工作表无数据导致End(xlDown)选中整个空行，自动跳过无效工作表。
4. 动态定位粘贴位置：每次粘贴前重新定位Graded_File的最后一行，确保数据始终追加在现有内容的下方。

注意事项 #

• 如果你的起始列不是A列，把startCol = 1改成对应的列号（比如B列是2）。
• 遍历范围Worksheets.Count -2要确认是否正确排除了不需要合并的工作表（比如Graded_File和另一个无关表），如果需要更精准的筛选，可以改成按工作表名称判断。
• 粘贴类型可按需调整：比如xlPasteAll粘贴格式和公式，xlPasteValues只粘贴数值。

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