我想用vba在excel中实现一个功能，就是让在一个文件夹中的所有excel文件都汇总到一个新excel中...

您可以按照以下步骤使用VBA在Excel中实现此功能：

1. 打开一个新的Excel工作簿，按下Alt + F11打开VBA编辑器。

2. 在项目浏览器中，右键单击“VBAProject（您的工作簿名称）”，然后在弹出菜单中选择“插入”>“模块”，以添加一个新的VBA模块。

3. 在新的VBA模块中，复制以下代码：

Sub MergeExcelFiles()
    Dim path As String, thisWB As String, lngFilecounter As Long
    Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet
    Dim Filename As String, Wkb As Workbook
    Dim CopyRng As Range, Dest As Range, lastrow As Long

    '目标工作簿中包含的工作表的名称
    Set shtDest = ActiveWorkbook.Sheets("Sheet1")
    '目标工作簿中的起始单元格
    Set Dest = shtDest.Range("A1")

    '使用户可以选择要合并的工作簿的文件夹
    path = Application.ActiveWorkbook.path & "\"

    '取消屏幕更新以加快代码执行速度
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    '查找文件夹中的所有Excel文件
    Filename = Dir(path & "*.xls*")
    Do While Filename <> ""
        If Filename <> ActiveWorkbook.Name Then
            Set Wkb = Workbooks.Open(Filename:=path & Filename)
            Set ws = Wkb.Worksheets(1)

            '查找源工作簿中的最后一行
            lastrow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

            '复制数据到目标工作簿
            Set CopyRng = ws.Range("A1:IV" & lastrow)
            CopyRng.Copy Dest

            '设置下一个空单元格作为目标工作簿的起始单元格
            Set Dest = Dest.Offset(lastrow, 0)

            Wkb.Close False
            lngFilecounter = lngFilecounter + 1
        End If

        '查找下一个文件
        Filename = Dir()
    Loop

    '重新启用屏幕更新和警告
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    '显示合并结果
    MsgBox "共合并了 " & lngFilecounter & " 个工作簿。", vbInformation, "合并完成"

End Sub

4. 修改代码中的以下内容：

- 将“Sheet1”更改为您的目标工作簿中包含要合并数据的工作表的名称。

- 将“A1”更改为您的目标工作簿中要从源工作簿复制数据的起始单元格。

- 如果您只想合并特定的Excel文件，可以修改以下代码中的文件扩展名：`Filename:=path & "*.xls*"`

5. 在VBA编辑器中，按下F5或单击工具栏上的“运行”按钮，以运行代码并合并所有Excel文件。

请注意，此代码将所有工作表的数据复制到目标工作簿中的相应位置。如果要更改此行为，请修改代码中的“CopyRng”和“Dest”变量。