我来帮你一步步实现这个自动化需求，先搞定最关键的空白行定位，再扩展到批量处理文件夹里的所有文件：

1. 精准定位目标列的首个空白行 #

要找到对应列的首个空白行，最可靠的方法是从列的底部往上找最后一个有数据的单元格，再往下一行就是我们要的空白行。这里假设你要粘贴到目标文件的A列和B列（对应源文件的I、J列），代码示例如下：

Function GetFirstBlankRow(targetCol As String) As Long
    Dim lastRow As Long
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称") ' 替换成你的实际工作表名
    
    ' 从列的最后一行往上找非空单元格
    lastRow = targetSheet.Range(targetCol & Rows.Count).End(xlUp).Row
    
    ' 处理列完全为空的情况，默认从第1行开始；否则从最后一行的下一行开始
    GetFirstBlankRow = IIf(lastRow = 1 And targetSheet.Range(targetCol & "1") = "", 1, lastRow + 1)
End Function

2. 无需显式打开文件读取指定区域 #

我们可以用GetObject函数在后台加载源文件（用户看不到打开的窗口），这样既满足“无需打开文件”的视觉需求，又能高效获取I9:J172区域的内容：

Sub ReadRangeWithoutOpen(sourcePath As String)
    Dim sourceWB As Object
    Dim sourceRange As Range
    Dim targetSheet As Worksheet
    Dim startRow As Long
    
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称") ' 替换成你的实际工作表名
    startRow = GetFirstBlankRow("A") ' 获取A列的首个空白行（对应源文件I列）
    
    ' 后台加载源文件
    Set sourceWB = GetObject(sourcePath)
    ' 读取源文件第一个工作表的I9:J172区域（如果源数据在特定工作表，改成sourceWB.Sheets("源工作表名")）
    Set sourceRange = sourceWB.Sheets(1).Range("I9:J172")
    
    ' 粘贴到目标文件的对应位置，如需仅粘贴值可改用PasteSpecial
    sourceRange.Copy targetSheet.Range("A" & startRow)
    
    ' 关闭源文件，不保存（避免误修改源数据）
    sourceWB.Close SaveChanges:=False
    Set sourceWB = Nothing
End Sub

3. 循环遍历文件夹中的所有Excel文件 #

最后用Dir函数遍历指定文件夹下的所有Excel文件（支持.xlsx和.xls格式），逐个调用上面的读取方法：

Sub BatchProcessFiles()
    Dim folderPath As String
    Dim fileName As String
    
    ' 设置你的文件夹路径，注意末尾要加反斜杠
    folderPath = "C:\你的目标文件夹路径\"
    ' 先遍历.xlsx格式文件
    fileName = Dir(folderPath & "*.xlsx")
    
    Do While fileName <> ""
        ReadRangeWithoutOpen folderPath & fileName
        fileName = Dir ' 取下一个文件
    Loop
    
    ' 再遍历.xls旧格式文件（如果有需要）
    fileName = Dir(folderPath & "*.xls")
    Do While fileName <> ""
        ReadRangeWithoutOpen folderPath & fileName
        fileName = Dir
    Loop
    
    MsgBox "所有文件处理完成！", vbInformation
End Sub

实用提示 #

• 记得替换代码中目标工作表名称和文件夹路径为你的实际信息
• 如果源文件有合并单元格或格式特殊，可将粘贴代码改为sourceRange.Copy: targetSheet.Range("A" & startRow).PasteSpecial xlPasteValues，只粘贴纯数据
• 运行宏前需确保Excel已启用宏（在选项中开启信任中心的宏设置）

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