qq_39943601 2021-06-22 16:02 采纳率: 50%
浏览 495
已采纳

VBA子过程或函数未定义 怎么解决?


Private Sub CommandButton3_Click()
Dim myarr, mybrr()
ReDim mybrr(0)

myarr = Range("H3:L5")

Set myadic = CreatObject("scripting.dictionary")
Set mybdic = CreatObject("scripting.dictionary")
Set mycdic = CreatObject("scripting.dictionary")

For i = 1 To UBound(myarr)
If myarr(i, 1) <> "" Then myadic(myarr(i, 1)) = ""
Next i

For i = 1 To UBound(myarr)
If myarr(i, 2) <> "" And myadic.exists(myarr(i, 2)) Then
mybdic(myarr(i, 2)) = ""
End If
Next i

k = 0
For i = 1 To UBound(myarr)
If myarr(x, 3) <> "" And mybdic.exists(myarr(i, 3)) Then
k = k + 1
ReDim Preserve mybrr(k)
mybrr(k) = myarr(i, 3)
mycdic(myarr(i, 3)) = ""
End If
Next i

[V2].Resize(k + 1, 1) = Application.Transpose(mybrr)
[W2].Resize(mycdic.Count, 1) = Application.Transpose(mycdic.keys)
End Sub

  • 写回答

1条回答 默认 最新

  • 碰碰虎 2021-06-22 22:04
    关注

    把CreatObject 改正成CreateObject。单词拼写错误

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥15 python使用pulp线性优化时报错
  • ¥15 开源或低价数据中台哪个最好
  • ¥15 arduino编程出现字符串疑似覆盖现象
  • ¥15 我的b站在没有碰到屏幕的情况下偶尔会自动跳出进度条,就像在屏幕上点了一下一样,但我并没有点。而且视频进度并没有变。这可能是什么原因造成的?
  • ¥30 STK matlab python仿真
  • ¥15 关于IMageEnView 图标定位问题
  • ¥20 求解答(matlab)
  • ¥30 ffmpeg库使用过程中遇到的问题
  • ¥15 pyqt5 中python如何通过Qtwebchannel主动发消息给web前端
  • ¥15 关于HTML中title获取xml内容的问题