根据列值移动行

我有一个电子表格，如果列B中的数据匹配一个特定的值，我想剪切并插入整个行到电子表格的顶部。

这是我迄今为止：

Cells.Find("TRCH").Select ActiveCell.EntireRow.Select Selection.Cut Range("7:7").Select Selection.Insert Application.CutCopyMode = False 

这个代码可以工作，但只能findTRCH的第一个实例。 我需要改变什么，以便从第7行开始插入包含TRCH的所有行？

提前致谢！

我已经更新了截图。 第一个例子是原始的一组数据。 第二个例子是我想要它看起来像我运行我的macros后。 上面的代码只将TRCH的第一行移到顶部。 希望澄清。

Answer 1

这没有经过testing，任何问题或代码的问题，然后让我知道：

 Dim wks As Worksheet Dim lRow As Long Set wks = ThisWorkbook.ActiveSheet 'loop through each row from 1 to the last row in used range For lRow = 1 To wks.UsedRange.Rows.Count If UCase(wks.Cells(lRow, 2)) = "TRDM" Then 'check if the this cell contains TRDM 'if there is a match then cut current row and insert into row 7 wks.Rows(lRow).Cut wks.Range("7:7") End If Next