0

私は VBS を初めて使用するので、助けが必要です。

シート1とシート2があります。すべての生データはシート 1 の列 A にあり、シート 2 は要約レポートになります。スクリプトで列 A の各セルを検索し、「グレード A」を検索します。見つかった場合は、グレード A の単語を含む行全体をコピーし、次の行もコピーしてシート 2 に貼り付けます。ここに例があります。

シート 1:

A              B                 C                
GradeA     sdfasdf        sadfsadf
Address    sadfas         sdfsadfs   
Grade B    sadfsd         dgfdsgdf
Address    sdfasf          ertertewt
Grade C    fhgfdgh        ukjtyuyt
GradeA     hhh             lll
Address    ppp             hhh

スクリプトを実行すると、Sheet2 は次のようになります。

A              B                 C                
GradeA     sdfasdf        sadfsadf
Address    sadfas         sdfsadfs 
GradeA     hhh            lll
Address    ppp            hhh

前もって感謝します。

4

1 に答える 1

0

次のコードを試してください

Sub Test()
For Each Cell In Sheets(1).Range("A:A")
    If Cell.Value = "GradeA" Then
        matchRow = Cell.Row
        Rows(matchRow & ":" & matchRow + 1).Select
        Selection.Copy

        Sheets("Sheet2").Select
        lastRow = ActiveSheet.UsedRange.Rows.Count
        If lastRow > 1 Then lastRow = lastRow + 1
        ActiveSheet.Range("A" & lastRow).Select
        ActiveSheet.Paste
        Sheets("Sheet1").Select
    End If
Next
End Sub
于 2013-09-27T16:30:36.747 に答える