[µo°Ý] ¶×¾ã²Î­p,¸ê®Æ«¬ºA¤£²Å,¦p¦ó±Æ°£.

dou10801

1.¶×¾ã²Î­p,¸ê®Æ«¬ºA¤£²Å,¦p¦ó±Æ°£.
2.¶×¾ã«á"002"ÅÜ"2",¦p¦ó³B²z,·P®¦.

­ã´£³¡ªL

ARR1(4, m) = Val(ARR1(4, m)) + Val(arr(i, 4))
¸ê®Æ°Ï§t"°²ªÅ®æ", ¶·Âà­È//
¨ä¥¦³£¥[¤WVal

dou10801

¦^´_ 2# ­ã´£³¡ªL ·PÁ«e½ú«ü¥¿,¥[VAL()¤w±Æ°£.
¥N¸¹arr(i,2),­ì¨Ó¬O"002"¶×¾ã«á·|ÅÜ"2",©¹¤UÃþ±À,¦p¦ó³B²z,¦A¦¸·PÁÂ.

­ã´£³¡ªL

¦^´_ 3# dou10801

Sub «ö¶s4_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 = "@" '¤å¦r®æ¦¡
     .Value = Application.Transpose(ARR1)
End With
End Sub

dou10801

¦^´_ 4# ­ã´£³¡ªL ·P®¦,§Ú¤@ª½¥Î,format()¤£¦æ,­ì­n³o¼Ë³B²z,ÁÂÁÂ.