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

[µo°Ý] ½Ð±ÐVBA ¨â¦æÀx¦s®æªº¦r¦ê¦X¨Ö°ÝÃD~~~~~~~~~~

¦^´_ 9# ­ã´£³¡ªL


    ·PÁ­ã³ö¤j¼ö¤ß¦^´_©M´£ÂI , ¤p§Ì·|¦A¦h§ä¨Ç¦r¨å+°}¦Cªº¤å³¹¨Ó¬ã¨s¾Ç²ß¡C

TOP

Try and Error ¸Õ¥X¨Óªº:

Sub sheet1_Formula()

With Sheets("sheet1").Range("A2:A" & Sheets("sheet1").Range("B65536").End(xlUp).Row)
     .FormulaR1C1 = "= ""=COUNTIF($B$2:$B"" & Row() & "",B"" & Row() & "")-1"""
     .Value = .Value
    End With

End Sub

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD