Դադարեցրեք պատճենել տեղադրումը, եթե զտված միջակայքը տվյալներ չունի (excel VBA)

Ողջու՜յն,

Ես աշխատում եմ Excel 2013,

Ինձ պետք է «#N/A» Autofilter «F» սյունակում, եթե զտել «#N/A» վերնագրով տվյալներ չկան, «Goto 0:» կոդը չի...

բայց, իմ կոդը չի աշխատում, ստացել եմ 0:

Ենթաթեստեր ()
«Զտիչի տեղադրում և #N/A Պատճենել և տեղադրել
«VBA – Անջատեք ավտոմատ զտիչը կոդից
Եթե ​​ActiveSheet.AutoFilterMode Ապա
ActiveSheet.AutoFilterMode = Սխալ 'ActiveSheet.Range("A1").AutoFilter ---> Միացնել ավտոմատ զտիչը
Վերջ: Եթե

«Ավտոֆիլտր 2-րդ սյունակի դատարկ բջիջների զտիչ
Dim Last Row այնքան երկար
LastRow = Range("B" & Rows.Count).End(xlUp).Տող

Սխալի դեպքում Resume Next «եթե զտում է, ապա հաջորդ տվյալները չեն գնում
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Կիրառելի չէ բջիջների զտիչը, այնուհետև ընտրեք տեսանելի բջիջները
Տարածք ("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Ընտրեք

«Դադարեցրեք պատճենել տեղադրումը, եթե զտված միջակայքը տվյալներ չունի
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Ապա
Տարածք ("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Ընտրեք
Ընտրություն.Պատճեն
«Արա ինչ-որ բան կոդ .........
Application.CutCopyMode = Կեղծ է
Ուրիշ
ActiveSheet.AutoFilterMode = False
Գնալ դեպի 0:
Վերջ: Եթե

«Արա ինչ-որ բան կոդ .........

0:
Վերջ Sub


Խնդրում եմ օգնեք ինձ, շնորհակալություն նախօրոք
  Դադարեցրեք պատճենել տեղադրումը, եթե զտված միջակայքը չունի data.zip   Դադարեցրեք պատճենել տեղադրումը, եթե զտված միջակայքը չունի data.zip