如何在Excel的SQL查询中引用指定单元格作为WHERE条件值？

根据你使用的查询方式，分三种常见场景给出解决方案：

1. 使用Microsoft Query（旧版数据连接） #

如果是通过「数据」选项卡→「自其他来源」→「来自Microsoft Query」创建的查询，不能直接写单元格地址，需要用参数占位符：

• 修改SQL语句为：

  SELECT [Value]
  FROM [Sheet1$]
  WHERE [ClientID] = ?
  

• 执行查询时会弹出参数设置窗口，选择「获取值自」，选中T1单元格，勾选「在以后的刷新中使用该值」即可。

2. 使用Power Query（获取与转换） #

如果是用Power Query处理本工作簿数据，有两种可行方式：

方式一：M语言直接引用参数 #

1. 先加载T1单元格的值作为独立参数：点击「主页」→「获取数据」→「自文件」→「自工作簿」，选择当前工作簿，选中T1所在工作表，加载后仅保留T1的行和列，将该查询重命名为ClientIDFilter；
2. 回到原Sheet1的查询，修改筛选逻辑引用参数：

   = Table.SelectRows(Source, each [ClientID] = ClientIDFilter{0}[Column1])
   

方式二：SQL语句内直接引用单元格 #

如果坚持用SQL语法，可通过子查询读取单元格值：

SELECT [Value]
FROM [Sheet1$]
WHERE [ClientID] = (SELECT * FROM [Sheet1$T1:T1])

3. VBA中执行SQL查询 #

如果是用VBA编写查询逻辑，直接拼接单元格值即可：

Sub RunSQLWithCellValue()
    Dim conn As Object
    Dim rs As Object
    Dim sqlStr As String
    Dim cellValue As Variant
    
    cellValue = ThisWorkbook.Sheets("Sheet1").Range("T1").Value
    sqlStr = "SELECT [Value] FROM [Sheet1$] WHERE [ClientID] = " & cellValue
    
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
    
    Set rs = conn.Execute(sqlStr)
    ' 将查询结果输出到A10开始的区域
    ThisWorkbook.Sheets("Sheet1").Range("A10").CopyFromRecordset rs
    
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

内容的提问来源于stack exchange，提问作者Sharon