写个VBA程序 将多个工作表合并到一个工作表中

好的，这是一个将多个工作表合并到一个工作表中的 VBA 程序：

Sub MergeWorksheets() Dim ws As Worksheet, wsTemp As Worksheet Dim lRow As Long

' 设置当前工作簿为目标工作簿
Set wsTemp = ThisWorkbook.Worksheets("目标工作表")

' 在目标工作表最后一行后面添加一行
lRow = wsTemp.Range("A" & wsTemp.Rows.Count).End(xlUp).Row
wsTemp.Range("A