excel 输入条件 到数据库表中找到相同值的列 复制对应列数据到输入条件的列对应位置

=INDEX(数据库!$I$4:$U$245,ROW(A1),MATCH(I$1&I$2&I$3,数据库!$I$1:$U$1,0))&""

右拉，下拉公式填充

Dim I

X = WorksheetFunction.Match([B1], Sheets("基础数据").Range("A:A"), 0)

Range("A3:D3").Copy Sheets("基础数据").Cells(X, "a")

Sheets("基础数据").Select

Sheets("基础数据").Range("a" & X & ":" & "d" & X).Interior.ColorIndex = 3 '修改过的区域填充红色

End Sub

代码复制到 修改表里