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

[µo°Ý] ½Ð°ÝVBA¥i¥H°µ¨ì¨âÀɮפñ¹ï«á¦A²£¥Í¥t¤@Àɮתº¤ñ¹ïµ²ªG¶Ü?

¦^´_ 18# GBKEE


    ³ø§iª©¤j~

¥Ø«e°»¿ù°±¦b
Wb.SaveAs "D:\TEST\" & Wb_Name & "XLSX"  '¦sÀɪº§¹¾ã¦WºÙ

¥i¬O¤ñ¹ïµ²ªG³q³q³£¬ONO DATA­C~

½Ð¨£ªþÀÉ
ABC3.zip (58.66 KB)

TOP

¦^´_ 20# GBKEE


    ÁÂÁª©¤j~~~¦¨¥\¤F~~

¦ý¬O¬O§_¥i¤£«ü©wÀx¦s¦ì¸m[ D:\TEXT ] ¥iÅý¨Ï¥ÎªÌ¦Û¦æ³]©wÀx¦s¦ì¸m©Î¿ï¾Ü­n¤£­n¦sÀÉ?

¦A°Ý¤@¤U¤ñ¹ïÀÉ®×B.XLSX Äæ¦ì¥Ñ"J"¦V«á¶¶©µ¬°"K"

¥u­×§ï¥H¤U«á°»¿ù¨S¦³°ÝÃD
With Wb.Sheets(1)
        Do While .Cells(i, "K") <> ""
           S = Join(Application.Transpose(Application.Transpose(.Range("A" & i & ":K" & i))), ",")
           If d.Exists(.Cells(i, "K").Value) Then
                S = S & "," & d(.Cells(i, "K").Value)
                d(.Cells(i, "K").Value) = Split(S, ",")
           Else
                d(.Cells(i, "K").Value) = Split(S & ",No Data", ",")
                S = d(.Cells(i, "K").Value)
           
           End If
            i = i + 1
        Loop
        .Parent.Close False               'Ãö³¬«ü©wÀɮפ£¦sÀÉ
    End With


¦ý¦]¬°B.xlsx¤ñ¹ïÄæ¦ì"K"«á ÁÙ¦³¤@Äæ"L"
·s²£¥ÍªºÀɮ׸ê®Æ·|¦V«á¶¶©µ¤@Äæ¶ñ¨ì"M"¶Ü?

°»¿ù²{¦b°±¦b
S = Application.Transpose(Application.Transpose(d.ITEMS))

ABC (4).zip (25.4 KB)

TOP

¦^´_ 20# GBKEE


³ø§iª©¤j~«e¤@½g´y­z¤£²M·¡~§Ú­«·s´y­z¤@¤U

¥Ø«eB.xlsxªº¤ñ¹ïÄæ¦ì­n§ó°Ê¨ì"K"

¦A½Ð±Ð¬O§_¥i¥H±N¤ñ¹ï¦nªº­È¶ñ¨ì³Ì«á¤@­ÓÄæ¦ì©O?¤£­n°µÂл\¶ñ¤Wªº°Ê§@©O?

½Ð¨£ªþÀÉ~~~ÁÂÁÂ~
0731.zip (23.49 KB)

ABC.xlsx
A        B        C        D        E
100-1        XXX        XXX        XXX        DOG
100-2        XXX        XXX        XXX        CAT
100-3        XXX        XXX        XXX        CAT-1
100-4        XXX        XXX        XXX        CAT-2
                               
¡ô¤ñ¹ï§¹²¦«áShow¥X¦¹Äæ¦ì­È                ¡ô¤ñ¹ïÄæ¦ì


B.xlsx

A        B        C        D        E        F        G        H        I        J        K        L        §Æ±æÅã¥Ü¦b³oÄæ¦ì(M)
11        XX        XX        XX        1        A1        XX        XX        XX        CC        DOG        XX       
12        XX        XX        XX        2        A2        XX        XX        XX        CC        CAT        XX       
13        XX        XX        XX        2        A3        XX        XX        XX        CC        CAT1        XX       
14        XX        XX        XX        1        A4        XX        XX        XX        CC        CAT-1        XX       
15        XX        XX        XX        1        A5        XX        XX        XX        CC        CAT3        XX       
                                                                                               
                                                                                ¡ô¤ñ¹ïÄæ¦ì        ¡ô­Y¦³¦h¤@Äæ¦ì ²£¥Íªº¤ñ¹ï¸ê®Æ¬O§_¥i¦V«á¶¶©µ¨ìM©O?       
À³¸Ó»¡¬O§_¥i¦Û°Ê¶ñ¦b³Ì«á¤@Äæ©O?       

¦Ó¥B³o¦¸CAT1¨S¦³³Q¤ñ¹ï¥X¨Ó~~
ªþÀÉ
0730.zip (24.12 KB)

11        XX        XX        XX        XX        XX        XX        XX        CC        DOG        100-1
12        XX        XX        XX        XX        XX        XX        XX        CC        CAT        100-2
14        XX        XX        XX        XX        XX        XX        XX        CC        CAT-1        100-3
13        XX        XX        XX        XX        XX        XX        XX        CC        CAT1        No Data
15        XX        XX        XX        XX        XX        XX        XX        CC        CAT3        No Data

½Ðª©¤j¼·ªÅ¬Ý¬Ý¦n¶Ü~ÁÂÁÂ~!!!!

TOP

¦^´_ 23# stillfish00


   
«¢Åo~¦]¬°¦³³o¤@¬q

