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 に答える