体验零代码搭建

如何在Excel中合并其他所有行/单元格?

网友投稿  ·  2023-10-30 18:10  ·  表单工具  ·  阅读 1134


如何在Excel中合并其他所有行/单元格?

如果您有一个数据列表,并且想要将它们的每隔一行或每一个单元格合并在一起,如下所示,那么您知道如何完成它吗? 在Excel中,您可以使用公式或VBA合并其他所有行或单元格。

如何在Excel中合并其他所有行/单元格?

如果您有一个数据列表,并且想要将它们的每隔一行或每一个单元格合并在一起,如下所示,那么您知道如何完成它吗? 在Excel中,您可以使用公式或VBA合并其他所有行或单元格。

如何在Excel中合并其他所有行/单元格?

将其他每行/单元格与Excel中的公式合并

使用VBA合并每隔一行/单元格

将其他每行/单元格与Excel中的公式合并
惊人的! 在 Excel 中使用高效的选项卡,如 Chrome、Firefox 和 Safari! 每天节省50%的时间,并减少数千次鼠标单击!

选择一个空白单元格并键入 =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A $ 1表示列表中的第一个数据,您可以根据需要进行更改),然后按Enter键。 然后拖动填充手柄以填充应用此公式所需的范围。 看截图:

使用VBA合并每隔一行/单元格

如果您习惯使用VBA,还可以运行下面的VBA合并其他所有行。

1.按住 ALT 按钮并按下 F11 在键盘上打开一个 Microsoft Visual Basic应用程序 窗口。

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
Copy

3。 点击 运行 运行VBA代码,以及 Kutools对于Excel 弹出对话框,您可以选择要合并其他所有行的单元格范围。 看截图:

4。 点击 OK,将显示另一个对话框,供您选择单个单元格以显示合并结果。 看截图:

5。 点击 OK,您可以看到结果:

相关文章: 在Excel中选择每隔一行或第n行 复制每隔一行 删除每隔一行


excel如何设置图表 excel图表设置方法 << 上一篇
2023-10-30 18:10
excel如何设置图表?excel图表设置方法
2023-10-30 18:10
下一篇 >>

相关推荐