希望能够找到EXCEL中的空值，并把它们替换为“9999999999”，如果表格中没有空值？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

Sub 宏2()
'
' 宏2 宏
'
' 快捷键: Ctrl+b
'

For i = 1 To 10

    Workbooks.Open Filename:= _
        "d:\总股本\HKSHRSTRUCT_EXT_ ("+ CStr(i) + ").xls"
    Range("G8").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.FormulaR1C1 = "9999999999"
    ActiveWorkbook.Save
    ActiveWindow.Close
    Windows("工作簿1").Activate
next
End Sub

我这段程序希望能够找到EXCEL中的空值，并把它们替换为“9999999999”，请问如果表格中没有空值，它就停止并报错。该怎么修改这个程序呢？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：EXCEL xcel exce cel Application Windows EXCEL 程序

看不懂，囧

开头加个on error resume next即可

nankaizx 发表于 2015-2-2 18:44
开头加个on error resume next即可

多谢你！我来试试

nankaizx 发表于 2015-2-2 18:44
开头加个on error resume next即可

多谢你！我来试试

高手出现啦

maxthing 发表于 2015-2-3 21:15
高手出现啦

nankaizx确实挺厉害的

Ctrl + G 这个事 Go to 功能 然后选择特殊选项 选择空白 这样你就选中了所有的空白单元格 然后手打=average(你要的列），然后按 Ctrl+回车即可 然后这里面设计一个问题就是circular reference 因为你变成平均值的这个数也会被带入平均值重新计算 Excel的默认设置是不允许的 你必须要先解禁这个选项 Excel 选项里面 选公式 然后 把红圈里面的打钩 如果你数就把100那里拉大一点