我怎样才能合并多个单元格，而不会丢失文本数据，而不使用公式？

从每天收到的电子邮件中导入数据时，我必须通过并清理一个列，其中有一组行，如下面所示。 我想知道的是如何将列B的数据合并到第1行，以便我可以删除现在的空行2和3.我已经看到了连接等公式，但是这需要保留数据。 只要我清理这些数据，它将被移动到另一张纸上。

感谢您的帮助。

|--------A---------|---------B--------|--------C---------| 1 Important Data | Important Data | Important Data | |------------------|------------------|------------------| 2 Empty Cell | Empty Cell | Empty Cell | |------------------|------------------|------------------| 3 Empty Cell | Important Data | Empty Cell | |------------------|------------------|------------------| 

Answer 1

你可以写一个Sub来连接，并用结果代替B1。

 Sub test() Dim s As String Dim ws As Worksheet Set ws = ActiveSheet s = ws.Range("B1").Text & ws.Range("B2").Text & ws.Range("B3").Text ws.Range("B1") = s ws.Range("B2:B3").Clear End Sub 

这是本质。 那么如果你需要重复操作等，它可以适应。