Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս հեշտությամբ և արագ տեղափոխել Excel- ում տիրույթի և բուրգերի տվյալները:

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

Տեղափոխեք և կուտակեք տվյալները VBA- ի միջոցով

Տեղափոխեք և ստեք տվյալները Transpose Table Dimension- ով լավ գաղափար 3


Տեղափոխեք և կուտակեք տվյալները VBA- ի միջոցով

Դուք կարող եք կիրառել VBA կոդ ՝ տվյալները տեղափոխելու և կուտակելու համար:

1. Ընտրեք տվյալները, բացառությամբ սյունակի վերնագրերի, և սեղմեք Alt + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ, և ներքևում տեղադրեք կոդը ՝ Մոդուլներ.

VBA. Տեղափոխում և բուրգերի տվյալներ

Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub

փաստաթուղթ տեղափոխել և բուրգ 2

3. Մամուլ F5 բանալին, ապա տվյալները տեղափոխվել և դասավորված են: Տեսեք,
փաստաթուղթ տեղափոխել և բուրգ 3

Նշում: VBA կոդում A- ն նշում է, որ տեղափոխման տվյալները տեղադրվեն ակտիվ թերթի A սյունակում և փոխարինեն բնօրինակ տվյալները A սյունակում:


Տեղափոխեք և ստեք տվյալները Transpose Table Dimension- ով

Եթե ​​ցանկանում եք առանց VBA կոդի արագ և հեշտությամբ տեղափոխել ընդգրկույթի և բուրգերի տվյալներ, կարող եք դիմել Excel- ի համար նախատեսված գործիքներ'S Տեղափոխեք սեղանի չափը կոմունալ.

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև :(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)

1. Ընտրեք ձեր օգտագործած տվյալները, կտտացրեք Կուտոլս > Շարք > Տեղափոխեք սեղանի չափերը, Տեսեք,
փաստաթուղթ տեղափոխել և բուրգ 4

2. Պատուհանում ստուգեք Խաչ ցուցակ ցուցակագրելու համար տարբերակը և ընտրեք այն բջիջը, որի մեջ ցանկանում եք տեղադրել տեղափոխված տվյալները Արդյունքների միջակայք (մեկ բջիջ) տեքստային տուփ: Տեսեք,
փաստաթուղթ տեղափոխել և բուրգ 5

3: սեղմեք Ok, Այժմ տեսականին տեղափոխվել է և շարվել սյունակների մեջ:
փաստաթուղթ տեղափոխել և բուրգ 6



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

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations