如何在 Excel 中合并每隔一行或单元格？

如果你有一个数据列表，并希望将其中每隔一行或单元格合并，如下图所示，你知道如何实现吗？在 Excel 中，你可以使用公式或 VBA 来合并每隔一行或单元格。

使用公式在 Excel 中合并每隔一行或单元格

使用 VBA 代码在 Excel 中合并每隔一行或单元格

使用公式在 Excel 中合并每隔一行或单元格

选择一个空白单元格，输入以下公式并按“Enter”键。

=OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0)

然后向下拖动填充柄以填充你需要应用此公式的区域。

使用 VBA 代码在 Excel 中合并每隔一行或单元格

如果你习惯使用 VBA，也可以运行以下 VBA 来合并每隔一行。

1. 按住“ALT”键并在键盘上按“F11”打开“Microsoft Visual Basic for Applications”窗口。

2. 点击“插入”>“模块”，并将 VBA 代码复制到模块中。

VBA：合并每隔一行/单元格

Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
    For j = 1 To InputRng.Columns.Count
        OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
        Set OutRng = OutRng.Offset(0, 1)
    Next
    Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub         

3. 点击“运行”以运行 VBA 代码，会弹出一个“KutoolsforExcel”对话框，让你选择要合并每隔一行的单元格范围。参见截图：

4. 点击“确定”，另一个对话框会显示，让你选择一个单元格来放置合并结果。参见截图：

5. 点击“确定”，你就可以看到结果：

相关文章：

• 在 Excel 中选择每隔一行或第 n 行
• 复制每隔一行
• 删除每隔一行