Question

EXCEL中VB编程关于自动填充代码的问题(高手进)

录制后的自动填充的代码如下:
Selection.AutoFill Destination:=Range("B1:B11"), Type:=xlFillDefault
Range("B1:B11").Select
但第一行RANGE中的是绝对数值,那怎样用变量来表示呢
多谢了
二楼和三楼测试的结果还是range的AutoFill方法无效,
难道正如一楼所说真的不能了么?能不能换个思路用其它的办法来达到同样的效果啊?
我B11这个单元格里面是一个公式.并且这个公式是经常要更改的,如果每次都在代码里改很麻烦,所以最好在表格里改
望高手帮我一下,谢了
如果可行我会再追加50分的,决不食言

唉!真遗憾,都不能达到我的要求
我研究了半天,换了个思路,用循环的办法终于完全解决了:
For i = 1 To 10
Cells(i, 2) = Cells(11, 2).FormulaR1C1
Next i

不过还是感谢各位,追加20分吧,至于采纳谁的投票吧

Answer 1

Set rng1 = Worksheets("Sheet1").Range("A1:A2")
Set rng2 = Worksheets("Sheet1").Range("A1:A20")
rng1.AutoFill Destination:=rng2

自带的帮助就有相关的信息：
先设置两个RANGE变量，用rng1作为数据源，自动填充rng2区域
两个区域可以用别的语句先计算好，然后再填充

等着追加50分

Answer 2

哦。这个好象比较困难，好象不能用变量来处理。我当初用的是从B1--B1000，然后把要自动填充的行数找出来，最后把底下不用自动填充的删除掉，转换为空就可以了。

Answer 3

Qd = "B1"
k = Qd & ":" & "B11"
Range(Qd).Select
Selection.AutoFill Destination:=Range(k), Type:=xlFillSeries
Range(k).Select

Answer 4

range(cells(1,2),cells(11,2))

Answer 5

Dim a,b as Integer
Dim cRange as String
a=1
b=11
cRange="B"& Trim(Str(a))&":B"& Trim(Str(b))
Selection.AutoFill Destination:=Range(cRange), Type:=xlFillDefault
Range(cRange).Select