|
以下のマクロを実行して、
隣のシートに移動し、繰り返し同じ作業をして、
シート末尾にきたらマクロを終了させたいのですが。。
どう記述したらよいのでしょうか?
Sub シート加工()
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Range("E1").Select
ActiveCell.FormulaR1C1 = "分"
Range("D1").Select
ActiveCell.FormulaR1C1 = "勝"
Columns("C:C").Select
Selection.Cut
Range("J1").Select
ActiveSheet.Paste
Columns("I:I").Select
Selection.Delete Shift:=xlToLeft
Range("H1").Select
ActiveCell.FormulaR1C1 = "失"
Range("G1").Select
ActiveCell.FormulaR1C1 = "得"
Range("F1").Select
ActiveCell.FormulaR1C1 = "敗"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=ASC(RC[-1])"
Range("C2:C21").Select
Selection.FillDown
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("I2").Select
ActiveCell.FormulaR1C1 = "<>"
Range("I2").Select
ActiveCell.FormulaR1C1 = "<br><br>"
Range("I2:I21").Select
Selection.FillDown
End Sub
|
|