如何在另一个工作簿中查找/查找值？

Private Function GetColumn(Num As Integer) As String If Num <= 26 Then GetColumn = Chr(Num + 64) Else GetColumn = Chr((Num - 1) \ 26 + 64) & Chr((Num - 1) Mod 26 + 65) End If End Function Sub FindValue() Dim xAddress As String Dim xString As String Dim xFileName As Variant Dim xUserRange As Range Dim xRg As Range Dim xFCell As Range Dim xSourceSh As Worksheet Dim xSourceWb As Workbook On Error Resume Next xAddress = Application.ActiveWindow.RangeSelection.Address Set xUserRange = Application.InputBox("Lookup values :", "Kutools for Excel", xAddress, Type:=8) If Err <> 0 Then Exit Sub Set xUserRange = Application.Intersect(xUserRange, Application.ActiveSheet.UsedRange) xFileName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", 1, "Select a Workbook") If xFileName = False Then Exit Sub Application.ScreenUpdating = False Set xSourceWb = Workbooks.Open(xFileName) Set xSourceSh = xSourceWb.Worksheets.Item(1) xString = "=" & xSourceWb.Path & Application.PathSeparator & _ "[" & xSourceWb.Name & "]" & xSourceSh.Name & "!$" For Each xRg In xUserRange Set xFCell = xSourceSh.Cells.Find(xRg.Value, , xlValues, xlWhole, , , False) If Not (xFCell Is Nothing) Then xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row End If Next xSourceWb.Close False Application.ScreenUpdating = True End Sub

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️  超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈  卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！

⏱️  高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。

📊  可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。

🗄️  强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。

📝  七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。

🎓  用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。

立即下载，与 Excel 一起穿越时空！

Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松