VBA:基础查找返回行列号及地址

来来回回折腾半天；

Sub get_exporesure()
 Dim Cnn As Object, Sql As String, S(1) As String

 Dim seprate_line
 Dim Context As String '声明一个String类型变量context,用于保存对话框将要显示的内容
Dim title As String '声明一个String变量title,同于保存窗口标题内容
Rem 将内容存入Conetext 变量
seprate_line = "------------------"
Context = "TO get exploresure！"
title = "get exploresure"
key_word = "25mm eyelashes"

  Set Cnn = CreateObject("ADODB.Connection")
  Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  S(0) = "[" & ActiveSheet.name & "$B1:B" & Range("B65536").End(xlUp).Row & "]a"
  'S(1) = "[" & ActiveSheet.Name & "$J1:L" & Range("J65536").End(xlUp).Row & "]b"
  Rem Sql = "SELECT b.商品价格,b.商品单位 FROM " & Join(S, " LEFT JOIN ")