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

[µo°Ý] copy¸ê®Æ¨ì¨ä¥L­¶¤u§@ªí.

[µo°Ý] copy¸ê®Æ¨ì¨ä¥L­¶¤u§@ªí.

¤u§@ªí"input"·Qcopy Äæ B :I¶À¦âhighlightªº¸ê®Æ   -------¨ì¤u§@ªí"update"   ¬Û¹ïÀ³  Äæ O :Sªº¦ì¸m    ¥­®É¬O¥Îvookup¥i¥H,¥i§_¥Îmarco ²¤Æ

½Ð¤j¤j«üÂI.

test 06.zip (26.47 KB)

¥ý¸Õ:
Sub TEST()
Dim xR As Range, xF As Range, j%, Cr
Cr = Array(2, 4, 5, 6, 7)
Application.ScreenUpdating = False
For Each xR In Range([input!B5], [input!B65536].End(xlUp))
    If xR = "" Or xR.Row < 5 Then GoTo 101
    Set xF = [update!B:B].Find(xR, Lookat:=xlWhole)
    If xR Is Nothing Then GoTo 101
    For j = 1 To 5
        xF(1, 13 + j) = xR(1, Cr(j - 1))
    Next j
101: Next
End Sub

[update]¤u§@ªí
1) ¤u§@ªí¦WºÙ«á­±¦h¤@­ÓªÅ¥Õ¦r¤¸, ½Ð­×§ï
2) 1901386 ¦³¨â­Ó??? ¥¿½T§_?

TOP

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

ÁÂÁÂÀ°¦£!

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD