VBA代码合并Excel表格数据：A1:C20与F2:H13

以下是一个用VBA将A1:C20的数据和F2:H13的数据合并的示例代码：\n\nvba\nSub MergeData()\n Dim ws1 As Worksheet, ws2 As Worksheet\n Dim rng1 As Range, rng2 As Range, mergeRng As Range\n \n ' 设置源数据工作表和范围\n Set ws1 = ThisWorkbook.Sheets("Sheet1")\n Set rng1 = ws1.Range("A1:C20")\n \n ' 设置目标数据工作表和范围\n Set ws2 = ThisWorkbook.Sheets("Sheet1")\n Set rng2 = ws2.Range("F2:H13")\n \n ' 计算合并后的范围\n Set mergeRng = ws2.Range("J1").Resize(rng1.Rows.Count + rng2.Rows.Count, rng1.Columns.Count)\n \n ' 将源数据复制到合并后的范围\n mergeRng.Value = Application.Transpose(Application.Transpose(rng1.Value))\n mergeRng.Offset(rng1.Rows.Count).Value = rng2.Value\n \n ' 可选：将合并后的数据格式进行调整\n mergeRng.NumberFormat = rng1.NumberFormat\n \n ' 可选：自动调整目标数据工作表的列宽\n mergeRng.EntireColumn.AutoFit\nEnd Sub\n\n\n请将上述代码复制到VBA编辑器中的一个新模块中，并根据需要修改工作表名称和范围。运行该宏后，合并后的数据将出现在目标范围J1:M33中。