使用 VBA 将 WORD TABLE 中的搜索数据提取到 EXCEL

问题描述

如何使用宏提取词表中的搜索数据。

样本表：

Name     Age     Sex     Address     Number
Adam     18      Male    Manila       1
Rina     18     Female   Manila       2

我想在搜索 Rina 时得到号码。

谁能帮我解决这个问题。谢谢

解决方法

例如：

Sub Demo()
Application.ScreenUpdating = False
Dim StrOut As String
With ActiveDocument.Tables(1).Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = InputBox("What is the Name to Find")
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = True
    .MatchWholeWord = True
    .Execute
  End With
  If .Find.Found = True Then
    MsgBox "The Number is: " & Split(.Rows(1).Cells(5).Range.Text,vbCr)(0)
  End If
End With
Application.ScreenUpdating = True
End Sub

这是一个非常基本的问题，如果你在谷歌上搜索，你会找到很多答案。但是，您可以通过多种方式做到这一点。使用 VLookup() 如下所示。

=VLOOKUP(G2,A2:E3,5)

您可以使用 Index()/Match() 组合，例如-

=INDEX(E2:E3,MATCH(G2,A2:A3,0))

如果你有 Office365 那么可以使用 XLOOKUP()

=XLOOKUP(G2,E2:E3)

excel excel ms-word