Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս հեռացնել դատարկ տողերն ու սյունները աղյուսակներից Word- ում:

Ինչպե՞ս կարող եք Word- ի աղյուսակներից հեռացնել բոլոր դատարկ շարքերը և սյունակները: Այս ձեռնարկը ցույց կտա ձեզ Word փաստաթղթի աղյուսակներից դատարկ տողերն ու սյունները հեռացնելու մի քանի եղանակներ:

Ձեռքով սեղաններից հեռացրեք բոլոր դատարկ շարքերը և սյունակները

Հեռացրեք բոլոր դատարկ տողերն ու սյունները սեղաններից ՝ օգտագործելով VBA կոդ

Մեկ կտտոցով սեղաններից հանեք բոլոր դատարկ շարքերը և սյունակներըլավ գաղափար 3


Ձեռքով սեղաններից հեռացրեք բոլոր դատարկ շարքերը և սյունակները

Microsoft Office Word- ը չի տրամադրում դատարկ տողերն ու սյունները հեռացնելու հարմար միջոց, և անհրաժեշտ է դրանք հեռացնել ՝ ձեռքով ընտրելով յուրաքանչյուր դատարկ տող և սյուն, այնուհետև դրանք մեկ առ մեկ ջնջելու:

Քայլ 1. Ընտրեք դատարկ շարքը կամ դատարկ սյունը, որը ցանկանում եք ջնջել: Տեսեք,

doc-removerowsandcols-1

Քայլ 3. Տակ Սեղան Գործիքներ, կտտացրեք նախագիծ Ներդիր;

doc-removerowsandcols-2

Քայլ 4. Դեպի Տողեր և սյունակներ խումբ, սեղմեք Ջնջել տողերը կամ ջնջել սյունակները.

doc-removerowsandcols-3


Հեռացրեք բոլոր դատարկ տողերն ու սյունները սեղաններից ՝ օգտագործելով VBA կոդ

Բառի մակրո գործառույթը տրամադրում է փաստաթղթի աղյուսակներից բոլոր դատարկ տողերն ու սյունները հեռացնելու շատ ավելի հարմար միջոց: Բոլոր դատարկ շարքերը և սյունակները կարող եք հեռացնել հետևյալ կերպ.

Քայլ 1: Մամուլ «Alt-F11» բացել Microsoft Visual Basic դիմումի համար պատուհանը;

Քայլ 2: Սեղմեք Մոդուլներ մասին Տեղադրել ներդիրը, պատճենեք և տեղադրեք հետևյալ VBA կոդը Մոդուլի պատուհանում;

Քայլ 3. Ապա կտտացրեք Վազումdoc-reverse-sign-6VBA կիրառելու կոճակը:

