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
↓ 参考になるブログがたくさんあります!ぜひどうぞ! ↓
にほんブログ村 その他日記ブログ 日々のできごとへ

スポンサーリンク