Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս հեռացնել դատարկ տողերն ու սյունները աղյուսակներից 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-6 VBA կիրառելու կոճակը:

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 բառի համար, ավելի քան  հարմար գործառույթներ, հեշտացնում է ձեր գործերը: 

Տեղադրելուց հետո 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 բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն  /  Վերաշարադրել տեքստը  /  Ամփոփել փաստաթղթերը  /  Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք...

Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով  /  Չափափոխել բոլոր նկարները  /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել...

🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /  Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...

Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  / Բացահայտեք ավելին Տեղադրեք խումբը...

🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...

Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ...

???? Ցանկանու՞մ եք փորձել այս հնարավորությունները: Kutools-ը Word-ի համար առաջարկում է ա 60 օր անվճար դատավարություն, առանց սահմանափակումների! 🚀
 
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi
Many many thanks. Its 100% worked.
This comment was minimized by the moderator on the site
Hi, thanks for the CODE, it worked on a document with only one table.

but when launching it on a word document with different tables from different sizes, i got this error : "Run-time error '5992' Cannot access individual columns in this collection because the table has mixed cell widths"

Can anybody help, please
This comment was minimized by the moderator on the site
Bonjour,

Quand j'exécute le programme, l'erreur suivante s'affiche " Erreur de compilation : Instruction incorrecte à l'extérieur d'une procédure"

Quelqu'un a une solution s'il vous plait ?
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Hi, shimon, I don't not understand your question, please give me examples or describe the question with more details.
This comment was minimized by the moderator on the site
You just saved me a zillion hours of frustration, THANK YOU!
This comment was minimized by the moderator on the site
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,
This comment was minimized by the moderator on the site
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 :)
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
Hi All, I am looking for function in word wherein, if I remove specific word then it should remove that row as well.
This comment was minimized by the moderator on the site
Thanks for the code, really useful.
This comment was minimized by the moderator on the site
Is there a macro that will delete a row if only one of the cells in that row is empty or contains a zero?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations