VBA代码 1、在模块1里,myLookup过程: Sub myLookup(Target As Range) Dim luKey As String '工作表查询关键字 Dim longKey$, shortKey As String '数组(基础信息表)中的匹配关键字 Dim arr(), currRow As Integer Dim wsBasic As Worksheet, ws As Worksheet Dim lastRow As Integer, lastCol As Integer...