1つ上のために細胞を連結し、私は次のように実行しますVBAスクリプトになるだろうどのようにオリジナル

Question

削除：

現在選択されている行の最初のセルが空白の場合、第二に、セルを連結します現在の行を上の行に移動し、下のセルを上に移動しながら現在の行を削除します。

は、私は私の細胞の一つで式としてこれを持っていたが、それは私が式を持つことができないので、私はそれが私が完全に失われたんだ現在の行

=IF(AND(A8<>"",A9=""),CONCATENATE(B8," ",B9)) 

だ削除マクロであることをそれを必要と判明しますどこから始めるべきか、どんなポインターも大いに評価されるだろう。

Answer 1

これは私が推測するこれらのコードで行うことができます。ループが必要な場合は、forループと削除選択部分を挿入できます。

Sub lalala() 
Dim rowNum As Long 
rowNum = Selection.Row 

If Selection = "" And Cells(rowNum, 1) = "" Then 

Cells(rowNum - 1, 2).Value = Cells(rowNum - 1, 2).Value & " " & Cells(rowNum, 2).Value 
Selection.EntireRow.Delete 
End If 


End Sub