1

从我每天收到的电子邮件中导入数据时,我必须检查并清理一列,该列具有如下所示的行集。我想知道的是如何将 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    |
|------------------|------------------|------------------|
4

1 回答 1

0

您可以编写一个 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

这就是本质。然后如果需要重复操作等,可以进行适配。

于 2013-11-14T22:21:48.113 回答