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

½Ð°Ý¦p¦ó¥ÎVBA¼g Â^¨úAÀɮ׳¡¤À¸ê®Æ¶ñ¨ìBÀɮפ¤

½Ð°Ý¦p¦ó¥ÎVBA¼g Â^¨úAÀɮ׳¡¤À¸ê®Æ¶ñ¨ìBÀɮפ¤

¥»©«³Ì«á¥Ñ happycoccolin ©ó 2013-8-14 15:59 ½s¿è

½Ð±Ð¦U¦ì¤j¤j~:$

·Q½Ð°Ý¦p¦óÂ^¨úAÀɮ׳¡¤À¸ê®Æ¶ñ¨ìBÀɮפ¤©O?

¥Ø«e§Æ±æ¬O¦Û¦æ¿ï¾ÜÀÉ®×A.alsx,¸g¥ÑVBA²£¥Í·sÀÉ®×B.xlsx

A.xlsx B6¶ñ¨ìB.xlszªºB2
A.xlsx C6¶ñ¨ìB.xlszªºD2
A.xlsx D6¶ñ¨ìB.xlszªºU2
A.xlsx E6¶ñ¨ìB.xlszªºX2
A.xlsx G6¶ñ¨ìB.xlszªºAQ2
A.xlsx H6¶ñ¨ìB.xlszªºAR2

¥H¦¹Ãþ±À
¦pªþÀÉ ^^ ÁÂÁÂ~
TEST_0814.zip (13.99 KB)

1.½Ð°Ý¬O§_¤£ºÞ¦h¤Öµ§¸ê®Æ³£¥i¥H¶ñ¤W¥h?

¥Ø«e¬O¨Ï¥Îvlookup°µ ¦ý§Æ±æ¥i§Q¥ÎVBA§¹¦¨

2.ÁÙ¦³½Ð°Ý²£¥Íªº·sÀÉ®×TITLE¬O§_¥i¥H³]©w¦WºÙ?¥Ø«eBÀÉ®×TITLE¨ìAVÄæ(48)

¦A»¡©ú¤@¤U~«ô°U¦U¦ì¤j¤j¸Ñ´b@@

AÀɮתº¸ê®Æ±qA6¶}©l
Title Block                                                       
AAA        BBB        CCC                                       
QQQ-1234567        OOXX        OOXXXX                                       
                                                       
A        B                             C        D        E        F        G        H
1        111-2222222        DOG        1        L2902        Normal        L2902        AAA123
                                                        AAA234
                                                        AAA345
1        111-3333333        DOG1        1        L2900        Normal        L2900        BBB123
                                                        BBB234
                                                        BBB345
1        111-4444444        DOG2        1        L290        Normal        L290        CCC123
1        111-5555555        DOG3        1        BL290        Normal        BL290        DDD123
1        111-6666666        DOG4        1        SK4604        Normal        SK4604        EEE123
                                                        EEE234
1        111-7777777        DOG5        1        SK8600        Normal        SK8600        FFF123
                                                        FFF234
1        111-8888888        DOG6        1        SK5200        Normal        SK5200        GGG123

B.xlsx
Äæ¦ì¤Ó¦h¶K¤£§¹¥Î»¡©úªº

A.xlsx B6¶ñ¨ìB.xlsxªºB2
A.xlsx C6¶ñ¨ìB.xlsxªºD2
A.xlsx D6¶ñ¨ìB.xlsxªºU2
A.xlsx E6¶ñ¨ìB.xlsxªºX2
A.xlsx G6¶ñ¨ìB.xlsxªºAQ2
A.xlsx H6¶ñ¨ìB.xlsxªºAR2

¥H¦¹Ãþ±À

«ô°U«ô°U¤F!!!

TOP

¬Ý¤£À´§A­n½Æ»s¤º®eªºÅÞ¿è,
¤p§Ì¤]¬O·s¤â,
¤j¦Ü¼g¤F¤@¤U,
¤º®e¥D­n¬Oa.xlsªº¤º®e½Æ»s¨ìb.xls

Sub ¶×¤J¸ê®Æ()
    Dim Mypath As String    '¸ô®|
    Dim Myfile As String    '¥Ø«eEXCELÀɮצWºÙ
   
    Myfile = ThisWorkbook.Name

    Mypath = InputBox("¿é¤J­n¶×¤JªºÀɮ׸ô®|")
   
    Workbooks.Open Filename:=Mypath & "\b.xls"
   
    Windows(Myfile).Activate
   
    Sheets(1).Cells(1, 1).Copy
   
    Windows("b.xls").Activate
   
    Sheets(1).Cells(1, 1).Select
   
    ActiveSheet.Paste


End Sub

TOP

¦^´_ 1# happycoccolin

°ò¥»¤W¡A§A¥u¬OÄæ¦ì´¡¤J»P§R°£
¥u¬O§Aªº¼ÐÃD¦C­nÂX¥R©Î§ïÅܼÐÃD¦C¤å¦r¡A¹ê¦b¬Ý¤£¥X³W«h
¥u°w¹ïAÀÉ¥t¦sBÀɨí«·s±Æ¦CÄæ¦ì°µ´ú¸Õ
  1. Sub Ex()
  2. Dim fs
  3. fs = Application.GetOpenFilename("Excel File(*.xls*),*.xls*") '¶}±ÒAÀÉ
  4. If TypeName(fs) = "String" Then
  5. With Workbooks.Open(fs)
  6.    .Sheets(1).Copy
  7. .Close 0
  8. End With
  9. With ActiveSheet
  10. .Rows("1:4").Delete '§R°£«e4¦C
  11. .[C:C].Insert
  12. .[E:T].Insert
  13. .[V:W].Insert
  14. .[Y:Y] = ""
  15. .[Z:AP].Insert
  16. fs = Application.GetSaveAsFilename(InitialFileName:="B", FileFilter:="Excel File(*.xls;*.xlsm;*.xlsx),*.xls;*.xlsm;*.xlsx") '¦s¬°BÀÉ
  17. If TypeName(fs) = "String" Then .Parent.SaveAs fs: Workbooks(Dir(fs)).Close
  18. End With
  19. End If
  20. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD