Ինչպե՞ս ջնջել Excel- ում բջջի բոլոր դատարկ տողերը կամ միայն առաջին տողը:
Դուք կարող եք ստանալ աշխատանքային գրքույկ, որում կան բազմաթիվ տողեր, որոնք խառնվում են բջիջների դատարկ կետերի հետ: Ինչպե՞ս ջնջել այս դատարկ տողերը բջիջներում: Իսկ ինչ վերաբերում է միայն առաջին տողը ջնջելուն: Այս հոդվածը կօգնի ձեզ քայլ առ քայլ զբաղվել դրանով:
BAնջեք բոլոր դատարկ տողերը VBA կոդով բջիջներում
VBA կոդով բջիջներում ջնջեք միայն առաջին տողը
BAնջեք բոլոր դատարկ տողերը VBA կոդով բջիջներում
Ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում, բջիջների բոլոր դատարկ տողերը ջնջելու համար կարող եք գործարկել հետևյալ 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-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: