[文本处理] 对指定的EXCEL表的非空单元格的内容改为"内容"

'VBS操作Excel
'CODE BY Broly
Dim objXl,objWork
Str="内容"   '此处为你的内容
Set objXl=CreateObject("Excel.Application")
'下面的 d:\test.xls 替换为你的Excel地址
Set objWork=objXl.Workbooks.Open("d:\test.xls",3,False)
objWork.Worksheets("Sheet1").Activate
For ag=1 To 2
For i=1 To objWork.ActiveSheet.UsedRange.Rows.count
  For j=1 To objWork.ActiveSheet.UsedRange.Columns.count
    If not IsEmpty(objWork.ActiveSheet.Cells(i,j).Value) Then
      objWork.ActiveSheet.Cells(i,j).Value=Str
    End if
  Next
Next
Next
objXl.Workbooks(1).Save
objWork.Close
msgbox "完成！ "
Set objXl=Nothing:Set objWork=Nothing
复制代码