提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何合并Excel中的每一行/单元格?

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


在Excel中将所有其他行/单元格与公式合并

用VBA合并每一行/单元格

Office选项卡在Office中启用选项卡式编辑和浏览,使您的工作更轻松......
Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%
  • 重用任何东西: 将最常用或最复杂的公式,图表和其他任何内容添加到您的收藏夹中,并在将来快速重复使用它们。
  • 超过20文本功能: 从文本字符串中提取数字; 提取或删除部分文本; 将数字和货币转换为英语单词...
  • 合并工具:多个工作簿和表格合二为一; 合并多个单元格/行/列而不丢失数据; 合并重复行和总和...
  • 拆分工具:根据价值将数据拆分为多个表格; 一个工作簿到多个Excel,PDF或CSV文件; 一列到多列......
  • 粘贴跳过 隐藏/过滤行; 数和总和 按背景颜色; 创建邮件列表和 通过Cell的价值发送电子邮件...
  • 超级过滤器: 创建高级过滤方案并应用于任何工作表; 排序 按周,日,频率等; 筛选 通过大胆,公式,评论......
  • 超过300强大的功能; 与Office 2007-2019和365一起使用; 支持所有语言; 在您的企业或组织中轻松部署。

箭头蓝色右泡 在Excel中将所有其他行/单元格与公式合并


选择一个空白单元格并键入 =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 for Application 窗口。

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。 点击 OK,会显示另一个对话框,供您选择一个单元格以输出合并的结果。 看截图:


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



相关文章:

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.