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

¨D¤@­Ó¥i¥H§Ö³t¸Ñ¨Mªº¤èªk

¨D¤@­Ó¥i¥H§Ö³t¸Ñ¨Mªº¤èªk

·Q±NÀÉ®×BOOK1¤¤ªºÁ`ªí¾ã²z¦¨BOOK2ªº¦æ¨Æ
1.¥i¥H¤@¯Z¯Å¤ÀÃþ¡A¼ÐÃD³¡ÅÜ
2.¨C¯Z¤H¼Æ¤£¤@¼Ë¦h
3.¦WºÙ¬°¯Z¯Å+¬ì¥Ø
½Ð¤j¤j´£¨Ñ¥i¥H§Ö³t¸Ñ¨Mªº¤èªk¡A·PÁ±z

Desktop.rar (26.53 KB)

¦^´_ 2# mmxxxx


    ¤j¤jªº¤ß¦¬¨ì¤F¡A·Ð½Ð¸Ñµªªº¤j¤j¥i¥Hµ¹µ{¦¡¡A¤p¾Ç¥ÍµLªk¤U¸ü¡C

TOP

¦^´_ 1# opman
ª½±µ¦bBOOK1ªº¤u§@ªí¼Ò²Õ°õ¦æ
±N·|²£¥Í·s¤u§@ªí©óBOOK1
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. Dim Ar()
  4. With ¤u§@ªí1
  5.    For Each a In .Range(.[A2], .[A2].End(xlDown))
  6.       sh = Int(a / 100) & "¦~" & a Mod 100 & "¯Z" & a.Offset(, 5) '¯Z¯Å¬ì¥Ø¦r¦ê
  7.       If IsEmpty(d(sh)) Then
  8.          ReDim Ar(1)
  9.          Ar(0) = .[A1:O1].Value '¼ÐÃD¦C
  10.          Ar(1) = Application.Transpose(Application.Transpose(a.Resize(, 15).Value)) '²Ä¤@­Ó¸ê®Æ¦C
  11.          d(sh) = Ar
  12.          Else
  13.          Ar = d(sh) 'Ū¥X°}¦C
  14.          s = UBound(Ar) + 1
  15.          ReDim Preserve Ar(s)
  16.          Ar(s) = Application.Transpose(Application.Transpose(a.Resize(, 15).Value)) '¥[¤J¸ê®Æ¦C
  17.          d(sh) = Ar '¼g¦^°}¦C
  18.        End If
  19.    Next
  20. End With
  21. For Each ky In d.keys
  22. With Worksheets.Add(after:=Sheets(Sheets.Count)) '´¡¤J¤u§@ªí
  23.    .Name = ky '¤u§@ªí©R¦W
  24.    .Cells.NumberFormat = "@" '³]¦¨¤å¦r®æ¦¡
  25.    .[A1].Resize(UBound(d(ky)) + 1, 15) = Application.Transpose(Application.Transpose(d(ky))) '¼g¤J¸ê®Æ
  26. End With
  27. Next
  28. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh

­è­è¸Õ¥Î¤@¤U µ²ªGFor Each a In .Range(.[A2], .[A2].End(xlDown))´N°»´ú¥X¿ù»~
¥Ñ©ó­è¾Ç¥i¥H¸Ô¸Ñ¨C¬qªº·N«ä¶Ü  ·P®¦

TOP

¦^´_ 4# Hsieh


  ¤£¦n·N«ä¡A­è­×§ïWith ¤u§@ªí1 §ï¦¨With Sheet1 ´N¥i¥H¨Ï¥Î
¯u¬O¼F®`¤F
µ¥¸Ô¸Ñ¦b¦n¦n¬ã¨s¤@¤U °½®v¾ÇÃÀ  ·PÁ¤j¤j

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD