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

or

如何连接单元格值,直到找到列中的空白单元格?

doc连接,直到空白1

例如,我有一个包含一些空白单元格的值列表,现在,我想将空白单元格之间的每个数据集合到一个单元格中,并在另一列中列出组合的值,如下面的屏幕截图所示。 我怎么能连接细胞,直到找到列中的空白单元格?

连接单元值,直到在VBA代码中找到列中的空白单元格为止

连接单元格值,直到用Kutools for Excel在列中找到空白单元格为止


通过空白单元格将单个列/行转换为一个范围:

Kutools for Excel's 变换范围 实用程序可以帮助您将单个行或列转换为单元格范围,反之亦然。

doc连接,直到空白9

Kutools for Excel:比200方便的Excel加载项,可以在60天免费试用。 下载并免费试用现在!


箭头蓝色右泡 连接单元值,直到在VBA代码中找到列中的空白单元格为止


没有直接的方法可以在空白之间连接一组单元格,但是,您可以应用以下VBA代码来处理它。 请做如下:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications窗口.

2。 点击 插页 > 模块,并将以下代码粘贴到 模块窗口.

VBA代码:连接单元值,直到找到空白单元格为止

Sub Concatenatecells()
'updateby Extendoffice 20160513
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xTStr As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selecte the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "the selected range is more than one column", vbInformation, "Kutools for Ecel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please selecte output cell:", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell <> "" Then
            xTStr = xTStr & xCell & " "
        Else
            xSaveToRg.Value = xTStr
            Set xSaveToRg = xSaveToRg.Offset(1)
            xTStr = ""
        End If
    Next
    If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
    Application.ScreenUpdating = True
End Sub

3. 然后按 F5 键来运行这个代码,弹出一个提示框来提醒你选择你想要连接的数据范围,看截图:

doc连接,直到空白10

4。 然后点击 OK,另外弹出提示框,请选择一个单元输出连接结果,详见截图:

doc连接,直到空白11

5. 然后点击 OK 按钮,列列表数据在空白之间连接,请参见屏幕截图:

doc连接,直到空白1


箭头蓝色右泡 连接单元格值,直到用Kutools for Excel在列中找到空白单元格为止

如果你有 Kutools for Excel,结合其 变换范围 结合 功能,你也可以尽快完成这项工作。 该 变换范围 实用程序可以帮助您将单列转换为一个范围,并且 结合 功能可以帮助您将转换后的范围连接到一列。

Kutools for Excel : 与超过300方便的Excel加载项,在60天免费试用没有限制.

安装后 Kutools for Excel请按照以下步骤进行:

1. 选择要连接的单元格,然后单击 Kutools > Range > 变换范围,看截图:

doc连接,直到空白2

2。 在 变换范围 对话框,检查 单列到范围 选项下 变换类型,然后选择 空白单元格划分记录 在下面 每条记录的行数,看截图:

doc连接,直到空白3

3. 然后点击 Ok,弹出提示框提醒您选择一个单元格输出结果,详见截图:

doc连接,直到空白4

4。 点击 OK,单列数据已经被空白单元格转换成多行和多列,参见截图:

doc连接,直到空白5

5。 转换的数据为多列,所以需要将它们合并成一列,请选择数据范围并单击 Kutools > 结合,看截图:

doc连接,直到空白6

6。 在 组合列或行 对话框,请执行以下操作:

(1。)选择 合并列 选项从 根据以下选项组合选定的单元格;

(2。)然后指定一个分隔符,您要分隔连接值;

(3)选择你想如何处理组合的单元格。 您可以保留或删除原始数据,也可以合并组合的单元格。 看截图:

doc连接,直到空白7

7。 完成设置后,单击 Ok or 申请 按钮,单元格已经连接成一列,并带有特定的分隔符,请参阅屏幕截图:

doc连接,直到空白8

立即下载并免费试用Kutools for Excel!


Kutools for Excel - 最佳办公生产力工具提高80%的生产力

  • 重用: 快速插入 复杂的公式,图表 以及你以前用过的任何东西; 加密单元格 密码; 创建邮件列表 并发送电子邮件...
  • 超级方程式酒吧 (轻松编辑多行文字和公式); 阅读布局 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不丢失数据; 分裂细胞含量; 组合重复的行/列...防止重复的细胞; 比较范围...
  • 选择复制或唯一 行; 选择空行 (所有细胞都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择......
  • 精确复制 多个单元格而不更改公式参考; 自动创建参考 多张表; 插入项目符号,复选框等等......
  • 提取文本,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级过滤器 (将过滤方案保存并应用到其他工作表); 高级排序 按月/周/日,频率等; 特殊过滤器 用粗体,斜体......
  • 结合工作簿和工作表; 根据键列合并表; 将数据拆分为多个表格; 批量转换xls,xlsx和PDF...
  • 超过300强大的功能。 支持Office / Excel 2007-2019和365。 支持所有语言。 在您的企业或组织中轻松部署。 全功能60天免费试用。
kte tab 201905

Office选项卡为Office提供选项卡式界面,使您的工作更轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
官方底部

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.
  • To post as a guest, your comment is unpublished.
    Crystal · 2 years ago
    How would you do it if you want to base it off another column? I have similar data, but column B is a number then notes(like your fruit) in column I, I want to combine all notes in column I until there is another cell in Column B that has only number. Sometimes there are letter under B or the cells are blank which is why it needs to combine until a number.

    Then finally can it output back to where it started the combine? IE all notes for first number are in column j, but if the next number is 5 rows below that is fine, it just goes in column j but same row number as the number is found?