Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս հեռացնել դատարկ տողերն ու սյունները աղյուսակներից 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 բառի համար, ավելի քան 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 Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (15)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ծրագրավորողներ. Ես ունեմ այս մակրոն, որը տեղադրված է կոճակի մեջ և սեղմելիս (մակրո) հեռացնում է աղյուսակը անմիջապես կոճակի վերևում: Կարո՞ղ է դա շտկվել, որպեսզի մակրոն աշխատի միայն մեկ անգամ: Այսինքն. եթե փաստաթղթում կա 2 աղյուսակ, միայն 1-ն է ջնջվում, ուրեմն մակրոն դադարում է աշխատել... խորհուրդ կտա՞ք: Sub tableDelete() ' ' tableDelete Macro 'Dim nTables As Integer nTables = ActiveDocument.Tables.Count ActiveDocument.Tables(nTables).Delete' End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Բարև ծրագրավորողներ. Ես ունեմ այս մակրո, որը տեղադրված է կոճակի մեջ և սեղմելիս (մակրոն) հեռացնում է աղյուսակը անմիջապես կոճակի վերևում: Կարո՞ղ է դա շտկվել, որպեսզի մակրոն աշխատի միայն մեկ անգամ: Այսինքն. եթե փաստաթղթում կա 2 աղյուսակ, միայն 1-ն է ջնջվում, ուրեմն մակրոն դադարում է աշխատել... խորհուրդ կտա՞ք: Sub tableDelete() Dim nTables As Integer nTables = ActiveDocument.Tables.Count ActiveDocument.Tables(nTables).Delete End SubԷնդի Հարիսի կողմից[/quote] Խնդրում ենք փորձել օգտագործել այս VBA-ը՝ Word-ի ընթացիկ փաստաթղթից բոլոր աղյուսակները ջնջելու համար: Sub tableDelete() Dim aTable As Table for Every aTable In ActiveDocument.Tables aTable.Delete Next End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն մակրոյի համար: Այն աշխատում էր հմայքի պես:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն մակրոյի համար, այն իսկապես օգտակար էր...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ մակրո, որը կջնջի տողը, եթե այդ տողի բջիջներից միայն մեկը դատարկ է կամ զրո է պարունակում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն կոդի համար, իսկապես օգտակար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն բոլորին, ես բառում փնտրում եմ ֆունկցիա, որտեղ, եթե ես հեռացնեմ կոնկրետ բառ, այն պետք է հեռացնի նաև այդ տողը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, մակրոն աշխատում է, ԲԱՅՑ.

Բոլոր տողերը ջնջելուց հետո դատարկ տողերով աղյուսակների բոլոր սյունակները շատ լայն են բացվում:

Ինչպե՞ս կարող եմ շտկել կոդը, որպեսզի դա տեղի չունենա:


Ես օգտագործում եմ Office 2016:


Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գիտե՞ք, որ կարող եք պարզապես չափափոխել աղյուսակը: պարզապես զտեք և դասակարգեք ձեր տվյալները՝ վերևում ստուգելու համար, թե քանի տող ունի տվյալներ, սեղմեք աղյուսակի գործիքները և սեղմեք չափափոխելու վրա և վերջին համարը հարմարեցրեք այն ամենին, ինչ ձեզ հարկավոր է, ԿԱՄ գնացեք աղյուսակի ներքևում՝ ամենավերջին բջիջը և օգտագործեք կապույտ եռանկյունին: քաշել և չափափոխել,
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բացառությամբ ես ունեմ մի քանի էջ փաստաթուղթ՝ յուրաքանչյուրում տարբեր տեղեկություններ ունեցող աղյուսակով: Ավելին, դա միաձուլման փաստաթուղթ է, որն այնքան տարբեր է ամեն շաբաթ: Ինձ պետք է ավտոմատացված մեթոդ :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք պարզապես փրկեցիք ինձ հազարավոր ժամ հիասթափությունից, ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես գտա այս մակրոն, և այն հիանալի է աշխատում, երբ խոսքը վերաբերում է մեկ դատարկ տողերով աղյուսակին:
Հնարավո՞ր է այն փոխել այնպես, որ աշխատի նաև բաժանված տողերով սեղանի վրա:
Ես շատ շնորհակալ կլինեմ, եթե դուք լուծում ունեք ինձ համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, շիմոն, ես չեմ հասկանում ձեր հարցը, խնդրում եմ ինձ օրինակներ բերեք կամ ավելի մանրամասն նկարագրեք հարցը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

Quand j'execute 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?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, շնորհակալություն CODE-ի համար, այն աշխատում էր միայն մեկ աղյուսակով փաստաթղթի վրա:

բայց երբ այն գործարկել եմ տարբեր չափսերի տարբեր աղյուսակներով word փաստաթղթի վրա, ես ստացել եմ այս սխալը. «Գործարկման ժամանակի սխալ '5992' Հնարավոր չէ մուտք գործել այս հավաքածուի առանձին սյունակներ, քանի որ աղյուսակն ունի խառը բջիջների լայնություններ»:

Ինչ-որ մեկը կարող է օգնել, խնդրում եմ
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր