Ինչպե՞ս պտտվել տողերի միջով մինչև Excel- ի սյունակում դատարկությունը:
Ահա մի տևողությամբ սյուն `տվյալներով, որը պարունակում է որոշ դատարկ բջիջներ, և դուք ցանկանում եք անցնել տողերի միջով մինչև հանդիպեք դատարկ բջիջին: Excel- ում չկա ներկառուցված առանձնահատկություն, որը կարող է կարգավորել այս աշխատանքը, բայց ես կարող եմ ներկայացնել մի քանի մակրո ՝ ձեզ լավություն անելու համար:
Տողերի միջով անցեք մինչև դատարկ VBA- ով
Տողերի միջով անցեք մինչև դատարկ VBA- ով
1. Մամուլ Alt + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ, և ներքևի կոդը տեղադրեք դատարկ գրությանը:
VBA. Օղակը մինչև դատարկություն
Sub Test1()
'UpdatebyExtendoffice20161222
Dim x As Integer
Application.ScreenUpdating = False
' Set numrows = number of rows of data.
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
' Select cell a1.
Range("A1").Select
' Establish "For" loop to loop "numrows" number of times.
For x = 1 To NumRows
' Insert your code here.
' Selects cell down 1 row from active cell.
ActiveCell.Offset(1, 0).Select
Next
Application.ScreenUpdating = True
End Sub
Կոդում, A1- ը առաջին բջիջն է, որից ուզում եք օղակել, կարող եք փոխել այն, ինչ ձեզ հարկավոր է:
3. Մամուլ F5 ստեղնը սյունակի պտտումը սկսելու համար, ապա կուրսորը կանգ կառնի առաջին հանդիպած դատարկ բջիջում:
ՆշումԵթե ուզում եք տվյալների միջով անցնել, մինչև հանդիպեք շարունակական դատարկ բջիջներին, կարող եք օգտագործել այս մակրո ծածկագիրը:
Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
' Select cell A2, *first line of data*.
Dim xrg As Range
On Error Resume Next
Set xrg = Application.InputBox _
(Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
xrg.Cells(1, 1).Select
' Set Do loop to stop when two consecutive empty cells are reached.
Application.ScreenUpdating = False
Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
' Insert your code here.
'
' Step down 2 rows from present location.
ActiveCell.Offset(2, 0).Select
Loop
Application.ScreenUpdating = False
End Sub
Ապա դուք պետք է ընտրեք առաջին բջիջը, որի միջից ուզում եք օղակել Excel- ի համար նախատեսված գործիքներ երկխոսություն, սեղմեք OK, ապա կուրսորը կանգ է առնում առաջին շարունակական դատարկ բջիջներում:
Հեշտությամբ միացրեք մի քանի թերթ / աշխատանքային գրքույկ մեկ եզակի թերթի կամ աշխատանքային գրքի մեջ
|
Բազմապատկերի թերթերը կամ աշխատանքային գրքերը մեկ թերթիկի կամ աշխատանքային գրքի մեջ միավորելը Excel- ում կարող է համառ լինել, բայց հետևյալով Միավորել գործառույթ Kutools- ում Excel- ի համար, դուք կարող եք միավորել տասնյակ թերթեր / աշխատանքային գրքեր մեկ թերթիկի կամ աշխատանքային գրքի մեջ, ինչպես նաև կարող եք միավորել թերթերը միայն մեկ կտտոցով: Կտտացրեք լիարժեք 30 օր անվճար փորձաշրջանի համար: |
Excel- ի համար նախատեսված գործիքներ. Ավելի քան 300 հարմար Excel հավելվածներով, 30 օրում առանց սահմանափակումների անվճար փորձեք: |
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: