Ինչպե՞ս սյունակները տեղափոխել տողերի և տեղադրել նոր տողեր Excel- ում տվյալները լրացնելու համար:
Այս հոդվածում ես ներկայացնում եմ VBA կոդ ՝ սյունակները շարքեր տեղափոխելու և նոր տողեր տեղադրելու համար ՝ տվյալները լրացնելու համար, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը, եթե ձեզ հետաքրքրում է այս գործողությունը, ավելի մանրամասն ՝
Տեղափոխեք և շարքերը տեղադրեք 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
3. Մամուլ F5 ծածկագիրը գործարկելու համար ստեղնը, ապա ընտրեք տվյալների տիրույթը, որը ցանկանում եք փոխադրել, և շարքերը տեղադրեք ելնող երկխոսության մեջ: Տեսեք,
4: սեղմեք OK, Եվ ընտրված տիրույթը փոխարկվել է, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: