private sub worksheet_change(byval target as range) 'worksheet的change事件dim xlsheet as worksheetset xlsheet = workbooks(源文件名).worksheets(源工作表名)if target.column = 1 then for i = 1 to 100 if xlsheet.cells(1, i).value = target.value then cells(target.row, 2) = xlsheet.cells(2, i) end if nextend ifend sub 20210311