求助大神们能帮我看看补全这个函数,感激涕零!!!

风里沙

这是调用的地方:

Sub dr()
Dim arr, i&, j&, a
Dim m, n, r&, z, c%, t$
Dim d As Object, k, x
'On Error Resume Next
m = 0
n = 0
c = 19

If Application.CountA(Cells(1, c).EntireColumn) = 0 Then
  'Range.Select
  Cells(1, c).Select
  ActiveSheet.Paste
End If

k = Val(Range("p3").Value)
If k <= 0 Then k = 9999999
Set d = CreateObject("scripting.dictionary")
Dim st$
i = Cells(Cells.Rows.Count, 2).End(3).Row

arr = Range("b1").Resize(i, 2)
ReDim brr(1 To UBound(arr), 1 To 1)
For i = ER To UBound(arr)
  st = 去文字(arr(i, 1))
  If st <> "" Then
    d(st) = i
  End If
Next i

这是那个函数,这个函调用的dll文件丢失了
Function 去文字(sr)
Dim tt As New 处理
去文字 = tt.去文字(sr, "")
End Function

有没有大神能帮我把这个函数的实现方法补一下,感谢!感谢!感谢!

砂海

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
这是那个函数,这个函调用的dll文件丢失了
Function 去文字(sr)
Dim tt As New 处理
去文字 = tt.去文字(sr, "")
End Function'''''''''''''''''''''''''''''''''''''''''''''''''''


如果 是 DLL 文件 丢了 , 修复一下就好 , 犯不着有现成工具不用 , 自己造轮子

另: 不确定 " 处理 " 是否 已经定义

风里沙

砂海 发表于 2019-12-27 08:17
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
这是那个函数,这个函调用的dll文件丢失了
...

就是不懂怎么修复,大神能详细说下怎么操作吗