如果列B包含某个文本(“ACK-”,但我现在需要将整行直接复制到具有某些文本的行上方(“ACK-”这甚至可能任何帮助将不胜感激在包含某些文本的行上方复制行
Sub HEA_Filter()
Dim strArray As Variant
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim NoRows As Long
Dim DestNoRows As Long
Dim I As Long
Dim J As Integer
Dim rngCells As Range
Dim rngFind As Range
Dim Found As Boolean
strArray = Array("ack-")
Set wsSource = ActiveSheet
NoRows = wsSource.Range("A65536").End(xlUp).Row
DestNoRows = 1
Set wsDest = Sheets("Real Alarms")
For I = 1 To NoRows
Set rngCells = wsSource.Range("B" & I)
Found = False
For J = 0 To UBound(strArray)
Found = Found Or Not (rngCells.Find(strArray(J)) Is Nothing)
Next J
If Found Then
rngCells.EntireRow.Copy wsDest.Range("A" & DestNoRows)
DestNoRows = DestNoRows + 1
End If
Next I
End Sub
这很好用!谢谢!现在我有另一个问题了......当试图将“A”栏的粘贴栏更改为“F”时,它给了我一个错误,指出该单元格的大小不一样......我如何解决这个问题? –