[發問] copy資料到其他頁工作表.

john2006168

工作表"input"想copy 欄 B :I黃色highlight的資料   -------到工作表"update"   相對應  欄 O :S的位置    平時是用vookup可以,可否用marco 簡化

請大大指點.

john2006168

回復 2# 准提部林

謝謝幫忙!

准提部林

先試:
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]工作表
1) 工作表名稱後面多一個空白字元, 請修改
2) 1901386 有兩個??? 正確否?