在另一个工作簿中查找匹配的单元格值并返回匹配的行内容

发布于 2024-11-25 09:02:11 字数 251 浏览 1 评论 0原文

我是 Excel 和 VBA 新手，面临以下任务：

我有两个工作簿 - wookbook1.xlsx 包含公司名称并将保存宏，workbook2.xlsx > 它将保存我需要与 workbook1 进行匹配的值。对于 workbook1 中的每个公司名称，我需要获取在 workbook2 中找到匹配项的行值。

请帮忙。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

梦毁影碎の 2024-12-02 09:02:11

正如 iDevlop 在他/她的评论中指出的那样，您不必使用 vba，而是使用公式。

以下是一些可帮助您构建正确公式的链接：

VLOOKUP 公式将帮助您在另一个数组中查找匹配值：http://www.techonthenet.com/excel/formulas/vlookup.php
INDEX 公式将帮助您找到对应的行或列（又名索引）在另一个数组中：http://www.contextures.com/ xlfunctions03.html

如果您无法获取它，请使用您尝试过的内容以及您想要做的更深入的示例来编辑您的第一篇文章。

问候，

回复收藏 0 原文

若相惜即相离 2024-12-02 09:02:11

可以使用用户窗体搜索工作簿工作表之间的匹配单元格。

当双击要搜索的单元格时，用户窗体打开，匹配的单元格可以在用户窗体列表框控件上看到工作表名称和单元格地址。列表框中选定的单元格地址成为活动单元格。

用户表单的 VBA 代码：

Dim Alan2 As Range, Sayfa As Worksheet
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "110;40"
For Each Sayfa In ActiveWorkbook.Worksheets
    For Each Alan2 In Sheets(Sayfa.Name).UsedRange
         If Alan2 = ActiveCell.Value Then
             ListBox1.AddItem Sayfa.Name
             ListBox1.List(ListBox1.ListCount - 1, 1) = Alan2.AddressLocal(0, 0)
          End If
    Next Alan2
    Next Sayfa
Label1.Caption = " " & "Found Records: " & ListBox1.ListCount

源代码和示例文件地址

Matching cells between sheets of the workbook can be searched using the userform.

When the cell that to be searched is double-clicked,userform opens and the matching cells can be seen as sheet name and cell address on the userform listbox control.The selected cell addresses in the listbox become active cell.

VBA codes of userform:

Dim Alan2 As Range, Sayfa As Worksheet
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "110;40"
For Each Sayfa In ActiveWorkbook.Worksheets
    For Each Alan2 In Sheets(Sayfa.Name).UsedRange
         If Alan2 = ActiveCell.Value Then
             ListBox1.AddItem Sayfa.Name
             ListBox1.List(ListBox1.ListCount - 1, 1) = Alan2.AddressLocal(0, 0)
          End If
    Next Alan2
    Next Sayfa
Label1.Caption = " " & "Found Records: " & ListBox1.ListCount

Source and sample file address

回复收藏 0 原文

~没有更多了~