excel合并表格代码

在Excel中，合并表格可以通过编写VBA宏来实现。以下是一个示例的代码，用于将两个单元格范围合并到一个单元格中：

Sub 合并表格()
    Dim ws As Worksheet
    Dim rng1 As Range, rng2 As Range, mergeRange As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要合并的第一个单元格范围
    Set rng1 = ws.Range("A1:B1")
    
    ' 设置要合并的第二个单元格范围
    Set rng2 = ws.Range("C1:D1")
    
    ' 将两个单元格范围合并为一个单元格范围
    Set mergeRange = Union(rng1, rng2)
    
    ' 合并单元格
    mergeRange.Merge
    
    ' 可以根据需要设置合并后的单元格的格式
    mergeRange.HorizontalAlignment = xlCenter
    mergeRange.VerticalAlignment = xlCenter
    mergeRange.Font.Bold = True
    
    ' 取消合并后的单元格的边框
    mergeRange.Borders.LineStyle = xlNone
End Sub

以上代码首先设置要操作的工作表，然后设置要合并的两个单元格范围，将它们合并为一个单元格范围，再进行合并。最后可以根据需要对合并后的单元格进行格式设置，例如设置对齐方式、字体加粗等，并取消合并后的单元格的边框线。