字典统计不重复值时出现多余的行？

SLF19860429

请老师们帮忙看看附件的sheet4,汇总的数据在B57为什么会出现了数字2呢？语句哪里有缺陷呢？
Sub 字典统计不重复值()
Dim myr As Long, i As Long, arr
Dim d, k, t, sht As Worksheet
Set d = CreateObject("scripting.dictionary")
For Each sht In Sheets
If sht.Name <> "sheet4" Then
myr = sht.Range("a1048576").End(xlUp).Row
arr = sht.Range("a2:a" & myr)
For i = 1 To UBound(arr)
d(arr(i, 1)) = d(arr(i, 1)) + 1
Next
End If
Next
k = d.keys
t = d.ITEMS
Sheet4.[a3].Resize(d.Count, 1) = Application.Transpose(k)
Sheet4.[B3].Resize(d.Count, 1) = Application.Transpose(t)
Set d = Nothing
End Sub

z403025335

If sht.Name <> "sheet4" Then‘这句写错了，应该是Sheet4,字符串是区分大小写的

lsc900707

1. If sht.Name <> "Sheet4" Then

复制代码

SLF19860429

z403025335 发表于 2018-8-16 18:40
If sht.Name  "sheet4" Then‘这句写错了，应该是Sheet4,字符串是区分大小写的

我试一下，谢谢

SLF19860429

lsc900707 发表于 2018-8-16 18:51

原来这个还区分大小写啊，谢谢

不知道为什么

SLF19860429 发表于 2018-8-16 19:47
原来这个还区分大小写啊，谢谢

字符串比较 是有区别得