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

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

½Ð±Ð¤@¤U!  
¨Ì¤W¨Ò ­Y¬O­n¦b²Õ¦X¦r¦êªº¤¤¶¡¥[¤J¤@­Ó´î¸¹"-" , µ{¦¡­n«ç¼Ë­×§ï ?
¦p¤U:
1-¾ô¥»
2-°ª¤s
3-©£¥Ð

TOP

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


ÁÂÁ­㴣¤j !   OK ¤F!

TOP

§Ú·Qªu¥Î³o­Óµ{¦¡¦bAÄæ¶ñ¤J¤½¦¡ , ¥Î¨Ó­pºâBÄ檺­È¬O²Ä´X¦¸­«½Æ, ¦ý¬O¦³¿ù»~, ½Ð±Ð¤j¤j­Ì­n¦p¦ó­×¥¿
   ©Î¬O¤£¶ñ¤J¤½¦¡, ¥i¥H¥Îµ{¦¡ ª½±µºâ¥X­«½Æ²Ä´X¦¸§ó¦n¡C

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"   '¶ñ¤J¤½¦¡

        .Value = .Value
    End With

End Sub
count.jpg

Count.zip (14.66 KB)

TOP

¦^´_ 6# ABK


    §ó¥¿:  ¤W­±ªºµ{¦¡¬O¥Î¨Ó­pºâ­«½Æªº¦¸¼Æ, ¤£¬O¶ñ¤J¤½¦¡¡C

TOP

¦^´_ 8# n7822123


    ·PÁªüÀs¤j ¼ö¤ßµ¹¤F¨â­Óµ{¦¡ !

TOP

¦^´_ 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 : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD