Question

我有一个excel文档，看起来像一个报告。我只需要一些数据。想出一个让我了解这些信息的公式最好的是什么。文件有88个条目。

您可以点击图片查看完整尺寸版本：

我想提出一个以黄色返回内容的搜索。知道怎么做到这一点？或者这是一种手动搜索类型的交易？我问，不是因为我想节省3个小时，而是因为我希望将来节省时间。谢谢！

Answer 1

只要您的模板格式相同，以下代码就可以使用。我尽量保持简单，这样你就可以看到各个步骤的作用。您可以调整粘贴数据的列以适应。您需要先创建一个名为＆＃39; Extract＆＃39;并更改任何＆＃39; YourSheetNameHere＆＃39;在代码中。

Sub Extract()
Dim Page, Company, Num, Name, ProjMan, TotalVal, Fee As String
Dim r, c As Integer

    c = 1
    Sheets("YourSheetNameHere").Select


    For r = 1 To 4680
        If Left(Range("J" & r).Value, 4) = "Page" Then

        'Stores the values
            Page = Range("J" & r)
            ProjMan = Range("J" & r + 2)
            TotalVal = Range("J" & r + 4)
            Company = Range("J" & r + 4)
            Num = Range("J" & r + 6)
            Name = Range("J" & r + 7)
            Fee = Range("H" & r + 31)

        'Pastes the values in a new sheet called Extract (which you will need to create first)
            Sheets("Extract").Select
            Range("A" & c) = Page
            Range("B" & c) = ProjMan
            Range("C" & c) = TotalVal
            Range("D" & c) = Company
            Range("E" & c) = Num
            Range("F" & c) = Name
            Range("G" & c) = Fee

            c = c + 1

            Sheets("YourSheetNameHere").Select 'You will need to adjust to suit
        End If
    Next r


End Sub

排序大丑文件

1 个答案: