Felsn的博客

Sub 选项按钮1_Click()Dim dict3 As ObjectSet dict3 = CreateObject("scripting.dictionary")Set arr1 = Range("b4:b37")For Each i In arr1.Value If Not dict3.exists(i) Then dict3.Add i, "" 'Debug.Print i 'I.Offset(0, 1).Value = I.Value...

函数中不能有"_",修改后即可，其他注意事项，网上很容易搜到。