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

[µo°Ý] ¸ê®Æ²¾°Ê¤Î¹ï¤ñ°ÝÃD¡C

[µo°Ý] ¸ê®Æ²¾°Ê¤Î¹ï¤ñ°ÝÃD¡C

1. ¬O§Ú¦b¤@­Ó¤u§@ªí¤º½Æ»s¹L¨Óªº¦Ó2³£¬O¦b¥t¥~¤@­Ó¤u§@ªí½Æ»s¹L¨Ó,¦ý¬O¦s¦³ªÅ¥ÕÄæ¦ì¤Î±Æ¦C»P1¤£¦P
§Ú·Q±N2ªº¸ê®Æ½Æ»s¹L¥h«á¥ÎVBA,±N2ªº±Æ¦C»P1¬Û¦P©M¥h±¼ªÅ¥ÕªºÄæ¦ì,´N¬O¹³3ªº¨º­Ó¤@¼Ë
4¬O1ªº¸ê®Æ ¨SÅÜ,¦Ó5¬O2 ¸g¥h±¼ªÅ¥ÕÄæ¦ì©M»P1±Æ¦C¬Û¦Pªº¸ê®Æ,·í±Æ¦C¦n«á¦A¤À¹j¤@Äæ,§ä¥X¨âªÌªº¤£¦P¤§³B,¦b5ªº¦a¤è¥ÎÃC¦â¼Ð¥Ü¥X¨Ó¡C
³o¨Ç°Ê§@³Ì¦n¦b·í²Ä2ªº¸ê®Æ½Æ»s¹L¥h«á,ÂIÀ»«ö¶s«á¦Û°Ê¥h±¼ªÅ¥ÕÄæ¤Î±Æ¦C»P1¤@¼Ë,¦P®É°µ¸ê®Æ¹ï¤ñ,¦b²Ä2³B¥HÃC¦â¼Ð¥Ü¡C





¬¡­¶Ã¯11.rar (9.26 KB)

Sub ¾ã²z()
Dim R&, xR As Range
R = [K65536].End(xlUp).Row
If R < 3 Then Exit Sub
With Range("F3:K" & R)
     .Columns(5) = .Columns(1).Value
     .Columns(1) = .Columns(4).Value
     Union(.Columns(2), .Columns(4)).Delete Shift:=xlToLeft
End With
For Each xR In Range("F3:I" & R)
    If xR <> xR(1, -4) Then xR.Interior.ColorIndex = 37
Next
End Sub

Xl0000105.rar (13.71 KB)


=================================

TOP

Sub ¾ã²z()
Dim R&, xR As Range
R = [K65536].End(xlUp).Row
If R < 3 Then Exit Sub
With Range("F3: ...
­ã´£³¡ªL µoªí©ó 2020-4-19 10:16



  «Ü·PÁ¤j­ôªºÀ°¦£,¤Q¤À·PÁ¡C

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD