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

½Ð°Ýsheet Äæ¦ìÂà´«°ÝÃD

½Ð°Ýsheet Äæ¦ìÂà´«°ÝÃD

1.½Ð°Ý§Ú·Q±qa sheetÂà´«b sheet
2.¦bb sheet§¹¦¨®É¶¡¹ï·Ó¦³ok´N¯àÅýa sheetªº¹ïÀ³Äæ¦ì¤ÏÃC¦â

sheet Äæ¦ìÂà´«.rar (12.42 KB)

Tony

¦^´_ 1# tonycho33


    sheet Äæ¦ìÂà´«.zip (11.4 KB)

TOP

¦^´_ 1# tonycho33
  1. Sub Âà¸m()
  2. Dim A As Range, Ar(), Ay(), i%, j%, Ary(), s&
  3. With Sheets("a")
  4. For Each A In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeConstants)
  5. Ar = A.Resize(, 4)
  6. Ay = .Range(A.Offset(, 6), A.Offset(, 6).End(xlToRight).Offset(2)).Value
  7. For i = 1 To UBound(Ay, 2)
  8. ReDim Preserve Ary(7, s)
  9. Ary(0, s) = Ar(1, 1): Ary(1, s) = Ar(1, 2): Ary(6, s) = Ar(1, 4)
  10.    For j = 1 To UBound(Ay, 1)
  11.    Ary(j + 1, s) = Ay(j, i)
  12.    Next
  13.    s = s + 1
  14. Next
  15. Next
  16. End With
  17. Sheets("b").UsedRange.Offset(1) = ""
  18. Sheets("b").[A2].Resize(s, 7) = Application.Transpose(Ary)
  19. End Sub
½Æ»s¥N½X
sheet Äæ¦ìÂà´«.rar (11.01 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

½Ð°Ý¿é¤J¡yok¡z,¦Û°Ê¤Ï¬õ¬O«ç»ò³]©wªº
ÁÂÁÂ
Tony

TOP

¦^´_ 4# tonycho33


    ¿ïÀx¦s®æ
   ®æ¦¡/³]©w®æ¦¡¤Æ±ø¥ó

TOP

½Ð°ÝÄæ¦ìÂà´«ªºVBAµ{¦¡¥i¥H¸ÑÄÀ¤@¤U¶Ü¡H¤Ó½ÆÂø¬Ý¤£¤jÀ´
¥t¥~a sheet Äæ¦ì³£¬O©T©wªº¡]4Äæ¡^¡A¦pªG¬O¤£³W«hªº¥i¥H¥Î¶Ü¡]¨Ò¦p¡G3¡ã15Äæ¡^
¥t¥~¡A¦pªG¦b·s¼W¸ê®Æªº¸Ü¡]¥Ø«e¤u³æ3µ§¡A«áÄò¦A¼W¥[ªº¸Ü¡^¬O§_¤]¥i¥H¥Î©O
ÁÂÁÂ
Tony

TOP

¦^´_ 5# register313


§Q¥Î®æ¦¡¤Æ¨Ó³B²zÀx¦s®æªºÃC¦â,¨C­ÓÀx¦s®æ³£³]©wªº¸Ü,¦pªG¦³¤@¦Ê¦h¦C¡A¶]°_¨Ó¦n¹³·|ÅܺC,¦³¿ìªk¥u³æ¯Â¨Ï¥ÎVBA¶Ü
Tony

TOP

¦^´_ 7# tonycho33

  ¤u§@ªí¨Ï¥Î¤§¤½¦¡¨ç¼Æ·U¦h ·íµM­pºâ·|»Ý­n¤@ÂI®É¶¡(¤@¦Ê¦h¦C¨ä¹ê­pºâ®É¶¡À³¤£·|¤Ó¤[¤~¹ï)
¤]¥i¦Ò¼{¨Ï¥ÎHsieh¶W¯Åª©¥Dªº¥¨¶°µ{¦¡
¥ý¦Û¤v¾Þ§@¬Ý¬Ý ¦³°ÝÃD¦A¦VHsieh¶W¯Åª©¥D½Ð±Ð

TOP

¦^´_ 3# Hsieh

§A¦n
½Ð°Ý¨Ï¥Î®æ¦¡¤Æ±ø¥óªº³¡¥÷¡A°õ¦æ¤U¨ÓÅܱo«ÜºC
³s±²°Ê±²¶b³£­nµ¥«Ü¤[
¦³¿ìªk§ï¦¨¥þ³¡³£¬Ovba¶Ü
ÁÂÁÂ
Tony

TOP

¦^´_ 9# tonycho33


    sheet Äæ¦ìÂà´«.rar (13.16 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD