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

½Ð±Ðexcel °}¦C°ÝÃD

½Ð±Ðexcel °}¦C°ÝÃD

¦U¦ì¤j­ô:
¤p§Ì¦³¤@­Óexcel°}¦C°ÝÃD·Q­n±N¤u§@ªí1¡AÂà¨ì¤u§@ªí2¡C
¨Ã±N«~¦W­«±Æ¦ý¬O¤@ª½¥X°ÝÃD¡C
ÁÙ¦³¬O§_¥i¥H¤£¿ëªF¤u§@ªí1´Nª½±µ²£¥Í¤u§@ªí2¤º®e¡C
¬¡­¶Ã¯1.rar (17 KB)
lionliu

¦^´_ 1# lionliu
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, i As Integer, Msg As Boolean
  4.     Set Rng = Sheets(1).[A2]
  5.     With Sheets(2)
  6.         .UsedRange.Clear              '.UsedRangeªº½d³ò < .Cellsªº½d³ò,³B¸Ì³t«×·|§Ö¨Ç
  7.         .Range("a1").Resize(, 4) = Array("Description", "Qty", "Price", "Amount") '¤@°_µ¹­È
  8.         i = 2                          '³]©w°_©l­È
  9.         Do While Rng <> ""             'Rng ="" °j°é°±¤î
  10.             If Msg = False Then
  11.                 .Cells(i, "A") = Rng.End(xlUp) & ": " & Rng
  12.                 i = i + 1
  13.             End If
  14.             .Cells(i, "A") = Rng.Cells(1, 2).End(xlUp) & ": " & Rng.Cells(1, 2) 'item no
  15.             .Cells(i, "B").Resize(, 3) = Rng.Cells(1, 4).Resize(, 3).Value      'qty,price, amount
  16.             .Cells(i + 1, "A") = Rng.Cells(1, 3)                                'Description
  17.             i = i + 2
  18.             Msg = False                              '³] po no ¤£¬Û¦P
  19.             If Rng = Rng.Offset(1) Then Msg = True    'po no ¬Û¦P
  20.             Set Rng = Rng.Offset(1)                  '¤U²¾¤@¦C
  21.         Loop
  22.     End With
  23. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE
ÁÂÁÂgb¤j­ô¤w¥i¥H¥Î¤F¡A²{¦b¥¿¹Á¸Õ§â¥¦¦Y³z¡C
lionliu

TOP

¦^´_ 2# GBKEE
gbkee¤j­ô¦n
¤p§Ì¦³±N¸ê®Æªí©M¥¨¶°¤º®e¶i¦æ­×¥¿¡A¦ý¬O¦]¬°¹ï·Ó¸ê®Æªírng°ÝÃD¡A
µLªk±N©Ò¦³¸ê®Æ¹L¨ì¤u§@ªí2¡A¤£ª¾À³¦p¦ó­×¥¿¡C ¬¡­¶Ã¯1.rar (15.68 KB)
lionliu

TOP

¦^´_ 4# lionliu
³oªþÀÉ»P²Ä1©«ªþÀɮ榡¤£¤@¼Ë.½Ð¦A¸Ô­z³oªþÀɪº®æ¦¡.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ lionliu ©ó 2015-7-17 16:39 ½s¿è

¦^´_ 5# GBKEE
¤£¦n·N«ä¡A¨S±Ô­z²M°£
§Úªº¤u§@ªí¤@¼W¥[G¡BHÄæ¡AH¥u¨ú","¥kÃ䪺¦r¦ê¡C
SHEETS(2) AÄ檺¶¶§Ç¬O¦p¤U¡A¨Ã±NAMOUNT§ï¦¨¤½¦¡¨D±o                                                        

         Description        Qty        Price        Amount
          po no : as123                                           'SHEETS(1)ªºAÄæ
          item no: ab11201        2        12        24      'SHEETS(1)ªºBÄæ
         FGHRT                 'SHEETS(1)ªºHÄæ ","¥kÃä¦r¦ê  DSC                       
         acs 102 cdes                                           'SHEETS(1)ªºCÄæ
       AB3456                                                    'SHEETS(1)ªºGÄæ        
        
       item no: ab11200        23        10        230
        FGHRT                       
       zxc 2304 df                       
       AB3456                       
      
        item no: ab11203        24        10        240
        ERTT                       
        zxc 2335 df                       
        AC780F                       
¤£¾å±o»¡©ú¬O§_²M·¡
lionliu

TOP

¦^´_ 5# GBKEE
ªþ¤W­×§ï«áÀ£ÁYÀɤº¦³»¡©ú ¬¡­¶Ã¯1.rar (17.14 KB)
lionliu

TOP

¦^´_ 7# lionliu
¤£¦n·N«ä,¬Ý¤£¥XªþÀɪº³W«ß©Ê,VBA¼g¤£¥X¨Ó.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ lionliu ©ó 2015-7-18 20:50 ½s¿è

¦^´_ 8# GBKEE
¨ä¹ê¬O§Ú¤£¦n·N«ä¡A¨ü¨ìgb¤j­ôªº±Ð¾ÉÀò¯q¨}¦h¡A§Ú·|¦A§V¤O¥h§¹¦¨¥¦
¡AÁÙ¬O­n¦A¦¹¸ò§A»¡ÁÂÁ¡C§Ú·Q­Y¯à§JªA¤u§@ªí1ªºROW­È»P¤u§@ªí2ªºROW¹ïÀ³°ÝÃD§Y¥i¡C
lionliu

TOP

¦^´_ 9# lionliu

²Ä2©«ªºµ{¦¡½X
Rng ¤£´N¬O ²Ä¤@­Ó¤u§@ªíªºRow
i  ¬O ²Ä¤G­Ó¤u§@ªíªºRow
  1.   Set Rng = Sheets(1).[A2]
  2. 05.    With Sheets(2)
  3. 06.        .UsedRange.Clear              '.UsedRangeªº½d³ò < .Cellsªº½d³ò,³B¸Ì³t«×·|§Ö¨Ç
  4. 07.        .Range("a1").Resize(, 4) = Array("Description", "Qty", "Price", "Amount") '¤@°_µ¹­È
  5. 08.        i = 2                          '³]©w°_©l­È
  6. 09.        Do While Rng <> ""             'Rng ="" °j°é°±¤î
  7. 10.            If Msg = False Then
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD