excel如何批量两行合并为一行

发布网友 发布时间：2022-04-23 14:47

我来回答

共5个回答

热心网友 时间：2022-06-18 16:45

利用INDIRECT和ROW函数综合处理。

Excel版本参考：2010

1、选中B1单元格；

2、录入公式：=INDIRECT("a"&ROW()*2-1)&INDIRECT("a"&ROW()*2)

3、回车，下拉公式到B8，查看效果(OK)

热心网友 时间：2022-06-18 16:45

Sub aa()
    Dim rng As Range, 行数 As Integer, 列数 As Byte
    Application.DisplayAlerts = False
    行数 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    列数 = ActiveSheet.UsedRange.Columns.Count
    Set rng = [a1]
    While rng.End(xlDown) <> ""
        If rng.MergeCells = False Then
           Range(rng, rng.End(xlDown).Offset(-1, 0)).Merge
        End If
        Set rng = rng.End(xlDown)
    Wend
    [a1].Resize(行数, 1).Copy
    [b1].Resize(行数, 列数-1).PasteSpecial Paste:=xlPasteFormats
    Application.DisplayAlerts = True
End Sub

在excel中按alt+F11，插入，模块，把以上代码粘贴进去，按F5运行。

热心网友 时间：2022-06-18 16:46

B1=INDIRECT("a"&ROW()*2-1)&INDIRECT("a"&ROW()*2)
鼠标放在B1右下角,变成十字后,下拉即可复制公式.

热心网友 时间：2022-06-18 16:46

用格式刷，双击格式刷即可追问现在最主要的问题是，中间会夹杂一行正常的，不能大面积的去选

追答格式刷就是你先选中合并的行，双击格式刷，然后逐个点，遇到一行的你就跳过去，不用点，

另外我觉得你如果把它们都合并的话不如直接删除空行，

热心网友 时间：2022-06-18 16:47

B1=INDIRECT("a"&ROW()*2-1)&INDIRECT("a"&ROW()*2)
鼠标放在B1右下角,变成十字后,下拉即可复制公式。有用请采纳！