Ինչպե՞ս Excel- ում բջջային արժեքի հիման վրա ամբողջ շարքը տեղափոխել ակտիվ թերթի ներքև:
Excel- ում բջջային արժեքի հիման վրա ամբողջ շարքը ակտիվ թերթի ներքևում տեղափոխելու համար խնդրում ենք փորձել այս հոդվածում տեղադրված VBA կոդը:
VBA կոդով բջջային արժեքի հիման վրա ամբողջ շարքը տեղափոխեք ակտիվ թերթի ներքև
VBA կոդով բջջային արժեքի հիման վրա ամբողջ շարքը տեղափոխեք ակտիվ թերթի ներքև
Օրինակ, ինչպես ցույց է տրված սքրինշոթից ներքևում, եթե C սյունակում գտնվող բջիջը պարունակում է որոշակի արժեք «Կատարված է», ապա ամբողջ շարքը տեղափոխեք ընթացիկ թերթիկի ներքև: Խնդրում եմ, արեք հետևյալ կերպ.
1. Մամուլ ալտ+ F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը պատուհանում:
VBA կոդ. Բջջային արժեքի հիման վրա ամբողջ շարքը տեղափոխել ակտիվ թերթի ներքև
Sub MoveToEnd()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xEndRow As Long
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
xEndRow = xRg.Rows.Count + xRg.Row
Application.ScreenUpdating = False
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) = "Done" Then
xRg.Cells(I).EntireRow.Cut
Rows(xEndRow).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
ՆշումVBA կոդում «Կատարված”Բջիջի արժեքն է, որի հիման վրա դուք կտեղափոխեք ամբողջ շարքը: Դուք կարող եք փոխել այն, ինչ ձեզ հարկավոր է:
3. Սեղմեք F5 ծածկագիրը գործելու ստեղնը, այնուհետև դուրս գալու պատուհանում Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ընտրեք սյունակի տիրույթը, որի մեջ կա որոշակի արժեք, ապա կտտացրեք այն OK կոճակը:
Հետո սեղմելով OK կոճակը, նշված սյունակում «Կատարված» արժեքը պարունակող ամբողջ շարքը ավտոմատ կերպով տեղափոխվում է տվյալների տիրույթի ներքև:
Առնչվող հոդվածներ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: