Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս սյունակները տեղափոխել տողերի և տեղադրել նոր տողեր Excel- ում տվյալները լրացնելու համար:

Այս հոդվածում ես ներկայացնում եմ VBA կոդ ՝ սյունակները շարքեր տեղափոխելու և նոր տողեր տեղադրելու համար ՝ տվյալները լրացնելու համար, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը, եթե ձեզ հետաքրքրում է այս գործողությունը, ավելի մանրամասն ՝
փաստաթուղթ տեղափոխել տողեր 1

Տեղափոխեք և շարքերը տեղադրեք VBA- ի հետ


նետ կապույտ աջ պղպջակ Տեղափոխեք և շարքերը տեղադրեք VBA- ի հետ

Մի միջակայք տեղափոխելու և տողեր տեղադրելու ուղղակի տարբերակ չկա նույն տվյալները լրացնելու համար, բայց այստեղ ես կարող եմ ներկայացնել VBA կոդ ՝ այս խնդիրը արագ լուծելու համար:

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

2: սեղմեք Տեղադրել > Մոդուլներ, և ներքևում տեղադրեք VBA կոդի Մոդուլի պատուհանում: Տեսեք,

VBA. Տեղափոխեք և տեղադրեք տողեր:

 Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
    Dim xRg As Range
    Dim i As Long, j As Long, k As Long
    Dim x As Long, y As Long
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    Application.ScreenUpdating = False
    x = xRg(1, 1).Column + 2
    y = xRg(1, xRg.Columns.Count).Column
    For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
        If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
            k = Cells(i, x - 2).End(xlToRight).Column
            If k > y Then k = y
            For j = k To x + 1 Step -1
                Cells(i + 1, 1).EntireRow.Insert
                With Cells(i + 1, x - 2)
                    .Value = .Offset(-1, 0)
                    .Offset(0, 1) = .Offset(-1, 1)
                    .Offset(0, 2) = Cells(i, j)
                End With
                Cells(i, j).ClearContents
            Next j
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

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

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

4: սեղմեք OK, Եվ ընտրված տիրույթը փոխարկվել է, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը:
փաստաթուղթ տեղափոխել տողեր 4

Նշում.........................

ՀուշումԵթե ​​ցանկանում եք արագորեն խաչաձեւ աղյուսակ տեղափոխել աղյուսակ ցուցակ կամ հակառակը, փորձեք օգտագործել Kutools- ի Excel- ի համար Տեղափոխեք սեղանի չափերը ինչպես ցույց է տրված հետևյալ նկարում Դա լիարժեք գործառույթ է ՝ առանց սահմանափակումների 30 օրեր, խնդրում ենք ներբեռնել և անվճար փորձաշրջան անցնել հիմա:

doc տեղափոխել խաչը ցուցակին

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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (8)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​իմ խաչաձև աղյուսակի տեղեկությունները գալիս են բանաձևերից, ապա այդ բանաձևերը միշտ չէ, որ հետևում են մակրոյի կիրառմանը: Ինչպե՞ս կարող եմ դա շտկել՝ համոզվելու համար, որ բանաձևերը պահվում են բջիջներում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, շնորհակալություն ձեր հաղորդագրության համար: Ձեր խնդիրը լուծելու համար դուք կարող եք կիրառել Kutools-ի փոխակերպման բանաձևը տեքստի նախքան մակրո գործարկելը, այնուհետև աղյուսակը փոխադրելուց հետո կիրառեք Kutools-ի Փոխարկել տեքստը բանաձևի: Խնդրում եմ տեղեկացրեք ինձ, եթե դա աշխատում է: Շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես կարող եմ փոխել VBA կոդը, որպեսզի այն մնա նույնը: օրինակ, առաջին երկու սյունակները նույնը մնալու փոխարեն կլինեն առաջին 4-ը?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վստահ չեմ, կարող եք փորձել փոխել x = xRg(1, 1): Սյունակ + 2 x = xRg (1, 1): Սյունակ + 4:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես կարող եմ այնպես անել, որ 3 և 4 տվյալները մնան նույն սյունակում.


նախնական վարժությունը հետևյալն է.

Դաս 1 | Անունը | Նենսի | Ջուդի | Շուշան | Դանիել
Դաս 2 | Անունը | Բրյուս | Uee | Պերտեր | Դանիել
Դաս 3 | Անունը | Քեյթ | Քելլի | Վենդի | Դանիել

Ես պետք է այն փոխադրեմ այսպես

Դաս 1 | Անունը | Նենսի | Ջուդի
Դաս 1 | Անունը | Շուշան | Դանիել
Դաս 2 | Անունը | Բրյուս | Uee
Դաս 2 | Անունը | Պերտեր | Դանիել
Դաս 3 | Անունը | Քեյթ | Քելլի
Դաս 3 | Անունը | Վենդի | Դանիել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես կարող եմ փոխանցել տվյալները յուրաքանչյուր երկու բջիջում

Նախնական վարժությունը հետևյալն է.


Դաս 1 | Անունը | Նենսի | Ջուդի | Շուշան | Դանիել
Դաս 2 | Անունը | Բրյուս | Uee | Պերտեր | Դանիել
Դաս 3 | Անունը | Քեյթ | Քելլի | Վենդի | Դանիել

և ինձ պետք է, որ այն այսպիսի տեսք ունենա.

Դաս 1 | Անունը | Նենսի | Ջուդի
Դաս 1 | Անունը | Շուշան | Դանիել
Դաս 2 | Անունը | Բրյուս | Uee
Դաս 2 | Անունը | Պերտեր | Դանիել
Դաս 3 | Անունը | Քեյթ | Քելլի
Դաս 3 | Անունը | Վենդի | Դանիել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վերոնշյալ կոդը հիանալի է աշխատում: Այն պահպանում է առաջին երկու սյունակները: Ինչպե՞ս կարող եմ փոխել կոդը, որպեսզի այն պահպանի միայն առաջին սյունակը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կազմողի սխալ Սինտաքսային սխալ
Dim xRg որպես տիրույթ
Dim i As Long, j As Long, k As Long
Dim x այնքան երկար, y այնքան երկար

Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից