Excel VBA: 合并多个区域数据并输出到新区域

以下是将A1:C20的数据和F2:H13的数据合并在一起，并输出到一个sheet中的VBA代码：\n\nvba\nSub MergeData()\n Dim ws As Worksheet\n Dim range1 As Range, range2 As Range, mergedRange As Range\n \n ' 设置源数据范围\n Set ws = ThisWorkbook.Worksheets("Sheet1")\n Set range1 = ws.Range("A1:C20")\n Set range2 = ws.Range("F2:H13")\n \n ' 计算合并后的目标范围\n Set mergedRange = ws.Range("J1").Resize(range1.Rows.Count + range2.Rows.Count, range1.Columns.Count)\n \n ' 将源数据复制到目标范围\n mergedRange.Value = Application.Transpose(Application.Transpose(range1.Value))\n mergedRange.Offset(range1.Rows.Count).Value = Application.Transpose(Application.Transpose(range2.Value))\n \n ' 清除源数据\n range1.ClearContents\n range2.ClearContents\nEnd Sub\n\n\n请将代码复制到VBA编辑器中的模块中，然后运行MergeData子过程即可将A1:C20的数据和F2:H13的数据合并在一起，并输出到J1:N33的范围中。