[已解决]求助代码问题所在

qq8945051

1. Sub 填充空单元格()
   
2. Sheets("sheet1").Range("a1:" & "a" & Sheets("sheet1").Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
   
3. End Sub

复制代码

请问此代码问题出在哪里

最佳答案

月排行榜 / 总排行榜

xdragon

2014-6-26 15:10

如果没找到对应的空白单元格会返回错误
可以加个on error resume next去不执行错误的语句

跳转到最佳答案楼层

xdragon

如果没找到对应的空白单元格会返回错误
可以加个on error resume next去不执行错误的语句

qq8945051

xdragon 发表于 2014-6-26 15:10
如果没找到对应的空白单元格会返回错误
可以加个on error resume next去不执行错误的语句

太感谢您了  {:171:}