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

[µo°Ý] ½Ð±ÐÃö©ó¦P®É¥X²{¦¸¼Æ¤§²Î­p

¦^´_ 6# Hsieh

ÁÂÁÂ[Hsieh]ª©¥D
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

  1. Sub ¤£§t¹ï¨¤½u()
  2. Dim Rng As Range
  3. r = [A65536].End(xlUp).Row
  4. For i = 2 To r
  5.     For j = i + 1 To r
  6.        If Rng Is Nothing Then
  7.        Set Rng = Cells(i, j)
  8.        Else
  9.        Set Rng = Union(Rng, Cells(i, j))
  10.        End If
  11.     Next
  12. Next
  13. Rng.Select
  14.      
  15. End Sub
  16. Sub §t¹ï¨¤½u()
  17. Dim Rng As Range
  18. r = [A65536].End(xlUp).Row
  19. For i = 2 To r
  20.     For j = i To r
  21.        If Rng Is Nothing Then
  22.        Set Rng = Cells(i, j)
  23.        Else
  24.        Set Rng = Union(Rng, Cells(i, j))
  25.        End If
  26.     Next
  27. Next
  28. Rng.Select
  29.      
  30. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦A½Ð±Ð¦U¦ì,¦b§¹¦¨¯x°}«á,­Y¶È·Q«O¯d¤@¥b
1)«O¯d§t¹ï¨¤½u¤§¥k¤W¨¤¸ê®Æ
2)«O¯d¤£§t¹ï¨¤½u¤W¥k¤W¨¤¸ê®Æ
¦³¸û§Ö³tªº§R°£¤èªk¶Ü?
ÁÂÁÂ
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

¦^´_ 3# °¶ÔÐ


    x¬O°ÊºA½d³ò©w¸q¦WºÙ
¦]¬°¦r¦ê¸ê®Æ¬O¤£Â_¼W¥[
©w¸q¤½¦¡
=OFFSET(³æ¦r!$B$2,,,COUNTA(³æ¦r!$B:$B)-1,)
¥HB2¬°°ò·ÇÂI,¦V¤UÂX¥RBÄæ¸ê®Æ¼Æ¶qªº¦C¼Æ§@¬°½d³ò
¦]¬°¦³¼ÐÃD¦C©Ò¥HCOUNTA(³æ¦r!$B:$B)-1
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

ÁÂÁÂHsiehª©¥D
¬O§Ú­nªº¨S¿ù,¤£¹L½Ð±Ð¤@¤U,¨ç¼ÆFIND($A2,x)¤¤ªºx«ç»ò³]©wªº,¥i§_¦A»¡©ú,ÁÂÁÂ!
  1. SUMPRODUCT(ISNUMBER(FIND($A2,x))*ISNUMBER(FIND(B$1,x)))
½Æ»s¥N½X
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

¦^´_ 1# °¶ÔÐ


    ¬O³o¼Ëªº·N«ä¶Ü? 990628.rar (12.71 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD