選擇包含＃N/A的行，然後將它們粘貼到第2頁的末尾

Question

我希望包含＃N/A或#SAKNAS的行！添加到第2頁的最後一行。

如果沒有匹配，代碼應該繼續，不要複製任何空行。

ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="#N/A", Operator:=xlOr, Criteria2:="#SAKNAS!" 

Dim rng As Range 
Set rng = ActiveSheet.UsedRange 
Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1).Find(What:="#N/A", LookAt:=xlPart, LookIn:=xlValues) 

rng.Select 
Selection.Copy 

Sheets("Latest masterlist").Select 
Dim LASTROW2 As Long 
LASTROW2 = Cells(Rows.Count, 1).End(xlUp).Row 
Rows(LASTROW2).Select 
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 

如果代碼沒有找到「＃N/A」，我得到一個錯誤。

Answer 1

而是作爲你的標準使用

AutoFilter Field:=1, Criteria1:="<>#N/A", Operator:=xlOr, Criteria2:="<>#SAKNAS!". 

，並刪除這些行獲取包含#NA and #Saknas

做的是插入兩個虛擬行另一種方式所需的行使用#NA和#Saknas的在你的工作表中#NA條目和#saknas條目。其餘的列不重要，這將做什麼，即使沒有#NA行存在，它不會創建錯誤。