Sub moveCellToBlankA1()
If Range("A1").Value = "" Then
Range("B1").Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
End If
End Sub
Excel VBA マクロ:A1セルが空だったら、B1セルの内容をA1セルに移動
![](http://kenlog.net/wp-content/uploads/2022/07/2022-07-30_16h29_47.png)
Sub moveCellToBlankA1()
If Range("A1").Value = "" Then
Range("B1").Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
End If
End Sub