VBA 查找某个表某列 最后一个数字

表白：黑白圣堂血天使，天剑鬼刀阿修罗。 
讲解对象：/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]注册一个账号登录，里面真的有很多优秀的文章，欢迎大家的到来。
---