这个代码哪里错误

artuq

Option Explicit
Sub 汇总()
Dim i, k, name
Dim w As Worksheet, r As Worksheets
Set r = Worksheets("季度汇总")
For i = 3 To 10
name = r.Cells(i, 2)
For Each w In Worksheets
If Right(w.name, 1) = "月" Then
k = 3
Do While w.Cells(k, 2) <> ""
If LCase(Trim(w.Cells(k, 2))) = LCase(Trim(name)) Then
r.Cells(i, 3) = r.Cells(i, 3) + w.Cells(k, 3)
r.Cells(i, 4) = r.Cells(i, 4) + w.Cells(k, 4)
r.Cells(i, 5) = r.Cells(i, 5) + w.Cells(k, 5)
r.Cells(i, 6) = r.Cells(i, 6) + w.Cells(k, 6)
End If
k = k + 1
Loop
End If
Next w
Next i
End Sub

HuanChen00

dim问题，类型不匹配，Dim w, r As Worksheet就可以了，都是工作表

HuanChen00

HuanChen00 发表于 2020-12-14 21:52
dim问题，类型不匹配，Dim w, r As Worksheet就可以了，都是工作表

work sheets 是一个集合 后缀s是复数，你那么定义就会出现类型不匹配问题