VB生成EXCEL时,可以在公式里输入变量吗?

Question

比如我想让sheet1里一列的值分别等于sheet2,sheet3,sheet4....中Range("k10")的值For i = 1 To 10
Sheet1.Range("c" & i).Select
ActiveCell.FormulaR1C1 = "=sheet&i!RC[10-i]"
Next
其中"=sheet&i!RC[10-i]"就有问题,该怎么办呢?

Answer 1

For i = 1 To 10
Sheet1.Range("c" & i).Select
'ActiveCell.FormulaR1C1 = "=sheet&i!RC[10-i]"
ActiveCell.FormulaR1C1 = "=sheet&i!RC[" & (10 - i) & "]"
Next

Answer 2

你说的是我这个吗?
http://community.csdn.net/Expert/topic/3494/3494373.xml?temp=.595669可是
For i = 1 To 10
Sheet1.Range("c" & i).Select
'ActiveCell.FormulaR1C1 = "=sheet&i!RC[10-i]"
ActiveCell.FormulaR1C1 = "=sheet&i!RC[" & (10 - i) & "]"
Next这段你编译能过>?

Answer 3

这句ActiveCell.FormulaR1C1 = "=sheet&i!RC[" & (10 - i) & "]"
改一下：
ActiveCell.FormulaR1C1 = "=sheet"& i &"!RC[" & (10 - i) & "]"不过我得说，楼主除了要好问之外，如能更用脑会更好。

Answer 4

这句ActiveCell.FormulaR1C1 = "=sheet&i!RC[" & (10 - i) & "]"
改一下：
ActiveCell.FormulaR1C1 = "=sheet"& i &"!RC[" & (10 - i) & "]"这个更加不行,是红的饿

Answer 5

你可以把另一个sheet里的值用变量带过来参与运算

Answer 6

Dim i%, b As Range
For i = 1 To Sheets.Count
Set b = Sheets(1).Cells(i, 1)
b = Sheets(i).Range("k10")
Next i这是我的换位思考.为什么非要用上面的这个公式呢

Answer 7

呵呵.忘了看是C列
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 8

楼主是真接在excel时人工输入公式还是用VB\VBA来完成？
下面的语句只能是VB\VBA调用:
ActiveCell.FormulaR1C1 = "=sheet"& i &"!RC[" & (10 - i) & "]"

Answer 9

http://community.csdn.net/Expert/topic/3503/3503738.xml?temp=.2601129
谢谢指教！！

Answer 10

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 11

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 12

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 13

sheet1.cells(1,3)=sheet2.cells(10,11)
sheet2.cells(2,3)=sheet3.cells(10,11)
 .
 .
 .
剩下的不用写了吧?:)