请教把公式从第2行写到表的最后一行（经常变动的）该怎么写？）

zgzsa

请教把公式从第2行写到表的最后一行（经常变动的）该怎么写？（Range "Y2:Y" & [B65536].End(xlUp).Ro.Value = "=SUM(A2:B2)" 不对）

山菊花

Range("Y2:Y" & [B65536].End(xlUp).Row).Formula = "=SUM(A2:B2)"

zgzsa

谢谢指教 但 Range("Y2:Y" & [B65536].End(xlUp).Row).Formula = "=COUNTIF(B2:U2,">9.0")"  仍然报错 不知道错在哪里
还有类似自动填充到最后一行 也请指教 Selection.AutoFill Destination:=Range("Y2:Y" & [B65536].End(xlUp).Row) 也不知道错在哪里

万分感谢

[ 本帖最后由 zgzsa 于 2009-1-31 23:06 编辑 ]

山菊花

公式中要输出引号，在VBA代码中用两个引号代替一个引用：
Range("Y2:Y" & [B65536].End(xlUp).Row).Formula = "=COUNTIF(B2:U2,"">9.0"")"
问题二：执行程序前要先定位Y2单元格。实际应将代码改为：
Range("Y2").AutoFill Destination:=Range("Y2:Y" & [B65536].End(xlUp).Row)

zgzsa

Range("B2:B" & [B65536].End(xlUp).Row).Formula = "=iF(iSERROR(VLOOKUP(RC[-1],C[1],1,)),""最新"","""")"
只在B2 写了 其它行没有 请指教
在下一行加入自动填充（语法检查又提示出错）
Range("B2").AutoFill Destination:=Range("B2:B" & [B65536].End(xlUp).Row)

[ 本帖最后由 zgzsa 于 2009-2-1 11:46 编辑 ]

zgzsa

在填充公式之前B2向下都是空的，所以只填充B2，改为[A65536].End(xlUp).Row试试

AVEL

公式中要输出引号，在VBA代码中用两个引号代替一个引用：
Range("Y2:Y" & [B65536].End(xlUp).Row).Formula = "=COUNTIF(B2:U2,"">9.0"")"
==============================

,"">9.0"" 要有两个'' 不太明白