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

[µo°Ý] ¦p¦ó¹B¥ÎEXCEL±N¤£¦P¦C¤º®eÂà¦ÜÄæ¦ì

[µo°Ý] ¦p¦ó¹B¥ÎEXCEL±N¤£¦P¦C¤º®eÂà¦ÜÄæ¦ì

½Ð±Ð¦U¦ì¤j¤j
§Ú¦³¤@¥÷¤»¤d¦hµ§ªº¸ê®Æ¡A¦]¬°¨C¦ì¾Ç¥Í´ú¶qÅé­«ªº¦¸¼Æ¤£¦P(³Ì¤Ö1µ§¡A³Ì¦h10µ§)
§Ú­n¦p¦ó±N¦P¤@­Ó¾Ç¥Í¨C¤@¦¸ªºÅé­«¤º®e©ñ¦ÜÄæ©O¡H(¹Ï¸Ñ»¡©ú¦p¤U)  ÁÂÁ¦U¦ìªºÀ°§U¡C

2014-03-03_224237.jpg (45.76 KB)

2014-03-03_224237.jpg

¦^´_ 1# abi





§Úªº¤èªk¨Ñ°Ñ¦Ò

TOP

¥»©«³Ì«á¥Ñ p212 ©ó 2014-3-4 13:07 ½s¿è

¦^´_ 1# abi
Äæ¦ì°t¸m½Ð¦p¤U¹Ï©Ò¥Ü(­ì©l¸ê®Æ½d³òA:C¡F­«¾ã¸ê®Æ½d³òE:L¡FÅé­«Äæ¦ì¥H¦ÜÅé­«(7)¬°¨Ò¡A­Y¦³¼W¥[»Ý¨D¥i¦Û¦æ¦V¥kÂX®iÄæ¦ì¦WºÙ¡C)
§@ªk¡G
¨BÆJ1_©w¸q¦WºÙ¡G(1)¦WºÙ(N)Äæ¿é¤J©m¦W¡F(2)°Ñ·Ó¨ì(R)Äæ¿é¤J=OFFSET(Sheet1!$A$2,,,COUNTA(Sheet1!$A:$A)-1)
¨BÆJ2¡GÀx¦s®æE2¿é¤J°}¦C¤½¦¡=IFERROR(INDEX(©m¦W,MATCH(0,COUNTIF($E$1:E1,©m¦W),0)),"")¡A¥HCtrl+Shift+Enter¿é¤J¡A¦A¦V¤U½Æ»s¤½¦¡¡A¤W¦C¤½¦¡¥Øªº¦b´£¨ú¦ì©óAÄæ©m¦Wªº°ß¤@­È¡C
¨BÆJ3¡GÀx¦s®æF2¿é¤J=IF(COUNTIF(©m¦W,$E2)<COLUMN(A$1),"",OFFSET($A$1,MATCH($E2,©m¦W,0)+COLUMN(A$1)-1,2))¡A¦V¥k¦V¤U½Æ»s¤½¦¡¡C
½Ð°Ñ¦Ò¡I

Fig.JPG (101.08 KB)

Fig.JPG

TOP

¡y¦³¤@¥÷¤»¤d¦hµ§ªº¸ê®Æ¡z, À³¬O¥þ®Õ¸ê®Æ,
¼Ó¤Wªº¤èªk,
¦p¤£¦P¯Z¦P©m¦W, ·|³Q»~§R!!
°£«D¤@¯Z¤@¯Z¤H¤u³B²z

TOP

to ricky8751 & p212 ¤j¤j¡G
©êºp, ¤j¤jªº¤èªkÀ³¥i¦æ,
¥u­n¥[»²§UÄæ, »²§UÄæ ¶ñ¤J ¦~¯Å & ¯Z¯Å & ©m¦W,
±Æ§Ç«á, ¦A±N »²§UÄæ µø¬°©m¦W, ¦p¤W¾Þ§@, À³¨S°ÝÃD,
«ä¼{¤£©P, ÂÔ¦V¨â¦ì¤j¤j­Pºp!!

TOP

to ricky8751 & p212 & yen956
ÁÂÁ§A­ÌªºÀ°§U¡A§Ú»°ºò¨Ó¸Õ¸Õ¬Ý¡C

TOP

¦^´_ 6# abi
³o»ò¤[¤F, °ÝÃDÀ³¸Ó¦­´N¸Ñ¨M¤F,
§Ú¥u¬O¯Â½m¥\, ¶¶«KÁÈÂI¼Æ, ½Ð¤£­n¤¶·N, ¨Ã½Ð«ü±Ð.
  1. Option Base 1
  2. Option Explicit
  3. Private Sub CommandButton1_Click()
  4.     Dim i, startL, ¬ö¿ý¼Æ As Integer
  5.    
  6.     ¬ö¿ý¼Æ = [A1].End(xlDown).Row - 1
  7.    
  8.     '(1) «ö 1¦~¯Å¡B2¯Z¯Å¡B3©m¦W »¼¼W±Æ§Ç
  9.     '[A1].Resize(¬ö¿ý¼Æ + 1, 14).Sort _
  10.            Key1:=Range("A1"), Order1:=xlAscending, _
  11.            Key2:=Range("B1"), Order1:=xlAscending, _
  12.            Key3:=Range("D1"), Order1:=xlAscending, _
  13.            Header:=xlYes
  14.            
  15.     '(2) ¥Dµ{¦¡
  16.     i = 1
  17.     Do
  18.         i = i + 1
  19.         If Cells(i, 4) = Cells(i + 1, 4) Then
  20.             startL = i
  21.             Do
  22.                 i = i + 1
  23.             Loop Until Cells(i, 4) <> Cells(i + 1, 4) Or Cells(i, 1) = ""
  24.             
  25.             '§Q¥Î ½Æ»s¡÷¿ï¾Ü©Ê¶K¤W¡÷Âà¸m ªº¤èªk, ¥i±N ¾î¦C »P ª½Äæ ¤¬Âà
  26.             Cells(startL, 6).Resize(i - startL + 1, 1).Copy
  27.             
  28.             '¤£¯à¶K¦b­ì³B, ­n¶K¨ì ©¹¥k¤@®æ
  29.             Cells(startL, 7).PasteSpecial Transpose:=True
  30.         End If
  31.     Loop Until i > ¬ö¿ý¼Æ Or Cells(i, 1) = ""
  32.    
  33.     '(3) ¦] (2) ¤£¯à¶K¦b­ì³B, ­n¶K¨ì ©¹¥k¤@®æ, ¬G§R °£§R°£­ìÅé­«
  34.     [F2].Resize(¬ö¿ý¼Æ + 1, 1).Delete Shift:=xlToLeft
  35.    
  36.     '(4) §R°£ Åé­«ªºªÅ¥Õ¦C
  37.     For i = ¬ö¿ý¼Æ + 1 To 2 Step -1
  38.         If Cells(i, 6) = "" Then Rows(i).Delete
  39.     Next

  40.     '(5) «ö 1¦~¯Å¡B2¯Z¯Å¡B3®y¸¹ »¼¼W±Æ§Ç
  41.     '[A1].Resize(¬ö¿ý¼Æ + 1, 14).Sort _
  42.            Key1:=Range("A1"), Order1:=xlAscending, _
  43.            Key2:=Range("B1"), Order1:=xlAscending, _
  44.            Key3:=Range("C1"), Order1:=xlAscending, _
  45.            Header:=xlYes
  46. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD