Excel жұмыс парағындағы барлық бос емес ұяшықтарды таңдаудың 2 қарапайым әдісі

Excel шешімдері Қазан 3, 2025
Қазір бөлісу:

Excel жұмыс парағында деректер іргелес емес ұяшықтарға енгізілсе, бос емес ұяшықтардағы деректерді таңдау және көшіру сізге біраз қиындық тудыруы мүмкін. Енді, осы жазбада біз барлық бос емес ұяшықтарды жылдам таңдаудың 2 әдісін ұсынамыз.

Excel қолданушыларынан деректерді көшіру және қою жиі талап етіледі. Алайда, кейде қиындықтар туындауы мүмкін. Мысалы, Excel жұмыс парағында бірнеше үзілісті бос ұяшықтар бар. Бұл жағдайда мазмұны бар барлық ұяшықтарды таңдау қиынға соғады. Бірақ, алаңдамаңыз. Мұнда біз Excel парағындағы барлық бос емес ұяшықтарды таңдаудың 2 тәсілімен бөлісеміз.

1-әдіс: «Арнайыға өту» арқылы таңдаңыз

  1. Бастапқыда Excel жұмыс парағын ашыңыз.
  2. Содан кейін, «Өту» диалогтық терезесін қосу үшін «F5» пернесін басыңыз.«Өту» триггері
  3. «Өту» диалог терезесінде «Арнайы» батырмасын басыңыз.
  4. Әрі қарай «Тұрақтылар» опциясын, содан кейін «Сандар», «Мәтін», «Логикалық мәліметтер» және «Қателер» опцияларын тексеріңіз.«Арнайыға өту» бөліміндегі опцияларды тексеріңіз
  5. Соңында «OK» батырмасын басыңыз.
  6. Диалогтық терезе жабылған кезде, өзіңіз көріп отырғандай, барлық бос емес ұяшықтар таңдалған.Бос емес ұяшықтар таңдалды

2-әдіс: Excel VBA көмегімен таңдаңыз

  1. Біріншіден, Excel VBA редакторына «сілтеме жасай отырып қол жеткізіңіз.Excel бағдарламасында VBA кодын қалай іске қосуға болады«.
  2. Содан кейін, келесі кодты пайдаланылмаған модульге салыңыз.
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 коды - Барлық бос емес ұяшықтарды таңдаңыз

  1. Осыдан кейін VBA редакторынан шығып, осы макросты жылдам қол жетімді құралдар тақтасына қосыңыз.
  2. Енді қажетті жұмыс парағын ашып, макро батырманы басыңыз.
  3. Бірден барлық бос емес ұяшықтар келесі суретте көрсетілгендей таңдалады.VBA коды арқылы таңдалған ұяшықтар

салыстыру

  артықшылықтары кемшіліктері
1 әдісі Оңай жұмыс істеу Пайдаланушылар қолмен «Өту» диалогтық терезесін ашып, бос емес ұяшықтарды таңдау қажет болған кезде параметрлерді тексеріп отыруы керек
2 әдісі Қайта пайдалануға оңай және ыңғайлы Сыртқы зиянды макростардың қаупін тудырыңыз

Тітіркендіргіш Excel ақаулықтарын жөндеу

Excel файлы қателер мен бұзылуларға бейім. Мысалы, егер MS Excel жиі дұрыс жабылмаса, файл оңай зақымдалуы мүмкін. Демек, пайдаланушылар сақтық шараларын қабылдауы керек, соның ішінде файлдардың сақтық көшірмесін мерзімді түрде жасау қажет. Сонымен қатар, шебер, берік және сенімді xlsx түзету сияқты құрал DataNumen Excel Repair, бұл қажеттілік мәселесі.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL Server қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.