¦³ÃöSUMIF VBA ¼gªk?

lp986749

Range("H400").Select       'XX»È¦æÂà±b³¡¤À(M)Á`¼Æ¦X­p ²Ä2~399¦C
ActiveCell.FormulaR1C1 = "=SUMIF(R[-398]C[-1]:RC[-1],""M"",R[-398]C[-2]:RC[-2])"

SUMIF ¥¨¶°¤@³¡¤À¦p¤W¡A·N«ä§Y±NXX»È¦æÂà±b³¡¤À(M)Á`¼Æ¦X­p¦C©óÂà±b©ú²Óªí³Ì«á¤@¦C¡A¤µ¤é¦³©ú²Óªí250¦æ®É±NÂà±b³¡¤À(M)Á`¼Æ¦X­p¦C©ó251¦æ¡A¦Ó«D©T©w©óH400¦ì¸m¡A°²¦p©ú²Óªí100¦æ®É±NÂà±b³¡¤À(M)Á`¼Æ¦X­p¦C©ó101¦æ¡A¦Ó«D©T©w©óH400¦ì¸m¡AÀH©ú²Óªí¦h¹è¦ÓÅܰʦì¸m¡A½Ð°Ý°ª¤â¯à§iª¾¤W­z EXCEL VBA¦p¦ó¼g?

lp986749

·P¿E¼·ªÅµªÂЦ¹°ÝÃD
ActiveCell.FormulaR1C1 = "=SUMIF(R[-398]C[-1]:RC[-1],""M"",R[-398]C[-2]:RC[-2])"

ActiveCell.FormulaR1C1 = "=SUMIF(R[-399]C[-1]:RC[-1],""MX"",R[-399]C[-2]:RC[-2])"

ActiveCell.FormulaR1C1 = "=SUMIF(R[-400]C[-1]:RC[-1],""MH"",R[-400]C[-2]:RC[-2])"
§Úªº·N«ä¬O R[-399]C[-1]:RC[-1],R[-398] , R[-399] , R[-400] ..µ¥µ¥¥ÎÅܼƦp X+1 ,  X +2 ¨Óªí¥Ü¶Ü?

lp986749

°Ï§O½X        »È¦æ½X        «O¯d        ±b¸¹        ¥æ©ö¤é´Á        ¥æ©öª÷ÃB(FÄæ)        ¥æ©öºK­n(G)        ­É¶U§O
1        '005'        0        '012001090127'        20150206        100000                    MX                         1
1        '005'        0        '012001090127'        20150206        347415                       MR                   1
1        '005'        0        '012001090127'        20150206        129396                      MH                       1
1        '005'        0        '012001090127'        20150206        214039                  MR                      1
1        '005'        0        '012001090127'        20150206        28000                       M                      1
1        '005'        0        '012001090127'        20150206        40000                      M                     1
1        '005'        0        '012001090127'        20150206        1262001              MR                    1
1        '005'        0        '012001090127'        20150206        2231939             MR                   1
1        '005'        0        '012001090127'        20150206        786647                     MX                  1

    Range("H300").Select    'XX»È¦æÂà±b³¡¤À(M)Á`¼Æ¦X­p
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-298]C[-1]:RC[-1],""M"",R[-298]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"

    Range("H301").Select     'XX»È¦æÂà±b³¡¤À(MH)Á`¼Æ¦X­p
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-299]C[-1]:RC[-1],""MH"",R[-299]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"

    Range("H302").Select       '¥x»ÈÂà±b³¡¤À(MX)Á`¼Æ¦X­p ²Ä2~200¦C
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-300]C[-1]:RC[-1],""MX"",R[-300]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
   
    Range("H303").Select       'XX»È¦æÂà±b³¡¤À(ME5)Á`¼Æ¦X­p
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-301]C[-1]:RC[-1],""ME5"",R[-301]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-*   "
   
    Range("H304").Select      'XX»È¦æÂà±b³¡¤À(MR)Á`¼Æ¦X­p
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-302]C[-1]:RC[-1],""MR"",R[-302]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-*   "
   
    ®æ¦¡¦p¤W±N¤£¦P"MR" "MX" ¥[Á` ©ñ©ó H304¦ì¸m H302¦ì¸m