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

¸ê®ÆÂà´«°ÝÃD

¸ê®ÆÂà´«°ÝÃD

¤p§Ì§Ú³Ìªñ¦b¾ã²z¸ê®Æ¹J¨ì­n±N¸ê®ÆÂà´«¬°¾î¦C
µM«á­n±N«ü©w¯Å¶Z¤ºªº¸ê®Æ©ñ¤J¡A§Ú¸Ó¦p¦ó¼g¨ç¼Æ©O?


ex. ­ì©ldata
¯Å¶Z DATA
100        101.32
110        117.53
110        119.25
110        118.99
130        138.32
130        132.79
130        132.72
160        162.92
160        167.19
180        180.98
190        199.25
20        29.31
20        29.52
240        247.46
240        249.75
240        248.66
240        249.57
240        249.03
250        251.22


2. ­n§ï¦¨¾î¦¡ªº

¯Å¶Z        20        30        40        50        60        70        80        90        100        110        120        130        140        150        160        170        180        190        200        210        220        230        240
DATA
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

½Ð°Ý¥Î¼Ï¯Ã¦³¿ìªk°µ±o¨ì¶Ü??
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¤p§Ì§Ú³Ìªñ¦b¾ã²z¸ê®Æ¹J¨ì­n±N¸ê®ÆÂà´«¬°¾î¦C
µM«á­n±N«ü©w¯Å¶Z¤ºªº¸ê®Æ©ñ¤J¡A§Ú¸Ó¦p¦ó¼g¨ç¼Æ©O?
ex. ...
dragonbx µoªí©ó 2014-9-19 11:25
  1. Sub nn()
  2.   Dim iCol%
  3.   Dim lRow&
  4.   Dim vD
  5.   Dim rTar As Range
  6.   
  7.   Set vD = CreateObject("Scripting.Dictionary")
  8.   lRow = 2
  9.   Do While Cells(lRow, 1) <> ""
  10.     With Cells(lRow, 1)
  11.       If Not vD.Exists(.Text) Then
  12.         vD(.Text) = .Offset(, 1)
  13.       Else
  14.         vD(.Text) = vD(.Text) & "," & .Offset(, 1)
  15.       End If
  16.     End With
  17.     lRow = lRow + 1
  18.   Loop
  19.   
  20.   iCol = 5
  21.   Do While Cells(1, iCol) <> ""
  22.     With Cells(2, iCol + 1)
  23.       Range(.Offset(, -1), .Offset(20, 26)).Clear
  24.       .Value = vD(.Offset(-1, -1).Text)
  25.       If .Value <> "" Then
  26.         .TextToColumns Comma:=True
  27.         Set rTar = Range(.Offset(0), .Offset(, .Offset(0).End(xlToRight).Column - .Column))
  28.         rTar.Copy
  29.         .Offset(, -1).PasteSpecial Transpose:=True
  30.         rTar.Clear
  31.       End If
  32.     End With
  33.     iCol = iCol + 1
  34.   Loop
  35. End Sub
½Æ»s¥N½X
¸ê®ÆÂà´«°ÝÃD-a.zip (7.77 KB)

TOP

¦^´_ 1# dragonbx



E2 =IFERROR(SMALL(IF($A$2:$A$20=E$1,$B$2:$B$20),ROW(A1)),"")
°}¦C¤½¦¡(CTRL+SHIFT+ENTER¤TÁä»ô«ö¿é¤J¤½¦¡)
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 1# dragonbx

¸ê®Æ´«°ÝÃD-a_ML089.rar (9.83 KB)
   
¨Ï¥ÎIFERROR¨ç¼Æ¡A»ÝEXCEL 2007ª©¥H¤W¤~¯à°õ¦æ
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD