Question

对于vba来说是全新的，但是我已经搜索了所有答案，但没有找到任何帮助的方法。我需要在一个单元格中键入它（搜索单元格）“ A1”，然后excel尝试在所有活动工作表中进行匹配，除非我一次输入该单词。匹配后，必须使用右侧的第6个单元格并将其复制（搜索单元格）“ A2”旁边。当我们有一个匹配项时，循环必须停止搜索。用户可以更改工作表的名称，这就是为什么我需要搜索所有活动工作表的原因。

Answer 1

在这里，我假设要找到的值在单元格 A1 中，而检索到的数据将放置在单元格 B1

中

Sub RetrieveStuff()
    Dim v As Variant, rDest As Range, Nm As String
    Dim sh As Worksheet

    With ActiveSheet
        v = .Range("A1").Value
        Set rDest = .Range("B1")
        Nm = .Name
    End With

    For Each sh In Sheets
        If sh.Name <> Nm Then
            Set rfound = sh.Cells.Find(what:=v, After:=sh.Cells(1, 1))
            If Not rfound Is Nothing Then
                rfound.Offset(0, 6).Copy rDest
                Exit Sub
            End If
        End If
    Next sh

End Sub

如果找不到数据，您可能要提醒用户。

在所有活动工作表中搜索带偏移量的字符串

1 个答案: