分享VBA数据类型不匹配报错处理

Justin-2016

求助VBA类型不匹配报错处理.zip (183.57 KB, 下载次数: 9)

2017-9-13 07:45 上传

点击文件名下载附件

数据源是ERP中导出来的数据，可能是有数据类型和文本类型导致，转换单元格格式为数值也没有用，代码是下棋法标准代码没有任何问题，报错原因是有8个品号数据源中有一个以上数据项，当把棋盘报错项代码中的 + 号换成 & 就不会报错，但得到的结果不是相加而是合并，如：109+0+0，正确相加应该是109，但使用 & 就错误的显示为10900。


Sub banjin()
    Dim arr(1 To 100000, 1 To 3), r
    Dim brr, x As Integer, k As Integer, sr As String
    Set d = CreateObject("scripting.dictionary")
    Sheets("汇总").Range("A2:E" & Sheets("汇总").Range("A65536").End(xlUp).Row).ClearContents
    brr = Sheets("明细").Range("A2:AR" & Sheets("明细").Range("A65536").End(xlUp).Row)
        For x = 1 To UBound(brr)
            sr = brr(x, 1) &  "-" & brr(x, 4)
         If d.Exists(sr) Then
            r = d(sr)
            arr(r, 3) = arr(r, 3) + IIf(Len(Trim(brr(x, 43))) = 0, 0, Trim(brr(x, 43)))
        Else
            k = k + 1
            d(sr) = k
            arr(k, 1) = brr(x, 1)
            arr(k, 3) = brr(x, 4)
            arr(k, 4) = brr(x, 44)
        End If
        Next x
           Sheets("汇总").Range("a2").Resize(k, 3) = arr
           
End Sub

dgerwin

arr(x,43)，第43列由条件公式生成，当等于“止”时，调用AM列数据，但列有不为0的空数据，建议AM列为空时以0填空

dgerwin

AQ列补0，公式改为
=IFERROR(IF(MID(P2,FIND("止",P2,2),1)="止",--AM2,0),0)
即可

syzlove

经验证，成功解决了我的问题，给你点赞！！！