2 paprasti metodai, kaip pasirinkti visus netuščius langelius „Excel“ darbalapyje

Bendrinti dabar:

„Excel“ darbalapyje, jei duomenys įvedami ne gretimuose langeliuose, gali būti šiek tiek sudėtinga pasirinkti ir kopijuoti duomenis iš netuščių langelių. Šiame įraše pristatysime 2 būdus, kaip greitai pasirinkti visus netuščius langelius.

„Excel“ naudotojai dažnai turi kopijuoti ir įklijuoti duomenis. Tačiau kartais gali kilti tam tikrų problemų. Pavyzdžiui, „Excel“ darbalapyje yra keli nepertraukiami tušti langeliai. Šiuo atveju šiek tiek sunku pasirinkti visas ląsteles, kuriose yra turinio. Bet nesijaudink. Čia pasidalinsime 2 būdais, kaip pasirinkti visus netuščius langelius „Excel“ lape.

1 būdas: pasirinkite per „Eiti į specialų“

  1. Pradžioje atidarykite „Excel“ darbalapį.
  2. Tada paspauskite „F5“, kad paleistumėte dialogo langą „Eiti į“.Suaktyvinti „Eiti į“
  3. Dialogo lange „Eiti į“ spustelėkite mygtuką „Specialus“.
  4. Tada pažymėkite parinktį „Konstantos“, tada – „Skaičiai“, „Tekstas“, „Logika“ ir „Klaidos“.Pažymėkite parinktis „Eiti į specialų“
  5. Galiausiai spustelėkite „Gerai“.
  6. Kai dialogo langas uždaromas, kaip matote, buvo pažymėti visi ne tušti langeliai.Pasirinktos netuščios ląstelės

2 būdas: pasirinkite naudodami Excel VBA

  1. Pirmiausia gaukite prieigą prie „Excel VBA“ redaktoriaus su nuoroda „Kaip paleisti VBA kodą „Excel“.".
  2. Tada įdėkite šį kodą į nenaudojamą modulį.
Sub SelectAllNonBlankCells()
    Dim objUsedRange As Range
    Dim objRange As Range
    Dim objNonblankRange As Range

    Set objUsedRange = Application.ActiveSheet.UsedRange

    For Each objRange In objUsedRange
        If Not (objRange.Value = "") Then
           If objNonblankRange Is Nothing Then
              Set objNonblankRange = objRange
           Else
              Set objNonblankRange = Application.Union(objNonblankRange, objRange)
           End If
        End If
    Next

    If Not (objNonblankRange Is Nothing) Then
       objNonblankRange.Select
    End If
End Sub

VBA kodas – pasirinkite visus netuščius langelius

  1. Po to išeikite iš VBA redaktoriaus ir pridėkite šią makrokomandą prie greitosios prieigos įrankių juostos.
  2. Dabar atidarykite norimą darbalapį ir spustelėkite makrokomandos mygtuką.
  3. Iš karto bus pasirinkti visi ne tušti langeliai, kaip parodyta toliau pateiktame paveikslėlyje.Pasirinktos ląstelės per VBA kodą

Palyginimas

  Privalumai Trūkumai
Metodas 1 Lengva naudoti Vartotojai turi rankiniu būdu atidaryti dialogo langą „Eiti į“ ir patikrinti parinktis kiekvieną kartą, kai reikia pasirinkti netuščius langelius
Metodas 2 Lengvas ir patogus pakartotiniam naudojimui Atsiranda išorinių kenkėjiškų makrokomandų pavojus

Ištaisykite erzinančias „Excel“ problemas

„Excel“ failas yra linkęs į klaidas ir sugadinimą. Pavyzdžiui, jei MS Excel dažnai uždaroma netinkamai, failas gali būti lengvai sugadintas. Todėl vartotojai turi imtis tam tikrų atsargumo priemonių, įskaitant periodinį failų atsarginių kopijų kūrimą. Be to, įgudęs, tvirtas ir patikimas xlsx pataisymas įrankis, pvz DataNumen Excel Repair, yra būtinybės reikalas.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server atsigavimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com

Bendrinti dabar:

Komentarai yra uždaryti.