经管之家首页 答疑首页 EXCEL/VBA 希望能够找到EXCEL中的空值,并把它们替换为“9999999999”,如果表格中没有空值?
  • 统计与数据分析
  • 经济学
  • 管理学
  • 金融学
  • 财会类
  • 国际贸易类
  • 考研考博与考证
  • 找数据和资料
  • 求职与职场
  • 学术与投稿类
  • 社会生活
  • 其它
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”,请问如果表格中没有空值,它就停止并报错。该怎么修改这个程序呢?

nankaizx
回答于 2015/02/02 18:44
开头加个on error resume next即可
 加载中...