在excel中按条件导入sql数据，如在A1填写名字 B1中查询出对应的其他数据 应该怎样实现

你说的是引用sql数据来填充A列B列吧？

可以使用数据-自其他来源来实现，具体你自己按照提示操作就可以了

如果是MSSQL的话先把Excel的那个Sheet导到数据库里形成一张表xls_Customer（如MSSQL的导入导出数据的工具）然后你的where 客编 in (select 客编 from xls_Customer)或者直接使用OPENDATASOURCE、OPENROWSET（MSSQL）这类的打开外部数据原的语句使用excel的sheet，where 客编 in (select 客编 from OPENDATASOURCE(XXXX)...[$sheet1]），具体格式参考联机帮助和网上众多介绍贴

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=SVCTAG-JH5JL2X;uid=XXX;pwd=;database=XXX"

conn.ConnectionTimeout = 100
conn.Open
Sql = "select * from [M_CONSIGN] where Name="张三"
rs.Open Sql, conn, adOpenKeyset, adLockPessimistic, adCmdText
Cells(1, "B") = rs.Fields("BirthD")

Cells(1, "C") = rs.Fields("Sex")