更改格式后类型不匹配

lidayu · 发表于 2020-12-9 12:15

本帖最后由 lidayu 于 2020-12-14 22:31 编辑

恳请老师帮助，因实际需要把明细表A、B、C三列，由原来是同一单号重复出现，现在改为重复去除只保留一个，销售总表的原代码运行出现“类型不匹配”，请老师给予更正，菜鸟感激不尽！
呈上附件：（文件1.4mb分卷压缩)

变更格式出现类型不匹配.part2.rar (690.92 KB, 下载次数: 3)

shuidisyy · 发表于 2020-12-9 12:15

lidayu 发表于 2020-12-14 12:53
shuidisyy您好，数据源里是三项，这都是同一个单号及客户名称，所以49.15m不能拆开，也许是我没表达清楚 ...

Sub test()
Dim arrData, arrResult, dic As Object, d As Object
Dim x&, irow&, i&, n&, j%, str$, m$, s1#, s2#, ss$
Set dic = CreateObject("Scripting.Dictionary")
Set d = CreateObject("Scripting.Dictionary")
With Sheet6
      irow = .Range("x" & Rows.Count).End(xlUp).Row
      arrData = .Range("x3:aa" & irow).Value
      For i = 1 To UBound(arrData)
         dic(arrData(i, 1) & "," & arrData(i, 2) & "," & arrData(i, 3)) = arrData(i, 4)
         dic(arrData(i, 1) & "," & arrData(i, 3)) = arrData(i, 4)
      Next i
End With

With Sheet3
      irow = .Range("d" & Rows.Count).End(xlUp).Row
      arrData = .Range("a3:t" & irow).Value
      ReDim arrResult(1 To UBound(arrData), 1 To 17)
End With
For i = 2 To UBound(arrData)
      If arrData(i, 1) = "" Then
         arrData(i, 1) = arrData(i - 1, 1)
         arrData(i, 2) = arrData(i - 1, 2)
         arrData(i, 3) = arrData(i - 1, 3)
      End If
      If arrData(i, 13) <> "" Then
         str = arrData(i, 1) & arrData(i, 2) & arrData(i, 3) & arrData(i, 4) & arrData(i, 5)
         If Not d.exists(str) Then
            n = n + 1
            d(str) = n
            For j = 1 To 5
                  arrResult(n, j) = arrData(i, j)
            Next j
            If Not VBA.IsNumeric(Right(arrData(i, 13), 1)) Then
                  arrResult(n, 17) = Right(arrData(i, 13), 1)
            End If
         End If
         x = d(str)
         m = Right(arrData(i, 13), 1)
         If VBA.IsNumeric(m) Then m = ""
         arrResult(x, 6) = arrResult(x, 6) + Val(Replace(arrData(i, 13), m, ""))
         ss = arrData(i, 1) & arrData(i, 2) & arrData(i, 3) & arrData(i, 4)
         If Not d.exists(ss) Then
            d(ss) = d(str)
         End If
         x = d(ss)
         arrResult(x, 8) = arrResult(x, 8) + arrData(i, 14)
         arrResult(x, 10) = arrResult(x, 10) + arrData(i, 15)
      End If
Next i
For i = 1 To n
      str = arrResult(i, 3) & "," & arrResult(i, 4) & "," & arrResult(i, 5)
      If dic.exists(str) Then arrResult(i, 7) = dic(str)
      If arrResult(i, 8) <> 0 Then
         str = arrResult(i, 3) & "," & arrData(1, 14)
         If dic.exists(str) Then arrResult(i, 9) = dic(str)
         s1 = arrResult(i, 9) * arrResult(i, 8)
      End If
      If arrResult(i, 10) <> 0 Then
         str = arrResult(i, 3) & "," & arrData(1, 15)
         If dic.exists(str) Then arrResult(i, 11) = dic(str)
         s2 = arrResult(i, 10) * arrResult(i, 11)
      End If
      arrResult(i, 12) = arrResult(i, 6) * arrResult(i, 7) + s1 + s2
      s1 = 0: s2 = 0
      If arrResult(i, 17) = "m" Then
         arrResult(i, 6) = Format(arrResult(i, 6), "0.00") & arrResult(i, 17)
      Else
         arrResult(i, 6) = Format(arrResult(i, 6), "0.0000") & arrResult(i, 17)
      End If
Next i
With Sheet5
      irow = .Range("a" & Rows.Count).End(xlUp).Row
      If irow > 2 Then Range("a3:l" & irow).ClearContents
      .Range("a3").Resize(n, 12) = arrResult
End With
End Sub

lidayu · 发表于 2020-12-9 17:33

期待老师的帮助

hfwufanhf2006 · 发表于 2020-12-10 12:25

M列是文本，不能进行加减运算。

lidayu · 发表于 2020-12-10 13:03

hfwufanhf2006 发表于 2020-12-10 12:25
M列是文本，不能进行加减运算。

您好，在没变更明细表A：C三列时M列也是这样的可以参与计算，能否帮研究下怎么做才能实现，谢谢！

hfwufanhf2006 · 发表于 2020-12-10 13:45

lidayu 发表于 2020-12-10 13:03
您好，在没变更明细表A：C三列时M列也是这样的可以参与计算，能否帮研究下怎么做才能实现，谢谢！

1、用val转换;
2、删掉单位，一般都是把单位写在标题行中的，数据区再写单位就是多余了；

lidayu · 发表于 2020-12-10 14:13

hfwufanhf2006 发表于 2020-12-10 13:45
1、用val转换;
2、删掉单位，一般都是把单位写在标题行中的，数据区再写单位就是多余了；

你好，希望能在此基础得到您的帮助，谢谢

shuidisyy · 发表于 2020-12-10 22:09

本帖最后由 shuidisyy 于 2020-12-14 19:36 编辑

lidayu · 发表于 2020-12-11 13:39

shuidisyy 发表于 2020-12-10 22:09
供参考
Sub test()
Dim arrData, arrResult, dic As Object

shuidisyy

你好，首先感谢您的帮助，就是要这样的效果，还个小要求请详情附件中描述。

12-11变更格式出现类型不匹配.part2.rar (475.79 KB, 下载次数: 2)

shuidisyy · 发表于 2020-12-11 20:45

本帖最后由 shuidisyy 于 2020-12-14 19:35 编辑

lidayu 发表于 2020-12-11 13:39
shuidisyy你好，首先感谢您的帮助，就是要这样的效果，还个小要求请详情附件中描述

		自动登录	找回密码
密码			注册

更改格式后类型不匹配

最佳答案

评分

评分

评分

评分

评分