选择包含#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

如果代码没有找到＆＃34; #N / A＆＃34;我收到了错误。

Answer 1

不使用#NA和#Saknas作为您的标准，而是使用

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

并删除这些行以获取包含#NA and #Saknas

的所需行

另一种方法是使用#NA条目在表单中插入两个虚拟行，使用#saknas条目插入一个虚拟行。其余的列不重要，这样做即使没有#NA行也不会产生错误。