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

[µo°Ý] ¦p¦ó¤ñ¹ï2­ÓBOMªí¡A¨Ã´¡¤J¦C¨Ã»ô

[µo°Ý] ¦p¦ó¤ñ¹ï2­ÓBOMªí¡A¨Ã´¡¤J¦C¨Ã»ô

½Ð±Ð¦U¦ì¥ý¶i
1.BOM¦³"³]ÅÜ"ª¬ªp¡A¨C¦¸³]Åܤ£¬O·|·s¼W¤l¶¥®Æ¸¹¡A¤£µM´N¬O·|´î¤Ö¤l¶¥®Æ¸¹
2.§Ú²{¦b¬O¥Î¤â°Êªº¤è¦¡¨Ì§Ç«ö·Ó¶¥¼h±Æ¦C
3.·í³]ÅÜ«e»P³]ÅÜ«á¤ñ¹ïBOM¡A³]Åܫ᪺BOM¦³¦h¤@¤l¶¥¡A§Ú¦b³]ÅÜ«eªºBOM´N´¡¤J1¦C--> ¦p¦ó¥ÎVBAÀ°¦£¦Û°Ê§PÂ_¨Ã´¡¤J¦C
4.·í³]ÅÜ«e»P³]ÅÜ«á¤ñ¹ïBOM¡A³]ÅÜ«e¦³¦h¤@¤l¶¥¡A§Ú¦b³]Åܫ᪺BOM´N´¡1¦C--> ¦p¦ó¥ÎVBAÀ°¦£¦Û°Ê§PÂ_¨Ã´¡¤J¦C



¬O§_¥i¥H¨Ï¥ÎExcel VBA À°¦£¨ó§U§PŪ¡AAÄæ»PGÄ檺®t²§¡A¨Ã¦Û°Ê´¡¤J¤@¦C¡AÅý³]ÅÜ«e/«á¬O¥i¥H¤ñ·Óªº
P.S·|¦³¤£¦Pªº²£«~¡A¬G¸ê®Æ¦C½d³ò·|¦³ÅܤÆ

·PÁ¦U¦ì¥ý¶iªº±Ð¾É!

¤ñ¸û2­ÓBOMªí.rar (39.66 KB)
Just do it.

¦^´_ 2# ­ã´£³¡ªL


­ã´£³¡ªL¡A¯uªº¤Ó·P¿E§A¤F¡A¸Ñ¨M¤F¤@¤j·Ð´o¡C
§Ú·|¦n¦n¬Ý¤@¤U§Aªº»yªk¡A¦³°ÝÃD¦A¸ò§A½Ð±Ð¡C
Thank you very much !
Just do it.

TOP

¦^´_ 2# ­ã´£³¡ªL

Dear ­ã´£³¡ªL¡A§Ú§ï¹LÄæ¦ì½s¸¹«á¡A¨Ã­×§ï¹Lµ{¦¡½X¡Aµ²ªG¦³²§±`¡A¬O§_­þ¸Ì»Ý°µ­×­q?

Sub TEST()
Dim xArea As Range, xR As Range, xF As Range, xG As Range, I%
Set xArea = Range([A3], Cells(Rows.Count, 1).End(xlUp))
Application.ScreenUpdating = False
For Each xR In xArea
    If xR = "" Or xR = xR(1, 9) Then GoTo 101
    Set xF = [I:I].Find(xR, Lookat:=xlWhole)
    If xF Is Nothing Then GoTo 101
    I = xR.Row - xF.Row
    If I > 0 Then Set xG = xF Else Set xG = xR
    xG.Resize(Abs(I), 5).Insert Shift:=xlDown
101: Next
End Sub






EXCEL-TEST.zip (78.01 KB)
Just do it.

TOP

¦^´_ 5# ­ã´£³¡ªL


§Ú¤w±NAÄæ¤ÎIÄæ§ó§ï¬°¤å¦r®æ¦¡
°õ¦æ«áµe­±¦p¤U¡A¦b§Ú"ª©¥»2" I3¦³¶¥¼h1¡A¦ýI4~I481§¹¥þ¨S¸ê°T¡A¦ÓI482«h¬O¶¥¼h1¡AI483«h¬O1.1.1   



Just do it.

TOP

¦^´_ 7# ­ã´£³¡ªL


¹ï¤£°_¡A§Ú¦A½Ð±Ð¤@­Ó°ÝÃD
¤@¥¹¨Ï¥ÎVBA°õ¦æ«á¡A³]©w®æ¦¡¤Æªº±ø¥óªº¤½¦¡³£·|¶]±¼
³o­n¦p¦ó³]©w?


=(A3<>"")*(A3<>G3)
=$A$3:$A$491


=(I3<>"")*(I3<>A3)
=$G$3:$G$491
Just do it.

TOP

¦^´_ 10# ­ã´£³¡ªL


¦nªº¡A·PÁ±zªº±Ð¾Ç
Just do it.

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD