VBA找到找到的值的位置坐标

Question

我有这个简单的macro到值所在的位置。

Sub dkdk()
    Dim dk As String
    Dim rng
    dk = "Document Type"
    If Trim(dk) <> "" Then
        With Sheets(1).Range("1:10")
            Set rng = .Find(dk, .Cells(.Cells.Count), xlValues, xlWhole, xlByRows, xlNext, _
            False)
            Application.Goto rng, True
            If  Then

            End If
        End With
    End If
End Sub

我怎样才能接受 msgbox位置，即 Cells(x,y) Excel 中的值网格？

Answer 1

这是你想要的吗？

Sub dkdk()
    Dim dk As String
    Dim rng As Range

    dk = "Document Type"

    If Trim(dk) <> "" Then
        With Sheets(1).Range("1:10")
            Set rng = .Find(dk, .Cells(.Cells.Count), xlValues, xlWhole, _
                      xlByRows, xlNext, False)

            If Not rng Is Nothing Then
                Application.Goto rng, True
                '<~~ This will give something like $A$1
                MsgBox rng.Address 
                '<~~ This will give something like Cells(1,1)
                MsgBox "Cells(" & rng.Row & "," & rng.Column & ")"
            End If
        End With
    End If
End Sub