Question

我有100多个相同的工作表。我正在尝试制作一张新的纸张来扫描其他纸张。扫描用于1列（H）并查找事件（均> .05和＆lt; - .05）。然后我需要它来复制整行并将其放入新的工作表。

Answer 1

好的，多年来我还没有触及VBA，但我可以通过Google搜索需要实现的不同步骤来快速提出这个问题。我在一些示例表中使用了从单元格A1到H30的随机数据;您显然需要根据自己的需求调整代码，但这应该足以让您入门！

Sub LookForValuesInH()

    Dim WS_Count As Integer
    WS_Count = ActiveWorkbook.Worksheets.Count
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = "Results"

    For i = 1 To WS_Count
        Dim Row_Count As Integer
        Row_Count = 30
        For r = 1 To Row_Count
            Worksheets(1).Select
            If Cells(r, 8) >.05 Then
                Worksheets(1).Rows(r).Copy
                ws.Activate
                ws.Paste
                ActiveCell.Offset(1).Select
            End If
        Next r
    Next i
End Sub

Excel的;尝试在多个工作表中的列中查找事件

1 个答案: