|
楼主 |
发表于 2019-12-19 15:39
|
显示全部楼层
朱老师您好,非常感谢您的回复,但我是初学者,不知如何定义变量,运行时提示错误13类型不匹配,还请您帮忙看一下,我是不是哪个变量类型弄错了?谢谢!
Sub test()
Application.ScreenUpdating = False
Dim f As String
Dim wb As Workbook
Dim i As Integer
ReDim ar(i, 3) As Long
Dim hb As Single
Dim zk As Single
f = Dir(ThisWorkbook.Path & "\×üÕËóà¶î±í.xls*")
If f = "" Then MsgBox "×üÕËóà¶î±í2»′æÔú": Exit Sub
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)
ar = wb.Worksheets(1).UsedRange
wb.Close False
For i = 7 To UBound(ar) - 2
If Trim(ar(i, 3)) = "ÏÖ½e" Or Trim(ar(i, 3)) = "ÆúÄ©½è·½½e¶î" Or Trim(ar(i, 3)) = "òøDD′æ¿î" Then
hb = hb + Val(ar(i, 8))
End If
If Trim(ar(i, 3)) = "ó|êÕÕê¿î" Then
zk = zk + Val(ar(i, 8))
End If
Next i
Sheet1.[c6] = hb
Sheet1.[c9] = zk
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub |
|