Cum se selectează toate celulele cu date în Excel?

Când datele rămân în celule discontinue, cum selectați și copiați datele? Va pierde mult timp pentru a selecta toate celulele discontinue cu date una câte una, în special datele rămân în ordine aproape aleatorie. Următorul mod complicat vă va ajuta să selectați rapid celulele de apel cu date în selecții.

Selectați toate celulele cu date, cu excepția formulelor, cu comanda Go to Special

Selectați toate celulele cu date, inclusiv formule cu cod VBA

Selectați toate celulele cu date, inclusiv formule, cu un singur clic pe Kutools pentru Excel

---

Selectați toate celulele cu date, cu excepția formulelor, cu comanda Go to Special

Dacă nu există date calculate cu formula, Accesați Special comanda vă poate ajuta să selectați cu ușurință toate celulele cu date în selecții.

Etapa 1: Selectați intervalul cu care veți lucra, apoi apăsați F5 tasta pentru a deschide fișierul Mergi la căsuță de dialog.

Etapa 2: Apasă pe Special buton pentru a intra Du-te la Special căsuță de dialog. Apoi verificați constante opțiune, vezi captura de ecran:

Etapa 3: Faceți clic pe OK, apoi veți vedea toate celulele cu conținut, cu excepția formulei, sunt selectate celulele.

Notă: În acest fel, nu puteți selecta celule cu formule.

---

Selectați toate celulele cu date, inclusiv formule cu cod VBA

Dacă aveți celule umplute cu formule, puteți selecta toate celulele cu date selectate cu următorul cod VBA. Vă rugăm să faceți acest lucru:

Etapa 1: Țineți apăsat butonul Alt + F11 tastele din Excel pentru a deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

Etapa 2: Faceți clic pe Insera > Moduleși lipiți următoarea macro în fișierul Fereastra modulului.

Cod VBA: selectați toate celulele cu date, inclusiv formule

Sub SelectNotBlackRange()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim OutRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Value <> "" Then
        If OutRng Is Nothing Then
            Set OutRng = Rng
        Else
            Set OutRng = Union(OutRng, Rng)
        End If
    End If
Next
If Not OutRng Is Nothing Then
    OutRng.Select
End If
End Sub

Etapa 3: Apoi apăsați F5 pentru a rula acest cod și se va afișa o casetă de solicitare pentru a vă spune să selectați un interval pe care doriți să îl selectați celulele de date.

Etapa 4: După ce ați selectat intervalul, faceți clic pe OKși au fost selectate toate celulele de date, inclusiv formulele din interval.

---

Selectați toate celulele cu date, inclusiv formule, cu un singur clic pe Kutools pentru Excel

Dacă doriți să selectați celulele conțin date atât valori, cât și formule cu doar mai puțini pași, aici vă pot prezenta un mod ușor, Kutools pentru Excel, Cu său Selectați Unblank Cells caracteristică, puteți selecta celulele de date doar câteva clicuri.

Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile.

Accesați Descărcare Încercare gratuită 30 de zileCumpărare PayPal / MyCommerce

După instalare Kutools pentru Excel, vă rugăm să faceți următoarele :( Descărcați gratuit Kutools pentru Excel acum )

Step1: Selectați intervalul pe care doriți să îl selectați numai celulele de date.

Step2: Faceți clic pe Kutools > Selectați > Selectați Celule nonblankși apoi toate celulele cu date au fost selectate simultan, vezi captura de ecran:

Descărcați gratuit Kutools pentru Excel acum

---

Legate de articole:

Selectați celule sau intervale non-adiacente

Deselectați celulele din intervalele selectate

Inversați selecțiile intervalelor selectate