Question

我正在Excel 2007中完成一项任务。我刚刚开始这项工作，我必须编写一个带有几个步骤的宏，我有点不知所措。有人可以帮助我，如果我需要提供更多信息，请告诉我。

宏必须一次从一个单元格从上到下循环一个单元格。
当宏达到该值时，它会在整个单元格的整个工作簿中搜索该特定值。
宏查看正在搜索的值的下一列，并在单独工作表的另一列中引用该值。

这是我到目前为止所做的：

Sub Sel_Class()

    Dim cell As Range, rFind2 As Range, tagID As Integer, alias As String, sh As Workbooks

    For Each cell In Worksheets("CList").Range("B2:B167").cells

        Set cell = .find(what:="ActiveCell.Value", LookAt:=xlWhole, MatchCase:=False, SearchOrder:=x1ByRows, SearchFormat:=False)
        If Not cell Is Nothing Then
            for all sheets in workbook
            .find(what:="ActiveCell.Value", LookAt:=xlWhole, MatchCase:=False, SearchOrder:=x1ByRows, SearchFormat:=False)

            Do
                List.Range("B" & Rows.Count).End(xlUp)(2) = rFind1.Offset(2)
                Set rFind2 = .find(what:="Recruiter", After:=rFind1)
                If Not rFind2 Is Nothing Then
                    Sheet2.Range("B" & Rows.Count).End(xlUp)(2) = rFind2.Offset(2)
                End If
                Set rFind1 = .find(what:="FG ID", After:=rFind2)
            Loop While rFind1.Address <> sAddr
        End If
    End With

End Sub

如何查找解析行并将数据输入表

0 个答案: