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

发布网友发布时间：2022-07-11 00:58

共5个回答

热心网友时间：2022-07-11 01:04

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

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

等着追加50分

热心网友时间：2022-07-11 01:04

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

热心网友时间：2022-07-11 01:05

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

热心网友时间：2022-07-11 01:05

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

热心网友时间：2022-07-11 01:06

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