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

关注

原创最新推荐文章于 2025-10-15 11:07:06 发布 8.7k 阅读 AI 写同款· GEO 优化 ›

使用 VBA 查找工作表中某个字段并返回其所在行号获取工作表中的第一行。然后，我们使用 Find 方法查找包含输入字段名的列，并将其索引号保存在变量 colIndex 中。的函数，该函数接受字段名和工作表名作为参数，并查找工作表中的第一行中包含输入字段名的列，并返回该字段所在的行号。) 获取这一列的范围，并使用 Find 方法查找第一个非空单元格，并将其所在的行号保存在变量。在上面的代码中，我们首先设置要查找的字段名和工作表名。在上面的代码中，我们定义了名为。函数，并将返回的结果保存到。来处理没有找到列的情况。函数在窗体中显示结果。阅读详情

来来回回折腾半天；

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 ") & " ON a.商品名称=b.商品名称"
  'Range("C2").CopyFromRecordset Cnn.Execute(Sql)
  Cnn.Close: Set Cnn = Nothing: Beep
  
  'MsgBox Context, vbOKOnly, title

Dim st As Worksheet
Set st = Sheets("source_data_top_rank_eyelashes")

temp = st.Range("1:" & st.Rows.Count).Find(key_word).Address
col_num = Split(temp, "$")(1)
row_num = Split(temp, "$")(2)

Debug.Print "列号:" & col_num & " 行号:" & row_num
Debug.Print seprate_line


target_row = st.Range("1:" & st.Rows.Count).Find(key_word).Address
Debug.Print target_row


endrow = st.Range("A65536").End(xlUp).Row
endcol = st.Range("iv1").End(xlToLeft).Column

Debug.Print "endrow：" & endrow & " endcol：" & endcol
Debug.Print seprate_line


Set test_kw = st.Range("1:" & st.Rows.Count).Find("曝光")
Debug.Print seprate_line
Debug.Print test_kw.Address, test_kw.Row, test_kw.Column, test_kw.Value

End Sub