[已解决][求助]如何才能引用上一个工作表的单元

linyongcong

Sub 修改()
    Dim X As Integer
    For X = 2 To 31
    Sheets(x).select
    Range("D4:D38").FormulaR1C1 = "=Sheets(x-1)!RC[11]+RC[12]"
    Range("H4:H38").FormulaR1C1 = "=RC[-1]+RC[9]"
    Next
End Sub

我引用不了前一个工作表单元，Sheets(x-1)!RC[11]这里有问题，不过我不知道要怎么用，请各位高手们帮一下忙。谢谢！

最佳答案

月排行榜 / 总排行榜

Zipall

2011-8-11 02:08

回复 linyongcong 的帖子

Sub 修改()
  Dim x As Integer
  Dim n As String
  For x = 2 To 31
    With Sheets(x)
        n = Sheets(x - 1).Name
        .Range("D4:D38").FormulaR1C1 = "=" & n & "!RC[11]+RC[12]"
        .Range("H4:H38").FormulaR1C1 = "=RC[-1]+RC[9]"
    End With
  Next
End Sub

跳转到最佳答案楼层

Zipall

回复 linyongcong 的帖子

Sub 修改()
  Dim x As Integer
  Dim n As String
  For x = 2 To 31
    With Sheets(x)
        n = Sheets(x - 1).Name
        .Range("D4:D38").FormulaR1C1 = "=" & n & "!RC[11]+RC[12]"
        .Range("H4:H38").FormulaR1C1 = "=RC[-1]+RC[9]"
    End With
  Next
End Sub

linyongcong

回复 Zipall 的帖子

谢谢您的帮助！烦了我几天的问题终于解决了！{:101:}