Question

新手请教个VBA的问题Selection.AutoFill Destination:=Range("A1:A176")

Selection.AutoFill Destination:=Range("A1:A176")
这是自动填充到176行， 怎么写才能自动填充 到文件是多少行就填充到多少行
Range("A1").Select
ActiveCell.FormulaR1C1 = "mgcei:cell="
Range("C1").Select
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A176")
Range("A1:A176").Select
就是把mgcei:cell= 自动填充 不要1到176

Answer 1

Dim i As Integer
Dim cl
i = 0
For Each cl In Columns("a:a").Cells
i = i + 1
If cl = "" Then
Exit For
End If
Next
Selection.AutoFill Destination:=Range("A1:A" & Str(i))
因为没有你的数据，没法测试。原理就是这样的，就是开始先找到多少行。

Answer 2

顶windsun81,这个方法不错,可惜我上次不会用For Each cl In Columns("a:a").Cells!!!
没办法,搞了一个很笨的办法,不过最后也实现这个功能了,就是填充足够多的行,然后,用变量把需要填充的标记出来,再删除多余的...
把哪些填充结果copy,复制,粘贴为数值,然后把异常的全部替换为空.呵呵
看来你这个办法应该不错...