excel合并多个工作表vba公式

在Excel中使用VBA（Visual Basic for Applications）来合并多个工作表的数据通常涉及到读取各个工作表的内容，处理数据，然后将结果写入到一个新的工作表或指定位置。以下是一个简单的例子，说明如何使用VBA来合并A列：

Sub MergeWorksheets()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet ' 假设我们有三个工作表ws1、ws2和ws3
    Dim newWs As Worksheet ' 新的工作表用于存放合并后的数据
    Dim lastRow As Long
    Dim i As Long
    
    ' 创建或选择新的工作表
    Set newWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ' 如果没有指定，新工作表会放在最后
    lastRow = newWs.Cells(Rows.Count, "A").End(xlUp).Row ' 获取新工作表最后一行

    ' 依次遍历每个工作表的A列，并添加到新工作表
    For Each ws In Array(ws1, ws2, ws3) ' 假设这三个工作表都在同一工作簿里
        With ws.Range("A" & 1, ws.Cells(ws.Rows.Count, "A").End(xlUp))
            For i = 1 To .Rows.Count
                newWs.Cells(lastRow + i, 1).Value = .Cells(i, 1).Value ' 将A列单元格值复制过去
            Next i
        End With
    Next ws
    
    ' 提示任务完成
    MsgBox "工作表已合并到新的工作表中！", vbInformation, "信息"
End Sub

在这个VBA脚本中，你需要根据实际工作表名称修改`ws1`, `ws2`, 和 `ws3` 的引用，并可以按照需要调整合并的位置和范围。