☰

在 Excel Vba 宏上匹配单元格值

tag-icon • tag-icon microsoft-excel vba macros
在 Excel Vba 宏上匹配单元格值

如何匹配另一张工作表中的单元格值？如果匹配，我可以导出特定单元格的值吗？

答案1

这是一个通用的简单示例，假设我们要搜索一个名为的工作表“海盗岛”对于包含文本的单元格“隐藏的宝藏”，如果我们找到匹配项，我们希望找到的单元格右侧单元格的内容。

以下是一些代码：

Sub MatchGame()
    Dim v As Variant, r As Range, rp As Range
    v = Range("A1").Value
    Set rp = Sheets("pirate island").Cells
    Set r = rp.Find(what:=v, After:=rp(1))
    
    If r Is Nothing Then
        MsgBox "no treasure"
    Else
        MsgBox r.Offset(0, 1).Value
    End If
End Sub

我们只是把“隐藏的宝藏”在细胞内A1我们的主要工作表并运行宏。

相关内容