hugh0620

¼ÒÀÀªºÀô¹Ò¦b¦P¤@­ÓEXCELÀɤ¤
SHEET1
A             B
ABC      123
DEC      234
DDF     123

SHEET2
A            B
BBB      234
DEC     222
DDF    234

1. Sub EX()
   
2. A = Sheet1.Range("A65536").End(xlUp).Row
   
3. For I = 1 To A
   
4.     Set F = Sheet2.Columns("A:A").Find(Sheet1.Range("A" & I))  '¥ý¤ñ¹ïAÄæ¦ì¬O§_
   
5.     If Not F Is Nothing Then                                   '§PÂ_¦¡:F§ä¤£¨ìªº¸Ü
   
6.        F = Sheet2.Columns("A:A").Find(Sheet1.Range("A" & I)).Row
   
7.        Set F1 = Sheet2.Range("A" & F & ":A" & F).Find(Sheet1.Range("B" & I))
   
8.        If F1 Is Nothing Then                                   '¦A§PÂ_B­È¤£¦s¦b´N¦b¤U¤@Äæ·s¼W
   
9.           F2 = Sheet2.Range("IV" & F).End(xlToLeft).Offset(0, 1).Column
   
10.           Sheet2.Cells(F, F2) = Sheet1.Range("B" & I)
    
11.        End If
    
12.     Else                                                      '·íSheet2§ä¤£¨ìsheet1 AÄæ¦ì¸ê®Æ®É¡A´N¦b³Ì¤U­±·s¼W
    
13.        A2 = Sheet2.Range("A65536").End(xlUp).Row
    
14.        Sheet2.Range("A" & A2) = Sheet1.Range("A" & I)
    
15.        Sheet2.Range("B" & A2) = Sheet1.Range("B" & I)
    
16.     End If
    
17. Next
    
18. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 7# waterfox

    «Øij±z~ ¸ê®Æªº¬[ºc¦A½Õ¾ã¤@¤U·|¤ñ¸û¦n­ò~
                     ¸ê®Æ®wªºÆ[©À~
                     ¨C­Ó¤ë¥÷ªºÄæ¦ì³£¤@¼Ë~ ©ñ¦b¦P¤@­ÓSHEET~ ¦h¥[¤@­ÓÄæ¦ì[¤ë¥÷]¨Ó°Ï§O~
                     ¸ò§A°Ï¤À¦¨«Ü¦h¬¡­¶¨ÓÀx©ñ¸ê®Æ~ µ²ªG¬O¤@¼Ëªº~
                    ¦ý¦b³B²z¤W¬Û¹ï¤ñ¸û¦n³B²z¤@¨Ç~

hugh0620

¦^´_ 11# waterfox


    Sorry~ ³Ìªñ¤u§@¤ñ¸û¦£~ ©Ò¥H~ ¤ñ¸û¨S¦³®É¶¡¤W¨Ó~
    ±zªº°ÝÃD¥D­n¬O±N[Stock on hand]©ßÂà¨ì[Summary]¤¤~
    ¥i¸Õ¸ÕªþÀÉ~  ¦ý¬OÁÙ¦³¤@­Ó²Ä¤è¨S¦³¼g­ò~
    ´N¬O§A¦b[Stock on hand] ¦³¤@­Ó¶µ¥Ø99 ¦b [Summary] ¬O¨S¦³ªº
    ¦]¬°¤£ª¾¹D§A¾ã­Ó¾Þ§@ªºÅÞ¿è~ ©Ò¥H~ ¥ý§¹¦¨°w¹ï±N¸ê®Æ©ßÂà~
    ¦A¨Ó¤@¨B¤@¨Bªº¨Ó½Õ¾ã~ §A©Ò»Ý­nªº~
      record-TEST.rar (81.28 KB)

¤U¸ü¦¸¼Æ: 7

2012-6-12 11:23

hugh0620

¦^´_ 13# waterfox

  ³o¬O§Ú¤W¸üÀɮפ¤ªºµ{¦¡½X~

1. Private Sub CommandButton1_Click()   '¸ê®Æ©ßÂà
   
2. '========  A =>¨C¤@¦C¶]ªº¦¸¼Æ  ====================
   
3. A = Sheet4.Range("IV2").End(xlToLeft).Column
   
4. A = (A - 4) / 3
   
5. If A - Int(A) > 0 Then
   
6.    MsgBox "¸ê®ÆÄæ¦ì¦³»~"
   
7.    Exit Sub
   
8. End If
   
9. A = A - 1
   
10. '========  B => Á`¦@­n¶]ªºµ§¼Æ  ====================
    
11. B = Sheet4.Range("A65536").End(xlUp).Row
    
12. 
    
13. For I = 3 To B
    
14.     Set C = Sheet2.Columns("B:B").Find(Sheet4.Range("B" & I))
    
15.    
    
16.     If Not C Is Nothing Then
    
17.     C = Sheet2.Columns("B:B").Find(Sheet4.Range("B" & I)).Row
    
18. 
    
19.     For J = 0 To A    '(EX. 0->11 =12¦¸)
    
20.         D = Sheet4.Cells(I, 7 + J * 3)
    
21.         If D = "" Then
    
22.         Else
    
23.         Do Until Sheet2.Range("F" & C + K) = ""
    
24.            If Sheet2.Range("F" & C + K) = D Then
    
25.               If Sheet4.Cells(I, 5 + J * 3) > 0 Then
    
26.               Sheet2.Cells(C + K, 7 + J) = Sheet4.Cells(I, 5 + J * 3)
    
27.               End If
    
28.               If Sheet4.Cells(I, 6 + J * 3) > 0 Then
    
29.               Sheet2.Cells(C + K, 21 + J) = Sheet4.Cells(I, 6 + J * 3)
    
30.               End If
    
31.               P = 1
    
32.               Exit Do
    
33.            End If
    
34.            K = K + 1
    
35.         Loop
    
36.         If P = 0 Then
    
37.            Sheet2.Rows(C + K).Insert Shift:=xlDown
    
38.            Sheet2.Range("F" & C + K) = Sheet4.Cells(I, 7 + J * 3)
    
39.            If Sheet4.Cells(I, 5 + J * 3) > 0 Then
    
40.             Sheet2.Cells(C + K, 7 + J) = Sheet4.Cells(I, 5 + J * 3)
    
41.            End If
    
42.            If Sheet4.Cells(I, 6 + J * 3) > 0 Then
    
43.             Sheet2.Cells(C + K, 21 + J) = Sheet4.Cells(I, 6 + J * 3)
    
44.            End If
    
45.         End If
    
46.         End If
    
47.     K = 0
    
48.     P = 0
    
49.     Next
    
50.     End If
    
51. Next
    
52. 
    
53. End Sub

½Æ»s¥N½X