Ձեր Word աղյուսակում մի քանի շարքեր կամ սյուններ խմբաքանակով ջնջելու 5 արագ մեթոդներ

Այս հոդվածում մենք կցանկանայինք ձեզ ցույց տալ 5 արագ մեթոդ ՝ ձեր Word աղյուսակում բազմաթիվ տողեր կամ սյուններ խմբաքանակով ջնջելու համար:

Մենք տվյալները դնում ենք աղյուսակների մեջ, որպեսզի փաստաթուղթը դյուրին լինի աչքի համար: Երկար սեղան ստեղծելը հազվադեպ չէ: Այնուամենայնիվ, երբ կրկին ստուգեք աղյուսակը և որոշ տողեր ու սյուններ ավելորդ գտնեք, ձեզ հարկավոր է դրանք հեռացնելու արագ միջոց:

Սկզբից եկեք դիտենք բազմաթիվ անընդմեջ տողեր կամ սյուններ ջնջելու եղանակները:

Մեթոդ 1. Deleteնջել տողերը կամ սյունակները համատեքստային ընտրացանկի միջոցով

1. Նախ ընտրեք տողերի կամ սյունակների շարք և աջ կտտացրեք:
2. Դրանից հետո ընտրեք համապատասխանաբար «Deleteնջել շարքերը» կամ «Deleteնջել սյունակները»:    
3. Կամ կարող եք ընտրել տողեր կամ սյունակներ և սեղմել «Դասավորություն»:
4. Դրանից հետո ընտրեք «Deleteնջել» և ընտրել «Deleteնջել սյունակները» կամ «Deleteնջել շարքերը»:

Մեթոդ 2. Օգտագործեք դյուրանցումներ

1. Նախ ընտրեք տողերը կամ սյունակները:
2. Երկրորդը ՝ սեղմեք «Backspace»:

Եթե ​​սյունները կամ տողերը անընդմեջ չեն, ապա մենք չենք կարող դրանք ջնջել ՝ օգտագործելով վերը նշված մեթոդները: Փոխարենը, կարող եք կիրառել հետևյալ մեթոդները:

Մեթոդ 3. Ավելացնել անհարկի տողերը կամ սյունակները միասին

1. Նախ ընտրեք տող կամ սյուն:
2. Դրանից հետո կտտացրեք մկնիկը և պահեք այն:
3. Քաշեք մկնիկը պատշաճ դիրքի և բաց թողեք:
4. Այնուհետև ընտրեք բոլոր թիրախային տողերը կամ սյուները և օգտագործեք վերը նշված մեթոդները՝ դրանք ջնջելու համար։

Մեթոդ 4. Գործարկել մակրո ՝ բազմաթիվ ոչ անընդմեջ շարքերը ջնջելու համար

1. Առաջին հերթին ընտրեք տողերը։
2. Սեղմեք «Alt + F11» ՝ Word- ում VBA խմբագիր բացելու համար:
3. Դրանից հետո ստեղծեք մոդուլ ՝ կտտացնելով «Նորմալ» նախագիծը:
4. Հաջորդը կտտացրեք «Տեղադրել» կետին և ընտրել «Մոդուլ»:
5. Բացեք մոդուլը կրկնակի սեղմումով և տեղադրեք հետևյալ կոդերը.

Sub DeleteNonConsecutiveRows()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nIndex As Integer, nRows As Integer
  Dim strTable As String
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  '  Delete contents in selected rows.
  Selection.Delete
 
  With Selection.Tables(1)
    nRows = .Rows.Count
    For nIndex = nRows To 1 Step -1
      For Each objCell In .Rows(nIndex).Cells
        If Len(objCell.Range.Text) > 2 Then
          varCellEmpty = False
          Exit For
        Else
          varCellEmpty = True
          .Rows(nIndex).Delete
        End If
      Next objCell
    Next nIndex
  End With
 
  Set objCell = Nothing
  Set objTable = Nothing
 
  Application.ScreenUpdating = True
End Sub

6. Վերջինը, բայց ոչ պակաս կարևոր է, կտտացրեք «Run» - ին կամ սեղմեք «F5»:

Մեթոդ 5. Գործարկել մակրո ՝ բազմաթիվ ոչ անընդմեջ սյունակներ ջնջելու համար

1. Նախևառաջ, ընտրեք թիրախային սյուները «Ctrl» ստեղնով։
2. Հաջորդը տեղադրեք և գործարկեք մակրո ՝ հետևյալ ճշգրիտ նույն քայլերին հետևելով:
3. Բայց մակրոը փոխարինեք այսով.

Sub DeleteNonConsecutiveColumns()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nIndex As Integer, nColumns As Integer
  Dim strTable As String
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  '  Delete contents in selected columns.
  Selection.Delete
 
  With Selection.Tables(1)
    nColumns = .Columns.Count
    For nIndex = nColumns To 1 Step -1
 
      For Each objCell In .Columns(nIndex).Cells
        If Len(objCell.Range.Text) > 2 Then
          varCellEmpty = False
          Exit For
        Else
          varCellEmpty = True
          .Columns(nIndex).Delete
        End If
      Next objCell
    Next nIndex
  End With
 
  Set objCell = Nothing
  Set objTable = Nothing
 
  Application.ScreenUpdating = True
End Sub

Դիտեք Փաստաթղթի կոռուպցիան

Թվային պահեստավորման սարքի օգտագործման ավելացման հետ մեկտեղ կարևոր է տվյալների խնամքը: Լավագույն միջոցներից մեկը դրանց պահուստավորումն է: Օրինակ ՝ Word- ն օգտագործելիս այն կարող է հանկարծ դադարել արձագանքելուց: Եվ երբ այն վերադառնա նորմալ վիճակի, ձեր փաստաթուղթը կարող եք միայն մեռած գտնել: Եվ այդ ժամանակ ստիպված կլինեք անցնել ամբողջ աղմուկի միջով docx վերականգնում.

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում xlsx ֆիքս և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com