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セルに移動

Sub moveCellToBlankA1()
If Range("A1").Value = "" Then
Range("B1").Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
End If
End Sub