Ողջու՜յն,
Ես աշխատում եմ 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
Ես աշխատում եմ 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