¤ñ¸û(¥i©¿²¤"-")

If InStr(i, "-") Then If Mid(i, InStr(i, "-"), 2) <> "-1" Then d.Remove i        '¥i©¿²¤"-"ªº¨BÆJ

©Ò¥HÀ³¸Ó­n§PÂ_¦¨"100-3".....

TOP

¦^´_ 25# stillfish00


    «¢Åo~~~

1.  ©Ò¥H§A§Æ±æªº¬O   ¦³§t "-"©M¨S§t"-"ªº¨â­Ó¬O¹ïÀ³¨ì¬Û¦Pµ²ªG?
      YES

2.  0730ªºÀɮפ£§t¼ÐÀY¡A0731ªº§t¼ÐÀY­þ­Ó¤~¬O¥¿½Tªº¸ê®Æ?
      0730¬O­ì¥»½Ðª©¥DÀ°¦£ªº ,¦Ó0731§t¼ÐÀY¬O«á¨Óµo²{¤ñ¹ïªºÄæ¦ì¦³¦V«á²¾¤@Äæ ¦]¦¹FINAL¬O§Æ±æ°Ñ¦Ò0731ªº¼Ë¤l

3.  ¿ï¾Ü¤ñ¹ïªº¸ê®ÆªíÄæ¦ì¤£©T©w¡A¦ý¬O­n¤ñ¹ïªº³£¬O³Ì«á¤@Äæ?
      ¤ñ¹ïªºÄæ¦ì¬O©T©wªº ¸ê®Æ®wABC.xlsx¤¤ªº"E"Äæ¦ì »P «Ý¤ñ¹ïÀÉ®×B.xlsxªº"K'Äæ¦ì¤ñ¸û
      §Æ±æ±N¤ñ¹ï«áªºµ²ªG(ABC.xlsxªº"A"Äæ¦ì¸ê®Æ)¶ñ¤J¤@­Ó¸òB.xlsx¬Û¦Pªº·sÀɮ׳̫á¤@Äæ¦ì(¥Ø«e¬O"M"Äæ)
      ²{¦bªº¼gªk­Y¶ñ¤J¸ê®Æ¬O·|Âл\­ì¥»ªºÄæ¦ì §Æ±æ¯à°÷²£¥Í¤@·sÄæ¦ì ¦Ó¤£¬O¥ÎÂл\¼g¤J

TOP

¦^´_ 27# stillfish00


    ÁÂÁÂstillfish00~~~~

§Ú¨Órun¤@¤U~·P®¦±zªºÀ°¦£~~

TOP

¦^´_ 27# stillfish00


    «¢Åo~~stillfish00 ~~^^

­è­è¸Õ¹LOK~

¦ý¬O¦³´X­Ó°ÝÃD

1.­Y¸ê®Æ®w¤¤¦³ªÅ¥Õ¦æ,´N·|°±¤î¤ñ¹ï ¾É­PB.xlsx³Ì«á¤@­Ó»P¸ê®Æ®w¹ïÀ³ªºÄæ¦ì¤U¤@¦æ¬ÒÅܦ¨NO DATA
(¥Ø«e¸ê®Æ®w¹w­p¦³50000¦æ¥ª¥kªº¸ê®Æ) ­è­è¦³¥ý©ñ¶i¥h¤ñ¹ïµo²{µ²ªG³q³q³£¬ONO DATA

ABC_0801.zip (30.21 KB)

2.¬O§_¥i¥HÅýuser¿ï¾Ü¦sÀÉ»P§_ ¤£­nª½±µ¥ý¸õ¥X¦sÀɪºµøµ¡©O?
p.s.¥Ø«eÀx¦sªºÀɮ׬O¨S¦³ÀÉ®×Ãþ«¬ªº

3.¬O§_¥iÅý¤ñ¹ï¦nªºÀɮ׸ê®Æ¦³®æ½u¤Î¦Û°Ê½Õ¾ãÄæ¼e?¥i³]©w¦r«¬»P¤j¤p¶Ü?


©êºp°ÝÃD«Ü¦h~«ô°U«ô°U~~~~~~~

TOP

¦^´_ 30# stillfish00


    «¢Åo~stillfish00

¤Ó´Î¤F~~^^ ¤Ó·P®¦~

¥u¬OÁÙ¦³¨â­Ó¤p°ÝÃD~
1.¥Ø«e­Y¬OªÅ¥ÕªºÄæ¦ì¥L¤]·|°µ§PÂ_

