1
我想所有行從包含在塔T文本「Allscripts公司」的Pipeline Report
紙上覆印開始粘貼行如何複製和。從特定細胞中的另一片
然後,我想將它們粘貼到從「A14」開始的另一張紙上,然後放下。
現在這段代碼將它們從「A2」中粘貼出來,但是我需要它從A14開始並從那裏往下走。
Sub extractAllscripts()
Dim myrange As Range
Dim lr as Long
Sheets("Pipeline Report").Select
Set myrange = Sheets("Pipeline Report").Range("T1", Range("T" & Rows.Count).End(xlUp))
For Each cell In myrange
If cell.Value = "Allscripts" Then
lr = Sheets("Macro Test Page").Range("T" & Rows.Count).End(xlUp).Row
cell.EntireRow.Copy Destination:=Sheets("Macro Test Page").Range("A" & lr + 1)
End If
Next cell
End Sub