Question

我每天都会创建大约20到30张工作表，它们都以A1中的名字开头，例如＆＃34; Pamela Anderson＆＃34;，我希望脚本在名为＆的工作表中找到匹配的文本＃34;列表＆＃34;并在单元格B1中添加“＃Pamela Anderson＆＃34;在列表表中。

列表从A3开始，最多到B35。如果名称不在列表中，则根本不应向B1添加任何数据。

所以，如果在＆＃34;随机表名＆＃34;它在单元格A1中表示＆＃34; Barrack＆＃34;在列表中，A5有＆＃34; Barrack＆＃34;而且B5有＆＃34;奥巴马＆＃34;，它应该将B5信息复制到＆＃34;随机表名＆＃34;并将其粘贴在B1中。该脚本应搜索所有工作表并尽可能添加数据。

我怎样才能做到这一点？

Answer 1

试试这个

Thread

Answer 2

您可以在下面的方法中更改值，结果和查找范围的单元格范围

Sub LookupMac()
'
' LookupMac Macro
'
' Keyboard Shortcut: Ctrl+m
'

  Dim lookupRange As Range
  Dim result As Variant
  Dim lookupValue
  lookupValue = Range("A1")

    For Each wks In Worksheets
        Set lookupRange = wks.Range("A5:B35")
        result = Application.VLookup(lookupValue, lookupRange, 2, False)
        If IsError(result) Then
            'result = ""
            Range("B1").Value = ""
        Else
            'MsgBox (result & " found in " & wks.Name)
            Range("B1").Value = result
            Exit For
        End If
    Next

End Sub

如果A1与列表

2 个答案: