Excel. Ինչպես բաժանել սահմանազատված տեքստը տողերի
Ենթադրենք, այստեղ կա երեք սյունակներով աղյուսակ աշխատանքային թերթիկում, առաջինում նշված են գների մակարդակները, երկրորդում նշված են մրգերի անունները՝ ստորակետներով բջիջներով, իսկ երրորդ սյունակում՝ մրգերի գները: Աշխատանքն այն է, որ սահմանազատված մրգերի անունները բաժանվեն տողերի և կրկնել համապատասխան գների մակարդակները և գների տողերը, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը.
Ներկայացնում ենք այս աշխատանքը լուծելու երկու մեթոդ:
Սահմանազատված տեքստը բաժանեք տողերի՝ օգտագործելով VBA
Սահմանազատված տեքստը բաժանեք տողերի՝ օգտագործելով Power Query
Ահա VBA կոդ, որը կարող է արագորեն բաժանել սահմանազատված տեքստը տողերի:
1. Մամուլ ալտ + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել էջանիշ>> Մոդուլներ ստեղծել նոր դատարկ մոդուլ:
3. Պատճենեք և տեղադրեք ներքևի կոդը դատարկ մոդուլում:
VBA. բաժանել սահմանազատված տեքստը տողերի
Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
Dim xSRg, xIptRg, xCrRg, xRg As Range
Dim xSplitChar As String
Dim xArr As Variant
Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
Dim xWSh As Worksheet
Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
If xSRg Is Nothing Then Exit Sub
xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
If xSplitChar = "" Then Exit Sub
Application.ScreenUpdating = False
xRow = xSRg.Row
xColumn = xSRg.Column
Set xWSh = xSRg.Worksheet
For xFNum = xSRg.Rows.Count To 1 Step -1
Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
Debug.Print xRg.Address
xArr = Split(xRg, xSplitChar)
For xFFNum = LBound(xArr) To UBound(xArr)
xRg.EntireRow.Copy
xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
Next
xRg.EntireRow.Delete
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
4. Մամուլ F5 ստեղնը՝ «վազել» կոճակը սեղմելու համար կոդը ակտիվացնելու համար երկխոսություն է բացվում, որպեսզի ընտրեք այն սյունակը, որը բացառում է վերնագիրը, որը պարունակում է սահմանազատված տեքստը, որն անհրաժեշտ է տողերի բաժանելու համար: Սեղմել OK.
5. Այնուհետև բացվում է երկրորդ երկխոսությունը՝ մուտքագրելու ձեր օգտագործած սահմանազատիչը: Այստեղ մուտքագրում է ստորակետ (,): Սեղմել OK.
Այժմ սահմանազատված տեքստերը բաժանվել են տողերի և կրկնվել են հարակից այլ սյունակներ:
VBA-ն կփոխի բնօրինակ տվյալները, ավելի լավ է պահպանել դրանց պատճենը նախկինում:
Եթե դուք Excel 2013 կամ ավելի նոր տարբերակներում եք, ապա Power Query լավ ընտրություն կլինի այս գործը լուծելու համար:
1. Ընտրեք տվյալների տիրույթը, սեղմելու համար Ամսաթիվ > Սեղանից / միջակայքից.
2. Բռնում Ստեղծեք աղյուսակը երկխոսություն, ստուգում Իմ սեղանը վերնագրեր ունի ինչպես ձեզ հարկավոր է, և սեղմեք OK.
Այնուհետեւ Power Query Խմբագիր պատուհանը ցուցադրվում է, և տվյալները ցուցադրվում են դրանում:
3. Սեղմեք այն սյունակի վրա, որը ցանկանում եք բաժանել սահմանազատված տեքստերը տողերի, և սեղմեք Փոխակերպել էջանիշ>> Պառակտված սյունակ > Սահմանազատողի կողմից.
Կամ կարող եք նաև ընտրել սյունակը և աջ սեղմել սյունակի վերնագրի վրա՝ համատեքստի ընտրացանկում այս հատկությունը ընտրելու համար:
4. Մեջ Split Column by Delimiter պատուհանից ընտրեք այն սահմանազատիչը, որը Ձեզ անհրաժեշտ է Ընտրեք կամ մուտքագրեք սահմանազատող բաժինը, ապա ընտրեք Սահմանազատողի յուրաքանչյուր երևույթ տարբերակ, այնուհետև ընդլայնել Ընդլայնված ընտրանքներ բաժին ընտրել Rows տարբերակ: Սեղմեք OK.
Այժմ սահմանազատված տեքստերը բաժանվել են տողերի։
5. Այնուհետև փակեք պատուհանը, դուրս է գալիս երկխոսություն, սեղմեք պահել կոճակը:
Այնուհետև աղյուսակի հետ կստեղծվի նոր թերթ:
Ինչպե՞ս փոխարինել տողի գույնը Excel- ում հիմնված խմբի վրա:
Excel- ում յուրաքանչյուր մյուս շարքը գունավորելը գուցե ավելի հեշտ է մեզանից շատերի համար, բայց երբևէ փորձե՞լ եք շարքերը գունափոխել ՝ հիմնվելով սյունակի արժեքի փոփոխությունների վրա. Excel- ում խմբի վրա հիմնված շարքի գույնը փոխարինելու համար:
Ինչպե՞ս նվազեցնել Excel ֆայլի չափը:
Երբեմն րոպեներ կպահանջվի բացելու կամ պահելու համար, եթե Excel ֆայլը չափազանց մեծ է: Այս խնդիրը լուծելու համար այստեղ՝ այս ձեռնարկում, այն պատմում է ձեզ, թե ինչպես նվազեցնել Excel ֆայլի չափը՝ հեռացնելով ավելորդ կամ երբեք չօգտագործված բովանդակությունը կամ ձևաչափերը:
Excel. Ինչպես ստեղծել կամ տեղադրել էջանիշ
Երբևէ պատկերացնե՞լ եք էջանիշ ստեղծելու կամ տեղադրելու համար՝ արագ անցնելու որոշակի տվյալների տիրույթ, մինչդեռ աշխատաթերթում կամ աշխատանքային գրքում շատ տվյալներ կան:
Ինչպե՞ս կիրառել ստվերը Excel- ում կենտ կամ զույգ (այլընտրանքային) շարքերում / սյունակներում:
Աշխատաթերթը նախագծելիս շատ մարդիկ հակված են ստվեր տալ տարօրինակ կամ զույգ (այլընտրանքային) տողերի կամ սյունների վրա, որպեսզի թերթն ավելի տեսողական դառնա: Այս հոդվածը ձեզ ցույց կտա Excel- ի կենտ կամ նույնիսկ տողերի / սյունների վրա ստվերում կիրառելու երկու եղանակ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
- Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
- Միաձուլել բջիջները / տողերը / սյունակները և տվյալների պահում; Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերն ու գումարը / միջինը... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
- Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
- Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
- Սիրված և արագ ներդիր բանաձևեր, Ընդգրկույթներ, գծապատկերներ և նկարներ; Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
- Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
- Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
- Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
- Առանցք սեղանի խմբավորում ըստ շաբաթվա համարը, շաբաթվա օրը և ավելին ... Showույց տալ ապակողպված, կողպված բջիջները տարբեր գույներով; Նշեք այն բջիջները, որոնք ունեն բանաձև / անուն...
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: