[µo°Ý] ½Ð±Ð¦Ñ®v:·Q±N­ì¥»µ{§ÇÄæ¦ìªº¤ÀªRªk,Âà´«¬°¦C¦ì¤ÀªRªk

jonn0510

½Ð±Ð¦Ñ®v:
·Q±N­ì¥»µ{§ÇÄæ¦ìªº¤ÀªRªk,Âà´«¬°¦C¦ì¤ÀªRªk
­ì¥»µ{§Ç:
Sub yy()
    For Each a In Range([M4], [M4].End(xlToRight))
    mystr = "=SUMPRODUCT((COUNTIF($E$1:$I$1," & a.Resize(5, 1).Address & ")>0)*1)"
    a.Offset(-3, 0) = Evaluate(mystr)
    Next
End Sub
1.¥»µ{§Ç¥HÀx¦s®æE1~I1 ¬°¤ñ¹ï¥Ø¼Ð­È,M4~M8¬°¤@²Õ,­Y»PE1~I1 ¬Û¦P«h¦bM1 ¶ñ¤J¼Æ¾Ú1.¦³·Q¦P2¼Æ«h¶ñ¤J¼Æ¾Ú2
2.¥»µ{§Ç¥HÀx¦s®æE1~I1 ¬°¤ñ¹ï¥Ø¼Ð­È,N4~N8¬°¤@²Õ,­Y»PE1~I1 ¬Û¦P«h¦bN1 ¶ñ¤J¼Æ¾Ú1.¦³·Q¦P2¼Æ«h¶ñ¤J¼Æ¾Ú2
3.¦p¤µ·QÂà´«¦ì¸m..§Æ±æÂà´«¦¨

1.¥»µ{§Ç¥HÀx¦s®æA5~A9 ¬°¤ñ¹ï¥Ø¼Ð­È,D11~H11¬°¤@²Õ,­Y»PA5~A9 ¬Û¦P«h¦bA11 ¶ñ¤J¼Æ¾Ú1.¦³·Q¦P2¼Æ«h¶ñ¤J¼Æ¾Ú2
2.¥»µ{§Ç¥HÀx¦s®æA5~A9 ¬°¤ñ¹ï¥Ø¼Ð­È,D12~H12¬°¤@²Õ,­Y»PA5~A9 ¬Û¦P«h¦bA12 ¶ñ¤J¼Æ¾Ú1.¦³·Q¦P2¼Æ«h¶ñ¤J¼Æ¾Ú2
3.¥H¦¹Ãþ±À........
4.¤£ª¾¹D¸Ó¦p¦ó±N­ì¥»ªºµ{§Ç¶i¦æ­×§ï,½Ð¦Ñ®v­ÌÀ°¦£.ÁÂÁÂ

GBKEE

¦^´_ 1# jonn0510
­×§ï¦p¤U

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim A As Range, mystr As String
   
4.     For Each A In Range([D11], [D11].End(xlDown))  
   
5.         mystr = "=SUMPRODUCT((COUNTIF(A5:A9," & A.Resize(1, 6).Address & ")>0)*1)"
   
6.         Cells(A.Row, "A") = Evaluate(mystr)
   
7.     Next
   
8. End Sub

½Æ»s¥N½X

jonn0510

¦^´_ 2# GBKEE

GBKEE ¦Ñ®v:
¥i¥H¤F!
·PÁ±zªºÀ°¦£!
ÁÂÁ±z