Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
For x = 2 To 1000
If Sheets('Sheet1').Cells(x, 1).Value = Target.Value Then
Sheets('Sheet2').Cells(Target.Row, 2) = Sheets('Sheet1').Cells(x, 2)
Sheets('Sheet2').Cells(Target.Row, 3) = Sheets('Sheet1').Cells(x, 3)
Exit Sub
End If
Next x
End Sub
本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請
點擊舉報。
