Ինչպե՞ս տեղափոխել բջիջները մեկ սյունակում `հիմնվելով մեկ այլ սյունակի եզակի արժեքների վրա:

Ենթադրելով, որ դուք ունեք մի շարք տվյալներ, որոնք պարունակում են երկու սյունակ, այժմ դուք ցանկանում եք բջիջները տեղափոխել մեկ սյունակում հորիզոնական շարքեր `հիմնվելով մեկ այլ սյունակի եզակի արժեքների վրա` հետևյալ արդյունքը ստանալու համար: Ունեք լավ գաղափարներ Excel- ում այս խնդիրը լուծելու համար:

Տեղափոխեք բջիջները մեկ սյունակում ՝ հիմնվելով բանաձևերով եզակի արժեքների վրա

Տեղափոխեք բջիջները մեկ սյունակում ՝ հիմնվելով եզակի արժեքների վրա VBA կոդով

Excel- ի համար Kutools- ի հետ եզակի արժեքների հիման վրա բջիջները տեղափոխեք մեկ սյունակում

Տեղափոխեք բջիջները մեկ սյունակում ՝ հիմնվելով բանաձևերով եզակի արժեքների վրա

Հետևյալ զանգվածի բանաձևերով դուք կարող եք արդյունահանել եզակի արժեքները և դրանց համապատասխան տվյալները տեղափոխել հորիզոնական շարքեր, կատարեք հետևյալը.

1, Մուտքագրեք զանգվածի այս բանաձևը. = ԻՆԴԵՔՍ ($ A $ 2: $ A $ 16, ՀԱՇԻՎ (0, COUNTIF ($ D $ 1: $ D1, $ A $ 2: $ A $ 16 $), 0)) օրինակ, դատարկ բջիջի մեջ, օրինակ, D2 և սեղմել Shift + Ctrl + Enter ստեղները միասին ՝ ճիշտ արդյունք ստանալու համար, տես նկարի նկարը.

ՆշումՎերոհիշյալ բանաձևում A2: A16 այն սյունն է, որից ուզում եք ցուցադրել եզակի արժեքները, և D1 այս բանաձևի բջջի վերևում գտնվող բջիջն է:

2, Դրանից հետո քաշեք լրացման բռնակը դեպի բջիջները ՝ բոլոր եզակի արժեքները հանելու համար, տե՛ս նկարը.

3, Եվ ապա շարունակեք մուտքագրել այս բանաձեւը E2 բջիջ: =IFERROR(INDEX($B$2:$B$16, MATCH(0, COUNTIF($D2:D2,$B$2:$B$16)+IF($A$2:$A$16<>$D2, 1, 0), 0)), 0), և հիշեք, որ սեղմեք Shift + Ctrl + Enter արդյունք ստանալու համար ստեղները տե՛ս նկարը.

ՆշումՎերը նշված բանաձևում. B2: B16 սյունակի տվյալներն են, որոնք ցանկանում եք տեղափոխել, A2: A16 այն սյունն է, որի վրա ցանկանում եք տեղափոխել դրա վրա հիմնված արժեքները, և D2 պարունակում է եզակի արժեք, որը դուք արդյունահանել եք Քայլ 1-ում:

4. Դրանից հետո քաշեք լրացման բռնիչը աջից այն բջիջներից, որոնք ցանկանում եք ցուցադրել տեղափոխված տվյալները մինչև 0-ի ցուցադրումը, տես նկարի նկարը.

5, Եվ հետո շարունակեք լրացնել բռնիչը ներքև քաշել բջիջների տիրույթում `տեղափոխված տվյալները ստանալու համար, ինչպես ցույց է տրված հետևյալ նկարը.

Տեղափոխեք բջիջները մեկ սյունակում ՝ հիմնվելով եզակի արժեքների վրա VBA կոդով

Գուցե բանաձևերը բարդ լինեն ձեր ընկալման համար, այստեղ կարող եք գործարկել հետևյալ VBA կոդը ՝ ձեզ համար անհրաժեշտ ցանկալի արդյունք ստանալու համար:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Տեղափոխեք բջիջները մեկ սյունակում `հիմնվելով մեկ այլ սյունակի եզակի արժեքների վրա.

Sub transposeunique()
'updateby Extendoffice
    Dim xLRow As Long
    Dim i As Long
    Dim xCrit As String
    Dim xCol  As New Collection
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    Dim xCount As Long
    Dim xVRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range(only two columns):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count <> 2) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range is only one area with two columns ", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xLRow = xRg.Rows.Count
    For i = 2 To xLRow
        xCol.Add xRg.Cells(i, 1).Value, xRg.Cells(i, 1).Value
    Next
    Application.ScreenUpdating = False
    For i = 1 To xCol.Count
        xCrit = xCol.Item(i)
        xOutRg.Offset(i, 0) = xCrit
        xRg.AutoFilter Field:=1, Criteria1:=xCrit
        Set xVRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible)
        If xVRg.Count > xCount Then xCount = xVRg.Count
        xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible).Copy
        xOutRg.Offset(i, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        Application.CutCopyMode = False
    Next
    xOutRg = xRg.Cells(1, 1)
    xOutRg.Offset(0, 1).Resize(1, xCount) = xRg.Cells(1, 2)
    xRg.Rows(1).Copy
    xOutRg.Resize(1, xCount + 1).PasteSpecial Paste:=xlPasteFormats
    xRg.AutoFilter
    Application.ScreenUpdating = True
End Sub

3. Այնուհետեւ սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք օգտագործել: Տեսեք,

4. Եվ այնուհետեւ կտտացրեք OK կոճակը, դուրս կգա մեկ այլ արագ տուփ, որը կհիշեցնի ձեզ ընտրել բջիջ արդյունքը դնելու համար, տես նկարի նկարը.

6: Սեղմեք OK կոճակը, և B սյունակի տվյալները տեղափոխվել են A սյունակի եզակի արժեքների հիման վրա, տես նկարի նկարը.

Excel- ի համար Kutools- ի հետ եզակի արժեքների հիման վրա բջիջները տեղափոխեք մեկ սյունակում

Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներ, համատեղելով Ընդլայնված կոմբինատ տողեր և Պառակտված բջիջներ կոմունալ ծառայություններ, դուք կարող եք արագ ավարտել այս առաջադրանքը ՝ առանց որևէ բանաձևի կամ ծածկագրի:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1, Ընտրեք տվյալների տիրույթը, որը ցանկանում եք օգտագործել: (Եթե ցանկանում եք պահպանել բնօրինակ տվյալները, նախ պատճենեք և տեղադրեք տվյալները այլ վայրում):

2. Այնուհետեւ կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Ընդլայնված կոմբինատ տողեր, տես նկարի նկարը.

3, Մեջ Միավորել շարքերը ՝ հիմնվելով սյունակի վրա երկխոսության տուփ, խնդրում ենք կատարել հետևյալ գործողությունները.

(1.) Կտտացրեք սյունակի անունը, որի վրա ցանկանում եք տեղափոխել տվյալների հիման վրա, և ընտրել Առաջնային բանալին;

(2.) Կտտացրեք մեկ այլ սյունակի վրա, որը ցանկանում եք փոխադրել, և կտտացրեք Միավորել ապա ընտրեք մեկ տարանջատիչ ՝ համակցված տվյալներն առանձնացնելու համար, ինչպիսիք են տարածությունը, ստորակետը, ստորակետը:

4. Այնուհետեւ կտտացրեք Ok կոճակը, B սյունակի տվյալները միավորվել են մեկ սյունակում `հիմնվելով A սյունակի վրա, տես նկարի նկարը.

5, Եվ ապա ընտրեք համակցված բջիջները և կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Պառակտված բջիջներ, տես նկարի նկարը.

6, Մեջ Պառակտված բջիջներ երկխոսության տուփ, ընտրեք Բաժանել սյունակների տակ Տիպ տարբերակ, ապա ընտրեք տարանջատիչը, որն առանձնացնում է ձեր համակցված տվյալները, տես նկարի նկարը.

7. Այնուհետեւ կտտացրեք Ok կոճակը և ընտրեք բջիջ ՝ պառակտման արդյունքը դուրս հանված երկխոսության դաշտում տեղադրելու համար, տես նկարի նկարը.

8: Սեղմեք OK, և արդյունքը կստանաք ըստ անհրաժեշտության: Տեսեք,

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:

Դեմո. Տեղափոխեք բջիջները մեկ սյունակում, հիմնվելով եզակի արժեքների վրա, Kutools- ի համար Excel- ի համար

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...