vba - 使用VBA将Excel中两个单元格中的文本合并为一个

Question

我从客户那里收到了许多 Excel 文件。

他们的系统将数据提取到电子表格中，但其中一列出现问题。如果文本太长，它会将剩余的文本放入其下方的单元格中。

这会导致该行中的所有其他字段为空白，但溢出除外。

对于收到的所有文件，如何将有问题的单元格合并为一个？

我上传了文件的屏幕截图作为示例。请注意第 8 行 H8 是唯一的单元格。这需要与H7合并。不过，并非每一行都有问题。

Answer 1

假设 A是主要的( double 为空)
假设 H持有文本
然后在 L1并抄下来

=H1&IF(LEN(A2),H2,"")

最简单的方法(然后将值从 L 复制到 H 并删除空行(只需使用过滤器)
当行数未知时(拆分后)，您最好使用 vba(或简单地重复整个过程，直到不再有空行...

在 VBA 中执行此操作:

Sub testing()
  Dim i As Long
  While Len(Cells(i + 1, 8))
    i = i + 1
    While Len(Cells(i + 1, 1)) = 0 And Len(Cells(i + 1, 8))
      Cells(i, 8) = Cells(i, 8) & Cells(i + 1, 8)
      Rows(i + 1).Delete
    Wend
  Wend
End Sub

大多数程序会跳过空格，因此您可能需要使用:

=H1&IF(LEN(A2)," "&H2,"")

或为 vba 更改 Cells(i, 8) = Cells(i, 8) & Cells(i + 1, 8)至 Cells(i, 8) = Cells(i, 8) & " " & Cells(i + 1, 8)