使用VBA从多个Excel文件复制相同范围的单元格

VBA（Visual Basic for Applications）是一种用于自动化任务和宏编程的编程语言，广泛应用于Microsoft Office套件中的各种应用程序，包括Excel。

在使用VBA从多个Excel文件复制相同范围的单元格时，可以按照以下步骤进行操作：

打开一个新的Excel文件，作为目标文件，用于存储复制的数据。
在目标文件中按下Alt + F11，打开VBA编辑器。
在VBA编辑器中，插入一个新的模块。可以通过右键点击项目资源管理器中的目标文件，选择"插入"->"模块"来实现。
在新的模块中编写VBA代码来实现复制操作。以下是一个示例代码：

Sub CopyRangeFromMultipleFiles()
    Dim SourceFolder As String
    Dim FileExtension As String
    Dim TargetWorkbook As Workbook
    Dim SourceWorkbook As Workbook
    Dim SourceWorksheet As Worksheet
    Dim TargetWorksheet As Worksheet
    Dim SourceRange As Range
    Dim TargetRange As Range
    Dim FileName As String
    
    ' 设置源文件夹路径和文件扩展名
    SourceFolder = "C:\Path\To\Source\Folder\"
    FileExtension = "*.xlsx"
    
    ' 设置目标工作簿和工作表
    Set TargetWorkbook = ThisWorkbook
    Set TargetWorksheet = TargetWorkbook.Worksheets("Sheet1")
    
    ' 获取源文件夹中的所有文件
    FileName = Dir(SourceFolder & FileExtension)
    
    ' 循环处理每个文件
    Do While FileName <> ""
        ' 打开源文件
        Set SourceWorkbook = Workbooks.Open(SourceFolder & FileName)
        
        ' 设置源工作表和复制范围
        Set SourceWorksheet = SourceWorkbook.Worksheets("Sheet1")
        Set SourceRange = SourceWorksheet.Range("A1:B10") ' 设置要复制的范围
        
        ' 设置目标复制范围
        Set TargetRange = TargetWorksheet.Range("A1")
        
        ' 复制数据
        SourceRange.Copy TargetRange
        
        ' 关闭源文件
        SourceWorkbook.Close SaveChanges:=False
        
        ' 获取下一个文件
        FileName = Dir
    Loop
    
    ' 清理对象
    Set TargetRange = Nothing
    Set SourceRange = Nothing
    Set TargetWorksheet = Nothing
    Set SourceWorksheet = Nothing
    Set TargetWorkbook = Nothing
    Set SourceWorkbook = Nothing
End Sub

上述代码中，首先需要设置源文件夹路径和文件扩展名，以及目标工作簿和工作表。然后，通过循环处理每个文件，打开源文件，设置源工作表和复制范围，设置目标复制范围，执行复制操作，最后关闭源文件。可以根据实际需求修改代码中的文件路径、工作表名称和复制范围。

推荐的腾讯云相关产品和产品介绍链接地址：