月別: 2020年12月

Sub Macro0510()
Range(“B2”).Value = 1
Range(“B3”).Value = 6
Range(“B2:B3”).AutoFill Destination:=Range(“B2:B8”)
End Sub

---

Sub Macro0511()
Range(“B2”).Value = 1
Range(“B2:B8”).DataSeries Step:=5
End Sub

 

Sub SampleStatement()
Range(“B2”).AutoFill Destination:=Range(“B2:B8”), _
Type:=xlFillSeries
End Sub

 

Sub SampleStatement()
Range(“C2:C6”).FillDown
End Sub

 

Sub SampleStatement()
Range(“B4:D4”).Insert Shift:=xlShiftDown
End Sub

 

Sub SampleStatement()
Range(“C2:C5”).Delete Shift:=xlShiftToLeft
End Sub

 

Sub SampleStatement()
Range(“B2:D5”).Clear
End Sub