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

½Ð°Ý¤@­Ó¦P®É°õ¦æ¥¨¶°»P¨ç¼Æªº°ÝÃD

½Ð°Ý¤@­Ó¦P®É°õ¦æ¥¨¶°»P¨ç¼Æªº°ÝÃD

§Ú¦³¤@­ÓÀɮפº¦P®É¦³¥¨¶°»P¨ç¼Æ¡A·í§Ú°õ¦æ¥¨¶°®É³t«×·|«ÜºC(¦]¬°¨ç¼Æ¤]¦b§@­«ºâÀx¦s®æªº°Ê§@)¡A¦p¦ó³]©wÅý¥¨¶°¥ý¶]§¹¦b§@¨ç¼Æªº²Î­p
ÁÂÁÂ

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-3-2 17:52 ½s¿è

¦^´_ 1# lone_tiger0303


    ¥i¥H¦b¥¨¶°°õ¦æ®É¥ýÃö±¼¦Û°Ê­pºâ  ¦A°õ¦æ§¹§A­ì¨Óªºµ{¦¡½X«á ¦A¥´¶}¦Û°Ê­pºâ
   ¸Õ¸Õ¬Ý~ À³¸Ó·|¨Ï§Aªº¥¨¶°°õ¦æªº¸û§Ö~
    ³o¬O¤§«e¤@¨Çª©¥D¤j¤j¶Ç±Âªº¸gÅç~

   Application.Calculation=xlCalculationManual <-----¤â°Ê­pºâ

   ¥¨¶°µ{¦¡½X


   Application.Calculation=xlCalculationAutomatic <-----¦Û°Ê­pºâ

   ¦pªGÁÙ¬O«ÜºCºw¸Ü~ ¥i¯à­nÀ˵ø§Aªº¾ãÅé¼gªk~ ¦A¬Ý¬Ý¬O­n­×§ï¨ç¼Æ.¥¨¶°©Î¬O¬[ºc~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦n¹³¦³Åܧ֤F~~ÁÂÁÂ

TOP

¦b½Ð±Ð¤@¤U¡A¦p¦óÅýSheet1ªí¤º¸ê®ÆÂà´«¦¨Sheet2ªíªº±Æ¦C¡HSheet1ªí¸ê®Æ·|¦³¼W´î«D³£©T©w¼Æ¶q

Book1.zip (8.42 KB)

TOP

¦^´_ 4# lone_tiger0303
  1. Option Explicit
  2. Sub Ex()
  3.     Dim I As Integer, C, AR()
  4.     ReDim AR(1, 0)
  5.     With Sheet1
  6.         For I = 1 To .[A3].End(xlToRight).Column
  7.             For Each C In .Range(.Cells(4, I), .Cells(Rows.Count, I).End(xlUp))
  8.                 If C <> "" And C.Row > 3 Then
  9.                     AR(0, UBound(AR, 2)) = C
  10.                     AR(1, UBound(AR, 2)) = .Cells(3, I)
  11.                     ReDim Preserve AR(1, UBound(AR, 2) + 1)
  12.                 End If
  13.             Next
  14.         Next
  15.     End With
  16.     With Sheet2
  17.         .Range(.[A3], .[B3].End(xlDown)) = ""
  18.         .[A3].Resize(UBound(AR, 2), 2) = Application.WorksheetFunction.Transpose(AR)
  19.     End With
  20. End Sub
½Æ»s¥N½X

TOP

  1. Sub yy()
  2. Dim r%, c%, d As Object
  3. Set d = CreateObject("Scripting.Dictionary")
  4. With Sheet1
  5.     For c = 1 To 10
  6.         For r = 4 To .Cells(65536, c).End(3).Row
  7.             If .Cells(r, c) <> "" Then d(.Cells(r, c).Value) = .Cells(3, c)
  8.         Next
  9.     Next
  10. End With
  11. With Sheet2
  12.     .UsedRange.Offset(2, 0) = ""
  13.     .[a3].Resize(d.Count, 1) = Application.Transpose(d.keys)
  14.     .[b3].Resize(d.Count, 1) = Application.Transpose(d.items)
  15. End With
  16. End Sub
½Æ»s¥N½X

TOP

°õ¦æ«á¥X²{¤@¨Ç°ÝÃD¡A¦pªþ¥ó©Ò­z

Book1.zip (17.77 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-4 13:20 ½s¿è

¦^´_ 7# lone_tiger0303
¨S¦³¬G»Ùªü!
½Ð¬Ý²M°£¦p¹Ï:  «ü©w¦n¥¿½Tªº¤u§@ªíª«¥ó¦WºÙ

TOP

­üªü~~©êºp§Ú¨Sª`·N¬Ý~~ÁÂÁÂGBKEE¸Ñµª

TOP

³o­Ó­ì¦]³q±`¬OÀH·NÅܧó¤u§@ªí¶¶§Ç
¦sÀÉ«á¦A¶}¡A¤u§@ªí¦W»Pcode name´N¶Ã¤F¡I

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD