Excel VBA 質問スレ Part48 [無断転載禁止]©2ch.net

[48 デフォルトの名無しさん (ﾜｯﾁｮｲ eef3-8cHL) 2017/05/18(木) 14:52:51.70 ID:5nCvEgDF0]

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address

Case "$A$1"

If Not IsNumeric(Target.Value) Or Target.Value = "" Then

Exit Sub

Range("B1:B9").Copy Range("B2")

Range("B1").Value = Range("A1").Value

Target.Select

End Select

End Sub

このコードの意味教えてくださいー