Question

Excel VBA 中range("a4").autofill destination:=range("a4:f4") 我想自动判断有效数据列

Excel VBA 中range("a4").autofill destination:=range("a4:f4")

我想自动判断有效数据列，然后向右填充到最后一列(有数据的最后一列)，如上面的a~f列(f是最后一列)，列号变量怎么取呢？或用什么函数可以代替？我试过用cells(r,c)代替range方法又行不通，求解！

Answer 1

改一下即可：
range("a4").autofill destination:=range("a4",range("XFD4").end(1))
如果文件是2003版本的.xls，将XFD4改为IV4
如果第4行原有数据没有到F列，而只有第一行标题到F列，则改为
range("a4").autofill destination:=range("a4").resize(1,range("XFD1").end(1).column)