如何引用不同的sheet啊?!

Question

ActiveCell.FormulaR1C1 = "=sheet"& i &"!k10
还是ActiveCell.FormulaR1C1 = "=sheet&i!"!k10都不行啊!!!!

Answer 1

Dim i%, b As Range
For i = 1 To Sheets.Count
Set b = Sheets(1).Cells(i, 3)
b = Sheets(i).Range("k10")
Next i

Answer 2

Dim i%, b As Range
For i = 1 To Sheets.Count
Set b = Sheets(1).Cells(i, 3)
b = Sheets(i).Range("k10")
Next i这个我知道,可是得到的是一个数字
我要的是一个公式:(

Answer 3

Sub gg()
Dim a%
For a = 1 To Sheets.Count
Sheets(1).Cells(a, 3).Select
Selection.FormulaR1C1 = "=sheet" & a & "!RC[" & (10 - a) & "]"
Next a
End Sub这个可以实现功能你要的.

Answer 4

Selection.FormulaR1C1 = "=sheet" & a & "!RC[" & (10 - a) & "]"引号太多,出来都是红色的:(

Answer 5

用“工具-宏-录制新宏”启动一个录制过程，然后操作，选择你要的SHEET，然后结束录制。编辑该宏，你就会看到熟悉的VB代码了。