VBA宏自动填充Excel公式

'自动填充XQB的F\G\H列  
'自动填充公式的一个使用实例
Sub AutoFillXQB()
  
   Const TeststepA = 3 * 2            '三个公式需要填充，可以用TeststepArray 的size来代替
   Dim TeststepArray  As Variant
   
    'Array  的结构是奇数为填充起始区域，偶数为公式
    '实际应用时，公式通过录制宏获得
    TeststepArray = Array("F2", "=LOOKUP(""做"",R2C[-4]:RC[-4])", "G2", "=VLOOKUP(RC[-1],R2C[-5]:RC[-4],2)", "H2", "=LOOKUP(""做"",R2C[-7]:RC[-7])")   
    Dim CurSheetIndex, CurCellRowIndex, CurCellColIndex As Integer
    
    '记录当前位置
    CurSheetIndex = ActiveSheet.Index
    CurCellRowIndex = ActiveCell.Row
    CurCellColIndex = ActiveCell.Column
   
    '激活需要填充公式的表，例子中为"XQB"
    ThisWorkbook.Sheets("XQB").Activate
    'x = ActiveSheet.Range("D65536").End(xlUp).Row
    x = GetTableMaxRecordNum   '调用函数获得有效行数，即需要填充的行（例子中从2开始，1是标题行））
    If x > 1 Then
        For i = 1 To TeststepA Step 2
          k = myAutoFill(TeststepArray(i - 1), TeststepArray(i), x)    '调用函数实际填充公式
        Next i
    Else
        ActiveSheet.Range("F2").Value = ""
        ActiveSheet.Range("G2").Value = ""
        ActiveSheet.Range("H2").Value = ""