使用＆＃34;查找＆＃34;选择所有这些单元格及其下方的单元格

Question

我有一个庞大的数据集，需要所有的名字。他们的细胞说'＆＃34;姓名＆＃34;然后是它的名字。名称显示时没有模式。我可以使用＆＃34;查找＆＃34;工具选择所有＆＃34;名称＆＃34;细胞和它们下面的细胞？

Answer 1

我将样本数据放在下面的图片1中。此代码将遍历并找到值为“Name”的每个单元格，并从其下方的单元格中获取值，并将其输入到工作表2，如图2所示。

Sub findName()

Dim i As Long
Dim c As Range
Dim firstAddress

i = 1

With Worksheets(1).Cells

  Set c = .Find("Name")
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
          Worksheets(2).Range("A" & i).Value = c.Offset(1, 0).Value
          i = i + 1
          Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

End Sub