VBA կոդը `բոլոր դատարկ տողերն ու սյունները աղյուսակներից հանելու համար.

Ենթածրագիր
Դիմում. ScreenUpdating = Սուտ է
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEt դատարկ ինչպես Boolean
ActiveDocument- ի հետ
Յուրաքանչյուր Tbl- ի համար .Սեղաններ
n = Tbl.Colnsns.Count
I = n- ի համար 1 քայլ -1
fEmpty = ueիշտ է
Յուրաքանչյուր բջջի համար Tbl- ում. Սյունակներ (i): Բջիջներ
Եթե ​​Len (cel.Range.Text)> 2 Ապա
fEmpty = Սուտ
Ելք For
Վերջ: Եթե
Հաջորդ բջ
Եթե ​​fEmpty = ueիշտ է, ապա Tbl. Սյունակները (i): eնջել
Հաջորդ i
Հաջորդ Tbl
Վերջ
ActiveDocument- ի հետ
Յուրաքանչյուր Tbl- ի համար .Սեղաններ
n = Tbl.Rows.Count
I = n- ի համար 1 քայլ -1
fEmpty = ueիշտ է
Յուրաքանչյուր բջջի համար Tbl- ում: Շարքեր (i): Բջիջներ
Եթե ​​Len (cel.Range.Text)> 2 Ապա
fEmpty = Սուտ
Ելք For
Վերջ: Եթե
Հաջորդ բջ
Եթե ​​fEmpty = ueիշտ է, ապա Tbl. Շարքեր (i): eնջել
Հաջորդ i
Հաջորդ Tbl
Վերջ
Սահմանել cel = Ոչինչ. Սահմանել Tbl = Ոչինչ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub


Մեկ կտտոցով սեղաններից հանեք բոլոր դատարկ շարքերը և սյունակները

Kutools- ը Word- ի համար ձեզ տալիս է փաստաթղթի բոլոր սեղաններից բոլոր դատարկ տողերն ու սյունները հեռացնելու ամենահարմար տարբերակը: Պարզապես պետք է մեկ անգամ կտտացնել և Kutools բառի համարի Delete Rows/Columns օգտակար ծրագիրը արագորեն կհեռացնի բոլոր դատարկ տողերն ու սյունները բոլոր կամ ընտրված սեղաններից:

Kutools բառի համար, ավելի քան 100 հարմար գործառույթներ, հեշտացնում է ձեր գործերը: 

Տեղադրելուց հետո Kutools Word- ի համար, խնդրում ենք վարվել ինչպես ստորև ՝Download Անվճար ներբեռնեք Kutools- ը Word- ի համար:)

1: սեղմեք Kutools Plus > Delete Rows/Columns մասին Table հաց.

փաստաթուղթը հանեք դատարկ տողերի սյունակները 1-ին աղյուսակից

2. Դրանից հետո բացվում է երկխոսություն, ընտրեք այն շրջանակը, որը ցանկանում եք հեռացնել աղյուսակները «Հայացք բաժնում» բաժնում, ապա ստուգեք Թիավարում տարբերակ և Դատարկ շարք տարբերակ, կամ ստուգեք Սյունակ տարբերակ և Դատարկ շարք տարբերակ, որքան անհրաժեշտ է: Եթե ​​ցանկանում եք ջնջել բոլոր դատարկ տողերն ու սյունակները, հարկավոր է երկու անգամ կիրառել այս գործողությունը:

doc kutools- ը հեռացնում է դատարկ տողերը 2  doc kutools- ը հեռացնում է դատարկ տողերը 3 

Այժմ բացվում է երկխոսություն ՝ հիշեցնելու համար, թե քանի սեղան է վաճառվել, կտտացրեք OK փակելու համար, և դատարկ շարքերը և սյունները հանվել են սեղաններից:
doc kutools- ը հեռացնում է դատարկ տողերը 4

ՀուշումԵթե ​​ցանկանում եք Excel թերթից հանել դատարկ շարքերը, ապա Deleteնջել դատարկ շարքերը Excel- ի համար Kutools- ի օգտակարությունը կարող է օգնել ձեզ:


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools for Word - Ավելի քան 100 առաջադեմ գործառույթներ Word- ի համար, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    shimon · 11 months ago
    I found this macro and it works great when it comes to a table with single empty rows.
    Is it possible to change it to work on a table with split rows as well?
    I would very much thank you if you have a solution for me.
    • To post as a guest, your comment is unpublished.
      Sunny · 11 months ago
      Hi, shimon, I don't not understand your question, please give me examples or describe the question with more details.
  • To post as a guest, your comment is unpublished.
    JK · 2 years ago
    You just saved me a zillion hours of frustration, THANK YOU!
  • To post as a guest, your comment is unpublished.
    helping · 3 years ago
    u know you can just resize the table right? just filter and sort your data to top check how many rows have data, click table tools and the click resize and adjust the last number to whatever you need OR go to the bottom of the table the very last cell and use the tine blue triangle to drag and resize,
    • To post as a guest, your comment is unpublished.
      Carol · 3 years ago
      Except I have multiple page document with a table with varying information in each. Furthermore, it is a merge document so different each week. I need an automated method :)
  • To post as a guest, your comment is unpublished.
    F · 3 years ago
    Hi, the macro is working, BUT:

    After deleting all rows, all the columns of the tables with empty rows open up very wide.

    How can i fix the code so that this does not happens?


    I am using Office 2016.


    Thank you!
  • To post as a guest, your comment is unpublished.
    GB · 5 years ago
    Hi All,

    I am looking for function in word wherein, if I remove specific word then it should remove that row as well.
  • To post as a guest, your comment is unpublished.
    Natasja · 5 years ago
    Thanks for the code, really useful.
  • To post as a guest, your comment is unpublished.
    jj511 · 6 years ago
    Is there a macro that will delete a row if only one of the cells in that row is empty or contains a zero?
  • To post as a guest, your comment is unpublished.
    heisenberg · 6 years ago
    thanks for the macro, it was really helpful..
  • To post as a guest, your comment is unpublished.
    Ken Grace · 7 years ago
    Thanks for the macro. It worked like a charm!
  • To post as a guest, your comment is unpublished.
    Andy Harris · 8 years ago
    Hello developers - I have this macro which sits in a button and when clicked (the macro) removes the table directly above the button. Can this be fixed so that the macro only works once? Ie. if there are 2 tables in the document only 1 is deleted - then the macro ceases to work... can you advise?

    Sub tableDelete()
    '
    ' tableDelete Macro
    'Dim nTables As Integer
    nTables = ActiveDocument.Tables.Count
    ActiveDocument.Tables(nTables).Delete

    '

    End Sub
    • To post as a guest, your comment is unpublished.
      Jay Chivo · 8 years ago
      [quote name="Andy Harris"]Hello developers - I have this macro which sits in a button and when clicked (the macro) removes the table directly above the button. Can this be fixed so that the macro only works once? Ie. if there are 2 tables in the document only 1 is deleted - then the macro ceases to work... can you advise?

      Sub tableDelete()

      Dim nTables As Integer
      nTables = ActiveDocument.Tables.Count
      ActiveDocument.Tables(nTables).Delete

      End Sub[/quote]

      Please try to use this VBA to delete all tables from current document in Word.

      [i]Sub tableDelete()

      Dim aTable As Table

      For Each aTable In ActiveDocument.Tables
      aTable.Delete
      Next

      End Sub[/i]