Ինչպե՞ս Excel- ում երկու սյունակ միավորել մեկի մեջ ՝ փոփոխական արժեքներով:
Ահա աշխատանքային թերթի երկու սյունակ, որն է գործը `այս երկու սյունակները միաձուլել մեկ սյունակում արժեքների այլընտրանքով, ինչպես ցույց է տրված նկարում Ինչպե՞ս կարող եք արագ կարգավորել աշխատանքը, առանց դրանք հերթով վերադասավորելու:
Միացրեք երկու սյունակ մեկի մեջ `VBA կոդով փոփոխական արժեքներով
Excel- ի համար Kutools- ի կողմից միաձուլեք երկու սյունակներ մեկի մեջ
Միացրեք երկու սյունակ մեկի մեջ `VBA կոդով փոփոխական արժեքներով
Երկու սյունակները մեկում այլընտրանքային արժեքներով միավորելու համար Excel- ում VBA կոդից բացի ներկառուցված գործառույթ չկա:
1. Մամուլ Alt + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան Սեղմել Տեղադրել > Մոդուլներ ստեղծել նոր դատարկ մոդուլ:
2. Պատճենեք և կպցրեք կոդը ներքևում գտնվող մոդուլին:
VBA. Միաձուլեք երկու սյունակ մեկի մեջ արժեքային այլընտրանքով
Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNum = 1 To xSRg.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Item(xFNum).Value
xI = xI + 1
Next xFNum
Application.ScreenUpdating = True
End Sub3. Մամուլ F5 ստեղնը և ընտրեք երկու սյունակ, որոնք ցանկանում եք միաձուլվել ելնող երկխոսությանը:
4: սեղմեք OK, երկրորդ երկխոսության մեջ ընտրեք բջիջ `արդյունքը տեղադրելու համար:
5: սեղմեք OK, Այժմ ընտրված երկու սյունակները միացվել են մեկի և այլընտրանքային արժեքների հետ:
Excel- ի համար Kutools- ի կողմից միաձուլեք երկու սյունակներ մեկի մեջ
Եթե դուք ունեք Excel- ի համար նախատեսված գործիքներ տեղադրված է Excel, իր Transform Range կոմունալը կարող է լուծել այս աշխատանքը միայն 3 հեշտ քայլերի միջոցով:
| Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝（Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)
1. Ընտրեք սյունակները (երկու կամ ավելի), որոնք ցանկանում եք միավորել, կտտացրեք Կուտոլս > Transform Range.
2. Մեջ Transform Range երկխոսություն, ստուգում Range to single column տարբերակը և սեղմեք Ok.
3. Ընտրեք բջիջ `արդյունքը popping երկխոսության մեջ տեղադրելու համար: Սեղմել OK.
Այժմ սյունակները միավորվել են մեկի մեջ և արժեքներն այլընտրանքային կարգով են:
Տեղափոխել շարքը
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
