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

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

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

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD