Ինչպե՞ս ջնջել Excel- ում բջջի բոլոր դատարկ տողերը կամ միայն առաջին տողը:

Դուք կարող եք ստանալ աշխատանքային գրքույկ, որում կան բազմաթիվ տողեր, որոնք խառնվում են բջիջների դատարկ կետերի հետ: Ինչպե՞ս ջնջել այս դատարկ տողերը բջիջներում: Իսկ ինչ վերաբերում է միայն առաջին տողը ջնջելուն: Այս հոդվածը կօգնի ձեզ քայլ առ քայլ զբաղվել դրանով:

BAնջեք բոլոր դատարկ տողերը VBA կոդով բջիջներում
VBA կոդով բջիջներում ջնջեք միայն առաջին տողը

BAնջեք բոլոր դատարկ տողերը VBA կոդով բջիջներում

Amazարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel- ում, ինչպիսիք են Chrome- ը, Firefox- ը և Safari- ն:

Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

---

Ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում, բջիջների բոլոր դատարկ տողերը ջնջելու համար կարող եք գործարկել հետևյալ VBA կոդը՝ այն կատարելու համար:

1. Սեղմեք ալտ + F11 ստեղնաշարի ստեղնաշարի վրա, այնուհետև այն բացվում է ա Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Մոդուլներ պատուհան.

VBA կոդ. Deleteնջել բոլոր դատարկ տողերը բջիջներում

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
   xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
  Next
Next
End Sub

3. Սեղմեք F5 կոդը գործարկելու բանալին: Այնուհետև ընտրեք այն բջիջները, որոնցում կջնջեք դատարկ տողերը Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ: Եվ վերջապես կտտացրեք այն OK կոճակը:

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

VBA կոդով բջիջներում ջնջեք միայն առաջին տողը

Ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում, A2 և A3 բջիջների առաջին տողը ջնջելու համար կարող է օգնել հետևյալ VBA կոդը:

1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Մոդուլներ պատուհան.

VBA կոդ. Բջիջներում ջնջել միայն առաջին տողը

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
    Dim xCell As Range
    For Each xCell In Target.Cells
        xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
    Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub

3. Սեղմեք F5 ծածկագիրը գործելու համար: Պատուհանման մեջ Excel- ի համար նախատեսված գործիքներ երկխոսության վանդակում, խնդրում ենք ընտրել այն բջիջները, որոնք անհրաժեշտ են ջնջելու համար միայն առաջին տողը, այնուհետև սեղմեք կոճակը OK կոճակը:

Դրանից հետո դուք կարող եք տեսնել, որ բոլոր առաջին տողերը ջնջված են նշված բջիջներից, ինչպես ցույց է տրված նկարում:

Առնչվող հոդված:

• Ինչպե՞ս Excel- ում խցանվել միայն առաջին տողը կամ առաջին բառը:

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...