Excel VBA之計時決賽處理

參考網址：ExcelHome

運動會系統中計時決賽需另加一場附加預賽，以方便成績輸入，在EXCEL中重覆的動作就交給巨集處理吧。
先用[以相對位置錄製] [錄製巨集]，完成操作後再細部修改程式
需要修改的應該只有把場次名稱+"A" 這一行
ActiveCell.FormulaR1C1 = ActiveCell.Offset(1, 0).Value & "A"

Sub 巨集1()
'
' 巨集1 巨集
' 將計時決賽分成預賽與決賽
'
' 快速鍵: Ctrl+a
'
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 1).Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ActiveCell.Offset(1, 0).Value & "A"
    ActiveCell.Offset(0, 4).Range("A1").Select
    ActiveCell.FormulaR1C1 = "預賽"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "決賽"
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

使用方法：在欲增加附加預賽的場次上按[ctrl+a]
就可以增加一場附加預賽