ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦³ÃöSUMIF VBA ¼gªk?

¦p¤U

X = Sheet1.[A65536].End(xlUp).Row+1
Sheet1.Cells(X, 8).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])"
ù

TOP

DEAR SIR
  ¸Õ¸Õ¦p¤U     
Sub AA()
X = Sheet1.[A65536].End(xlUp).Row + 1
Range("H1").Select       'XX»È¦æÂà±b³¡¤À(M)Á`¼Æ¦X­p ²Ä2~399¦C
ActiveCell.FormulaR1C1 = "=SUMIF(R[-" & 65538 - X & "]C[-1]:RC[-1],""M"",R[-" & 65538 - X & "]C[-2]:RC[-2])"

End Sub
ù

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD