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

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

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

½Ð±Ð¦Ñ®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­ÌÀ°¦£.ÁÂÁÂ

xx.rar (7.71 KB)

·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É

¦^´_ 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

TOP

¦^´_ 2# GBKEE

GBKEE ¦Ñ®v:
¥i¥H¤F!
·PÁ±zªºÀ°¦£!
ÁÂÁ±z
·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD