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

¸ê®Æ¤ñ¹ï

¸ê®Æ¤ñ¹ï

½Ð°Ý¦U¦ì, ¦p¦ó±N¤@±iworksheet»P¥t¤@±iworksheet¸ê®Æ§@¤ñ¹ï... ¦p²Ä¤@±isheet column A and coumn B¤º¸ê®Æ¦b²Ä¤G±isheet ªº¸ê®Æ¬O¬Û¦P, ´N¦b²Ä¤G±isheetªºcolumn D = ²Ä¤@±isheet ªºcolumn C, ¦ý¦pªG§ä¤£¨ì¬Û¦P¸ê®Æ, ¨º´N¦b²Ä¤G±isheetªº³Ì§À¤@¦æ¥[¤W³o¦æ, ¨Ò¦p

sheet  1
A          B         C
1.    ABC      123
2.   DEC       234
3.   DDF      123
Á`¼Æ¦³100¦æ

sheet  2
A.       B.        C            D
1.      BBB     234
2.      DEC    222      234
3.      FFF     333
Á`¼Æ¦³200¦æ

ÁÂÁ¦U¦ìÀ°¦£....

¦^´_ 1# waterfox
  1. Sub XX()
  2. Set d = CreateObject("scripting.dictionary")
  3. For Each A In Sheet1.Range("A1:A" & [A1].End(xlDown).Row)
  4.   d(A & "," & A.Offset(0, 1)) = A.Offset(0, 2)
  5. Next
  6. For Each A In Sheet2.Range("A1:A" & [A1].End(xlDown).Row)
  7.   If d.Exists(A & "," & A.Offset(0, 1)) Then
  8.      A.Offset(0, 3) = d(A & "," & A.Offset(0, 1))
  9.      d.Remove (A & "," & A.Offset(0, 1))
  10.   End If
  11. Next
  12. Ar = d.keys
  13. For I = 0 To UBound(Ar)
  14.   Sheet2.[A1].End(xlDown).Offset(1, 0).Resize(1, 2) = Split(Ar(I), ",")
  15. Next I
  16. Sheet2.[C1].End(xlDown).Offset(1, 0).Resize(d.Count, 1) = Application.Transpose(d.items)
  17. End Sub
½Æ»s¥N½X

TOP

¦hÁ§Aªº¦^ÂЧr... ¦ý¦pªG¦³¦n¦h¦æ³£¤£¦bsheet 2¤º... §A¥H¤Wªºµ{¦¡¬O¦pªGSheet1 ¦³´X¦æ¬O¦bsheet 2§ä¤£¨ìªº, ¨º¥u±N§ä¤£¨ìªº²Ä¤@¦æ¥[¨ìsheet 2³Ì§À... ¦pªG­n±N©Ò¦³¦bsheet 1³£§ä¤£¨ì³£¥[¦bsheet 2, ¨º¦p¦ó³B²z... ¥t¥~¦pªG°£¤Fcolumn A, column B ­nmatch ¥~... ¦pªG­ncolumn C and column D³£­nmatch ¨º¤S¦p¦ó... ÁÂÁ§A§rresigter 313.

TOP

¦^´_ 3# waterfox

¦ý¦pªG¦³¦n¦h¦æ³£¤£¦bsheet 2¤º... §A¥H¤Wªºµ{¦¡¬O¦pªGSheet1 ¦³´X¦æ¬O¦bsheet 2§ä¤£¨ìªº, ¨º¥u±N§ä¤£¨ìªº²Ä¤@¦æ¥[¨ìsheet 2³Ì§À... ¦pªG­n±N©Ò¦³¦bsheet 1³£§ä¤£¨ì³£¥[¦bsheet 2, ¨º¦p¦ó³B²z
=>­ì¥ýªºµ{¦¡´N¬O±Nsheet 1§ä¤£¨ì³£¥[¦bsheet 2ªº³Ì§À
   sheet 1¦³3¦æ¦bsheet 2¬O§ä¤£¨ìªº,´N¦bsheet 2ªº³Ì§À¥[¤Wsheet 1ªº3¦æ
   sheet 1¦³5¦æ¦bsheet 2¬O§ä¤£¨ìªº,´N¦bsheet 2ªº³Ì§À¥[¤Wsheet 1ªº5¦æ


... ¥t¥~¦pªG°£¤Fcolumn A, column B ­nmatch ¥~... ¦pªG­ncolumn C and column D³£­nmatch ¨º¤S¦p¦ó... ÁÂÁ§A§rresigter 313.
=>¬O¤£¬O¥ý¤W¶Ç§AªºexcelÀÉ®×,¤ñ¸ûª¾¹DªºÀɮתºµ²ºc

TOP

OK.. ¥ýÁÂÁÂ... §Ú¿ð¤@ÂI¤W¶Çµ¹§A¬Ý..

TOP

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2012-5-16 08:18): ¤W¶ÇÀÉ®×½ÐÀ£ÁY«á¤W¶Ç¡A¨Ã²Å¦XÀɮפj¤p»P®æ¦¡

¥H¤U¬O¨C­Ó¤ë³£¦³¤@±i¦s³fªí, ¨Ò¦p1¤ë¤Î2¤ë
[attach]10963[/attach]
[attach]10964[/attach]

­n±N¨C­Ó¤ëªº¦s³f¦Û°Ê¨ì¾ã¦~ªºsummary sheet, ¦ý¨C­Óitem³£¦³¤£¦Pªº¤J³f»ù¿ú, ¥ç·|¦³·sªº¶µ¥Ø·s¥[ªº, ´N¥[¦b¸Ó²Ä¤@columnªºitem number, ¨Ò¦p (1). ¥NªíRose, ¦ý´X­Ó¤ë«á(1). Rose ·|¥Î§¹¦s³f«á, (1) ·|¥Î¦b¨ä¥L·sªº²£«~¤W, ¨Ò¦p¦b¤T¤ë¥÷ (1) ¥i¯à³Q ¥t¤@²£«~¥N´À, ¦ý(1) Rose ¤S¤£¥i§R°£. ©Ò¥H¥i§_¦b(1) Rose ¥H¤U¦Û°Ê¥[¤W¤@¦æ¨Ã¥[¤J·sªº²£«~¦WºÙ¤ÎÀx³f°O¿ý?
[attach]10965[/attach]

ÁÂÁ§AªºÀ°¦£..

TOP

Jan12.zip (121.48 KB)
Feb12.zip (111.66 KB)
Summary.zip (150.77 KB)

thanks

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-5-16 10:12 ½s¿è

¼ÒÀÀªºÀô¹Ò¦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
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 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¤@¨Ç~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

ÁÂÁ§Aªº«ü¾É, §Ú©ú¤Ñ·|¦A¹Á¸Õ¤@¤U.. ·P¿E

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD