月別: 2020年11月

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

 

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

 

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

 

Sub Macro0509()
ActiveCell.Copy
Range(“C3:E6”).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlPasteSpecialOperationMultiply
Application.CutCopyMode = False
End Sub

 

 

Sub Macro0508()
Range(“B6:E6”).Cut
Range(“B3:E3”).Insert Shift:=xlShiftDown
End Sub

 

Sub SampleStatement()
ActiveCell.Cut Destination:=Range(“B9”)
End Sub

 

Sub Macro0507()
Selection.Copy
Range(“B8”).Activate
ActiveSheet.Paste
End Sub