find文字并复制到另一张纸上

我有一个日志文件，我已经导入到Excel中，并且我已经根据标准过滤了Col C。 现在我想通过Col Esearch“TRUE”。 对于“TRUE”的每个实例，我想selectCol D，E上面的行，直到在Col E中find空单元格，将它们复制并粘贴到同一工作簿中的新工作表中。

根据上面的图片，我想复制工作表1中的第9行到第1行，并跳过第20行到第10行（因为列E有FALSE）并复制工作表2中的行31到21。

Answer 1

你可以使用.areas

如果你没有VBA的经验，不知道要找什么，这是一个艰难的。 这是一个开始，根据你提供的图片，我想出了这个。

 Sub DoIt() Dim sh As Worksheet, ws As Worksheet Dim RangeArea As Range, c As Range Set sh = ActiveSheet Application.ScreenUpdating = 0 With sh For Each RangeArea In .Columns("E").SpecialCells(xlCellTypeConstants, 23).Areas Set c = RangeArea.Find(what:="TRUE", lookat:=xlWhole) If Not c Is Nothing Then RangeArea.EntireRow.Copy Sheets.Add ActiveSheet.Paste Else End If .Select Next RangeArea End With Application.CutCopyMode = 0 End Sub