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

lionliu

¦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)

¤U¸ü¦¸¼Æ: 13

2015-7-12 11:59

GBKEE

¦^´_ 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

lionliu

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

lionliu

¦^´_ 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)

¤U¸ü¦¸¼Æ: 5

2015-7-17 10:12

GBKEE

¦^´_ 4# lionliu
³oªþÀÉ»P²Ä1©«ªþÀɮ榡¤£¤@¼Ë.½Ð¦A¸Ô­z³oªþÀɪº®æ¦¡.

lionliu

¦^´_ 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

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

¤U¸ü¦¸¼Æ: 5

2015-7-18 08:33

GBKEE

¦^´_ 7# lionliu
¤£¦n·N«ä,¬Ý¤£¥XªþÀɪº³W«ß©Ê,VBA¼g¤£¥X¨Ó.

lionliu

¦^´_ 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

GBKEE

¦^´_ 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