表白：黑白圣堂血天使，天剑鬼刀阿修罗。
讲解对象：/VBA 查找某个表某列 最后一个数字
作者：融水公子 rsgz
VBA 不是很熟悉 但也还是完成了自己的目的 下面的代码实现了 VBA 查找某个表某列 最后一个数字Sub mycode()
Dim valuee As Integer
Dim biaoo As Integer
Dim strr As String
biaoo = 20
strr = "出口国家"
'value (biao)
Debug.Print value(strr, biaoo)
End Sub
' 关键词 的最后一个数
Function value(str As String, biao As Integer)
Dim liee As Integer
Dim hangg As Integer
liee = lie(str, biao): Debug.Print liee & "列"
' 那一列最后一个数 的行数
hangg = Worksheets(biao).Cells(65536, liee).End(xlUp).Row: Debug.Print hangg & "行"
value = Worksheets(biao).Cells.Item(hangg, liee)
' value = Worksheets(biao).hangg.value
End Function
' 查找关键词在哪一列
Function lie(str As String, biao As Integer) As Long
'biao = 3
'str = "数量"
For Each Rng In Worksheets(biao).Range("A1:AA200")
If Rng = str Then
a = Rng.Row
b = Rng.Column
End If
Next Rng
Key = Worksheets(biao).Cells(a, b)
Debug.Print "表" & Worksheets(biao).Name & ":" & Key & "-->" & "(" & a & ":" & b & ")"
lie = b
End Function
这是运行结果：
=== 公众号：不浪仙人 谢谢大家的支持！可以点击我的头像，进入我的空间浏览更多文章呢。建议大家360doc[www.360doc.com]注册一个账号登录，里面真的有很多优秀的文章，欢迎大家的到来。
---
|
