VBA合并数据到新工作表 - Excel技巧

以下是用VBA实现将A2:A15, C2:C15, F2:F15, P2, U2 和 S2合并在一起组成一个新的数据表，并将结果输出到Sheet3的代码：\n\nvba\nSub MergeData()\n Dim ws1 As Worksheet\n Dim ws3 As Worksheet\n Dim lastRow As Long\n \n ' 设置工作表对象\n Set ws1 = ThisWorkbook.Sheets("Sheet1")\n Set ws3 = ThisWorkbook.Sheets("Sheet3")\n \n ' 获取最后一行\n lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row\n \n ' 复制数据到Sheet3\n ws1.Range("A2:A" & lastRow).Copy ws3.Range("A1")\n ws1.Range("C2:C" & lastRow).Copy ws3.Range("B1")\n ws1.Range("F2:F" & lastRow).Copy ws3.Range("C1")\n ws1.Range("P2").Copy ws3.Range("D1")\n ws1.Range("U2").Copy ws3.Range("E1")\n ws1.Range("S2").Copy ws3.Range("F1")\n \n ' 清除剪贴板\n Application.CutCopyMode = False\n \n ' 调整列宽\n ws3.Columns("A:F").AutoFit\n \n ' 提示成功\n MsgBox "合并数据成功并已输出到Sheet3。"\nEnd Sub\n\n\n请确保将代码中的"Sheet1"和"Sheet3"替换为你实际使用的工作表名称。运行此代码后，它将复制指定的范围数据到Sheet3，并自动调整列宽。最后，它将显示一个提示框，指示合并数据成功并已输出到Sheet3。