行,那你就这样写,慢没办法。
Dim ds() As String = {"'C:\", "'D:\'", "'E:\", "ge"}
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("d:\test02.xls")
For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets
For i As Integer = 1 To Ws.UsedRange.Rows.Count
For j As Integer = 1 To Ws.UsedRange.Columns.Count
For Each d As String In ds
If ws.cells(i,j).Formula.Toupper.StartsWith("=" & d) Then
ws.cells(i,j).copy
ws.cells(i,j).PasteSpecial(Paste:=MSExcel.XlPasteType.xlPasteValues, Operation:=MSExcel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False)
End If
Next
Next
Next
Next
Wb.Save
App.Quit