ExceL vba でプログラミング

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

 

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

 

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

 

 

Sub Macro0506()
Dim rng As Range
Dim s As String, sl As Integer, p1 As Integer, p2 As Integer
For Each rng In Selection
If rng.Value Like “[A-Z]班 *,*” Then
s = rng.Value
sl = Len(s)
p1 = InStr(s, ” “)
p2 = InStr(s, “,”)
rng.Value = Right(s, sl – p2) & _
Mid(s, p1 + 1, p2 – p1 – 1)
End If
Next rng
End Sub