Ինչպե՞ս ավտոմատ կերպով միաձուլել դատարկ բջիջները վերևում / ձախում Excel- ում:
Այս հոդվածում ես խոսելու եմ վերևում կամ ինքնաբերաբար թողնված դատարկ բջիջները միաձուլելու մասին, ինչպես ցույց է տրված նկարի վրա: Իրականում, չկա ներկառուցված օգտակար ծրագիր, որը կարող է կարգավորել այս խնդիրը, բայց մակրո կոդերը կարող են:
| Միաձուլեք վերևում գտնվող բացերը | ||
 |
 |
 |
| Միաձուլեք մնացորդները | ||
 |
|
 |
Միաձուլեք վերևում գտնվող դատարկ բջիջները ՝ հիմնվելով սյունակի վրա
Միաձուլեք վերևում գտնվող դատարկ բջիջները (աշխատում է միայն մեկ սյունակի համար)
Միաձուլեք մնացած դատարկ բջիջները
Միաձուլեք վերևում գտնվող դատարկ բջիջները ՝ հիմնվելով սյունակի վրա
Ենթադրելով, որ կա մի շարք տվյալների երեք սյունակներում, և այժմ դուք ցանկանում եք միավորել վերը նշված տվյալները ՝ հիմնվելով C սյունակի վրա:
1. Մամուլ Alt + F11 կeys, որպեսզի Microsoft Visual Basic հավելվածների համար պատուհանը և սեղմեք Տեղադրել > Մոդուլներ, Տեսեք,
2. Դրանից հետո տեղադրեք կոդը ներքևում դատարկ սցենարի վրա: Տեսեք,
VBA. Միաձուլեք վերևի դատարկը `հիմնվելով հաջորդ սյունակի վրա
Sub MergeCells()
'UpdatebyExtendoffice2017025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then
Range(xCell, xCell.Offset(-1, 0)).Merge
End If
Next
End Sub
3. Մամուլ F5 Կոդը գործարկելու համար ստեղն է, այնուհետև դուրս է գալիս երկխոսություն ՝ հիշեցնելու համար, որ ընտրեք տիրույթ աշխատելու համար: Տեսեք,
4: սեղմեք OK, ապա դատարկ բջիջները միավորվել են վերևում: Տեսեք,
Միաձուլեք վերևում գտնվող դատարկ բջիջները (աշխատում է միայն մեկ սյունակի համար)
Ահա մակրո կոդ, որը կարող է միավորել նշված սյունակում վերը նշված դատարկ բջիջները:
1. Մամուլ Alt + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհանը և սեղմեք Տեղադրել > Մոդուլներ, Տեսեք,
2. Կպցրեք ներքևի կոդը սցենարին: Տեսեք,
VBA. Միաձուլեք վերևում գտնվող դատարկ բջիջները
Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
Dim I As Long
Dim xRow As Long
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only work for single column", , "KuTools For Excel"
Exit Sub
End If
xRow = xRg.Rows.Count
Set xRg = xRg(xRow)
For I = xRow To 1 Step -1
Set xCell = xRg.Offset(I - xRow, 0)
Debug.Print xCell.Address
If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
Next
End Sub
3. Մամուլ F5 Կոդը գործարկելու համար ստեղն է, և երկխոսություն է դուրս գալիս, որպեսզի ընտրեք սյունակի տիրույթը: Տեսեք,
4. Սեղմեք OK: Եվ ընտրության դատարկ բջիջները միավորվել են վերևում:
 |
|
 |
Միաձուլեք մնացած դատարկ բջիջները
Եթե ցանկանում եք միավորել մնացած դատարկ բջիջները, հետևյալ կոդը կարող է ձեզ լավություն դարձնել:
1. Մամուլ Alt + F11 ստեղները ՝ Microsoft Visual Basic- ը Applicրագրերի պատուհանի համար և կտտացրեք Տեղադրել > Մոդուլներ, Տեսեք,
2. Դրանից հետո տեղադրեք կոդը ներքևում դատարկ սցենարի վրա: Տեսեք,
VBA. Միաձուլեք մնացորդները
Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
Next
End Sub
3. Մամուլ F5 Կոդը գործարկելու համար ստեղն է, և երկխոսություն է դուրս գալիս, որպեսզի ընտրեք տիրույթ: Տեսեք,
4: սեղմեք OK, Դատարկ բջիջները միավորվել են ձախ կողմում:
| Միաձուլեք մնացորդները | ||
|
|
|
Միաձուլեք նույն բջիջները կամ հանեք բջիջը
|
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