­YB.xlsxªº"K"Äæ¬OªÅ¥Õªº

¥L·|¥hŪ¨ú¸ê®Æ®wªº"E"ÄæªÅ¥Õ¦ì¸m²Ä¤@­Óªº¹ïÀ³­È ¼g¦b·sÀɮ׸̭± ¦ý¬O¨ä¹ê¨ºÄæÀ³¸Ó­n¬OªÅ¥Õ

2.­Y¬O¸ê®Æ®wªº"E"Äæ¦ì ¦P®É¦b"A"Äæ¦ì¦³¨âµ§¥H¤W¹ïÀ³ ¨º«ç»ò¤ñ¹ï¥X¨Ó?
   ¥Ø«e¸òVLOOKUP¤@¼Ë¥u¯à¤@¹ï¤@ VBA¥i°µ¥X¤@¹ï¦h¶Ü?

   ¦Ó¥»¦¸¤ñ¹ïµ²ªG¥X¨Ó¤£¬O¹ïÀ³¨ì²Ä¤@µ§ ¦Ó¬OªÅ¥Õ¦æ«áªº²Ä¤@µ§(½Ð¨£ªþÀÉBook21.xlsx)

ABC_0802.zip (30.5 KB)


ÁÂÁÂÁÂÁÂ!!!!«ùÄò¬ãŪ¤¤

TOP

¦^´_ 32# stillfish00


    «¢Åo~~stillfish00

¤]¤Ó§Ö³t¤F~~©êºp¦£¤¤¦³¿ù~½m²ßªºÀɮפӦh·d²V¤F~

·PÁÂÀ°¦£¸Ñµª~~~

¦A°Ý¤@­Ó°ÝÃD

¤@¹ï¦h­«½Æªº¸ê®Æ¤¤¬O§_¥i¥H¥u¨ú¤£­«½Æªº¨Ã¦b¦P¤@Äæ¦ì¤º°µ´«¦æ°Ê§@©O?

ÁÙ¦³­Y¬O²£¥ÍªºÀɮר䤤¤@Äæ¦ì¤Ó¼e¤j¥i¥H¥ÎVBA³B²zÅý¥L³Ì¤j¥u¨ìÄæ¼e50(¨Ã¦Û°Ê´«¦C)³o¤@Ãþªº³]©w¶Ü?

©êºp¤p©f³oªì¾ÇªÌ°Ýªº°ÝÃD³£«Ü²ö¦W¨ä§® ¤]ÁÂÁ§A­Ì¯à°÷­@¤ß¸Ñµª

¦A¦¸ÁÂÁÂÁÂÁ¡ã~~~~

TOP

¦^´_ 32# stillfish00


    «¢Åo¡ãstillfish00

§Úª¾¹D¤F¡@¤U¦¸·|ª`·N¡@·PÁ¤j¤jªº­@¤ß¸Ñµª

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD