[發問] 匯整統計,資料型態不符,如何排除.

dou10801

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

准提部林

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

dou10801

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

准提部林

回復 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

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