Ինչպե՞ս Excel- ում միանգամից թաքցնել բազմաթիվ դատարկ տողեր կամ սյուններ Excel- ում:
Դատարկ տողերը կամ սյունները թաքցնելու կամ հանելու համար դա կօգնի ձեզ խտացնել աշխատանքային թերթը, այս հոդվածում ես ձեզ կներկայացնեմ Excel- ի աշխատանքային թերթում դատարկ տողերը կամ սյունները թաքցնելու կամ հեռացնելու մի քանի արագ եղանակներ:
Արագ թաքցրեք բազմաթիվ դատարկ շարքեր կամ սյուններ VBA կոդով
Excel- ի համար Kutools- ով արագ ջնջեք բազմաթիվ դատարկ տողեր կամ սյուններ
Արագ թաքցրեք բազմաթիվ դատարկ շարքեր կամ սյուններ VBA կոդով
Հետևյալ VBA կոդը կարող է օգնել արագ և հեշտությամբ թաքցնել բազմաթիվ դատարկ տողեր կամ սյուններ աշխատանքային թերթում:
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Սեղմել Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Թաքցնել բազմաթիվ դատարկ տողեր աշխատանքային թերթում
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Row + xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
xRg.Rows(I).EntireRow.Hidden = True
End If
Next
End Sub
3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և ցուցադրվում է հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք թաքցնել դատարկ տողերը, տե՛ս նկարը.
4. Եվ այնուհետեւ կտտացրեք OK կոճակը, դատարկ տողերը միանգամից թաքնված են, տես նկարի նկարը.
ՆշումԲազմաթիվ դատարկ սյուններ թաքցնելու համար խնդրում ենք կիրառել հետևյալ VBA կոդը.
VBA կոդ. Թաքցնել բազմաթիվ դատարկ սյուններ աշխատանքային թերթում
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Column + xRg.Columns.Count
If Application.WorksheetFunction.CountA(xRg.Columns(I)) = 0 Then
xRg.Columns(I).EntireColumn.Hidden = True
End If
Next
End Sub
Excel- ի համար Kutools- ով արագ ջնջեք բազմաթիվ դատարկ տողեր կամ սյուններ
Այս բաժնում ես կխոսեմ այն մասին, թե ինչպես ջնջել բազմաթիվ դատարկ տողեր կամ սյուններ, որոնք դուք չեք ցանկացել ընդգրկույթում, աշխատանքային թերթում կամ աշխատանքային գրքում: Ի Excel- ի համար նախատեսված գործիքներ'S Deleteնջել թաքնված (տեսանելի) շարքերը և սյունակները օգտակար ծրագիրը կարող է օգնել ձեզ հնարավորինս արագ լուծել այս խնդիրը:
Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.
1, Ընտրեք տվյալների տիրույթը, որը ցանկանում եք ջնջել դատարկ շարքերը կամ սյունակները, ապա կտտացրեք Կուտոլս > ջնջել > Deleteնջել թաքնված (տեսանելի) շարքերը և սյունակները, տես նկարի նկարը.
2, Մեջ Deleteնջել թաքնված (տեսանելի) շարքերը և սյունակները երկխոսության տուփ, ընտրեք Ընտրված տիրույթում in Տես բացվող ցուցակ (այս բացվող ցուցակում կարող եք նաև ընտրել այլ տարբերակ ՝ ըստ անհրաժեշտության), ընտրեք Rows or Սյունակ - ից Deleteնջել տեսակը բաժինը և ընտրել Դատարկ շարքեր or Դատարկ սյուններ տակ Մանրամասն տեսակը բաժին, տես նկարի նկարը.
3. Եվ այնուհետեւ կտտացրեք Ok կոճակը, ընտրության դատարկ տողերը կամ սյունները միանգամից հանվել են: Տեսեք,
ՆշումԱյս հատկության միջոցով դուք կարող եք նաև ջնջել թաքնված տողերը կամ սյունակները, ընտրության տեսանելի տողերը կամ սյունները, աշխատանքային թերթը կամ աշխատանքային գրքույկը, որքան ձեզ հարկավոր է:
Կտտացրեք անվճար ներբեռնման համար Excel- ի համար հիմա
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: