標題: [發問] 匯整統計,資料型態不符,如何排除. [打印本頁]

---

作者: dou10801    時間: 2023-2-4 15:56     標題: 匯整統計,資料型態不符,如何排除.

1.匯整統計,資料型態不符,如何排除.
2.匯整後"002"變"2",如何處理,感恩.

---

作者: 准提部林    時間: 2023-2-4 16:16

本帖最後由 准提部林 於 2023-2-4 16:18 編輯

ARR1(4, m) = Val(ARR1(4, m)) + Val(arr(i, 4))
資料區含"假空格", 須轉值//
其它都加上Val

---

作者: dou10801    時間: 2023-2-4 16:32

本帖最後由 dou10801 於 2023-2-4 16:34 編輯

回復 2# 准提部林 感謝前輩指正,加VAL()已排除.
代號arr(i,2),原來是"002"匯整後會變"2",往下類推,如何處理,再次感謝.

---

作者: 准提部林    時間: 2023-2-4 17:49

回復 3# dou10801

Sub 按鈕4_Click()
Dim ARR1()
Set d = CreateObject("scripting.dictionary")
arr = Range("a2:k" & Cells(Rows.Count, 2).End(xlUp).Row)
For i = 1 To UBound(arr)
    If Not d.exists(arr(i, 1) & "|" & arr(i, 2)) Then
        n = n + 1
        d(arr(i, 1) & "|" & arr(i, 2)) = n
        ReDim Preserve ARR1(1 To 11, 1 To n)
        For j = 1 To 11
            ARR1(j, n) = arr(i, j)
        Next j
    Else
        m = d(arr(i, 1) & "|" & arr(i, 2))
        For j = 4 To 11
            ARR1(j, m) = Val(ARR1(j, m)) + Val(arr(i, j))
        Next j
    End If
Next
With [m2].Resize(n, 11)
     .Columns(2).NumberFormatLocal = "@" '文字格式
     .Value = Application.Transpose(ARR1)
End With
End Sub

---

作者: dou10801    時間: 2023-2-5 10:20

回復 4# 准提部林 感恩,我一直用,format()不行,原要這樣處理,謝謝.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)