[已解决]为何下面这段代码我想进行简化的总是出错？

tinytiger

原来的代码：
    ActiveSheet.Range("B4").Select   
    ActiveCell.FormulaR1C1 = "='1月份奖金分配表'!RC[12]"
    ActiveSheet.Range("C4").Select
    ActiveCell.FormulaR1C1 = "='2月份奖金分配表'!RC[11]"
    ActiveSheet.Range("D4").Select
    ActiveCell.FormulaR1C1 = "='3月份奖金分配表'!RC[10]"
    ActiveSheet.Range("E4").Select
    ActiveCell.FormulaR1C1 = "='4月份奖金分配表'!RC[9]"
    ActiveSheet.Range("F4").Select
    ActiveCell.FormulaR1C1 = "='5月份奖金分配表'!RC[8]"
    ActiveSheet.Range("G4").Select
    ActiveCell.FormulaR1C1 = "='6月份奖金分配表'!RC[7]"
    ActiveSheet.Range("H4").Select
    ActiveCell.FormulaR1C1 = "='7月份奖金分配表'!RC[6]"
    ActiveSheet.Range("I4").Select
    ActiveCell.FormulaR1C1 = "='8月份奖金分配表'!RC[5]"
    ActiveSheet.Range("J4").Select
    ActiveCell.FormulaR1C1 = "='9月份奖金分配表'!RC[4]"
    ActiveSheet.Range("K4").Select
    ActiveCell.FormulaR1C1 = "='10月份奖金分配表'!RC[3]"
    ActiveSheet.Range("L4").Select
    ActiveCell.FormulaR1C1 = "='11月份奖金分配表'!RC[2]"
    ActiveSheet.Range("M4").Select
    ActiveCell.FormulaR1C1 = "='12月份奖金分配表'!RC[1]"

我想简化成以下代码：
      dim i%,j%
      For i = 1 To 12
        For j = 12 To 1 Step -1
          ActiveSheet.Cells(4, i + 1).Select
          ActiveCell.FormulaR1C1 = "= ''" & i & "月份奖金分配表''!RC[" & j & "]"
      Next j
    Next i
原来的代码运行没有错误，但是很繁琐，但运行简化后的代码时总是出现以下错误：应用程序定义或对象定义错误，停止在红色字体这一行，这是什么原因，求各位老师指点一下！

最佳答案

月排行榜 / 总排行榜

刘苏

2015-2-21 22:26

1. Sub SetMonth()
   
2. Dim Rng As Range, RCount As Integer
   
3. Set Rng = Selection.Resize(1, 12)
   
4. RCount = 1
   
5. For Each Rng In Rng
   
6.     Rng.FormulaR1C1 = "='" & RCount & "月份奖金分配表'!RC[" & 13 - RCount & "]"
   
7.     RCount = RCount + 1
   
8. Next
   
9. End Sub

复制代码

以所选区域第一个单元格为基准填入公式。

跳转到最佳答案楼层

刘苏

1. Sub SetMonth()
   
2. Dim Rng As Range, RCount As Integer
   
3. Set Rng = Selection.Resize(1, 12)
   
4. RCount = 1
   
5. For Each Rng In Rng
   
6.     Rng.FormulaR1C1 = "='" & RCount & "月份奖金分配表'!RC[" & 13 - RCount & "]"
   
7.     RCount = RCount + 1
   
8. Next
   
9. End Sub

复制代码

以所选区域第一个单元格为基准填入公式。

刘苏

错误的地方，感觉是 引号   

tinytiger

刘苏 发表于 2015-2-21 22:43
错误的地方，感觉是 引号

非常感谢～～～～，而且您给出的答案更为简洁！

tinytiger

麻烦刘老师再给看一下，质量与安全管理指标汇总表下的代码该怎么简化？

tinytiger

自己解决了，多些版主的指导！