Ինչպե՞ս ամբողջ շարքը տեղափոխել մեկ այլ թերթ `հիմնված բջջային արժեքի վրա Excel- ում:
Ամբողջ շարքը բջջային արժեքի հիման վրա մեկ այլ թերթ տեղափոխելու համար այս հոդվածը կօգնի ձեզ:
VBA կոդով բջջային արժեքի հիման վրա ամբողջ շարքը տեղափոխեք մեկ այլ թերթ
Excel- ի համար Kutools- ի հետ ամբողջ շարքը տեղափոխեք մեկ այլ թերթ `հիմնված բջջային արժեքի վրա
VBA կոդով բջջային արժեքի հիման վրա ամբողջ շարքը տեղափոխեք մեկ այլ թերթ
Ինչպես ցույց է տրված սքրինշոթից ներքևում, անհրաժեշտ է ամբողջ տողը Sheet1- ից Sheet2 տեղափոխել, եթե C սյունակում գոյություն ունի «Կատարված» որոշակի բառը: Կարող եք փորձել հետևյալ VBA կոդը:
1. Մամուլ ալտ+ F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Microsoft Visual Basic հավելվածների համար պատուհանում կտտացրեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը պատուհանում:
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
ՆշումԿոդում, Sheet1 աշխատանքային թերթը պարունակում է այն տողը, որը ցանկանում եք տեղափոխել: Եվ Sheet2 նպատակակետի աշխատանքային թերթն է, որտեղ դուք կգտնեք տողը: «C: C»Սյունակը պարունակում է որոշակի արժեք, իսկ«Կատարված”Այն որոշակի արժեքն է, որի հիման վրա դուք տողը կտեղափոխեք: Խնդրում ենք փոխել դրանք ՝ ելնելով ձեր կարիքներից:
3. Սեղմեք F5 Կոդը գործարկելու բանալին, ապա Sheet1- ի չափանիշներին համապատասխանող շարքը անմիջապես կտեղափոխվի Sheet2:
ՆշումՎերոհիշյալ VBA կոդը կջնջի տողերը բնօրինակ տվյալներից ՝ նշված աշխատանքային թերթ անցնելուց հետո: Եթե ցանկանում եք պատճենել տողերը ՝ հիմնվելով միայն բջջային արժեքի վրա, դրանք ջնջելու փոխարեն: Խնդրում ենք կիրառել ստորև նշված VBA կոդը 2:
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Excel- ի համար Kutools- ի հետ ամբողջ շարքը տեղափոխեք մեկ այլ թերթ `հիմնված բջջային արժեքի վրա
Եթե դուք նորեկ եք VBA կոդում: Այստեղ ես ներկայացնում եմ Ընտրեք հատուկ բջիջներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ, Այս օգտակար ծառայության միջոցով դուք կարող եք հեշտությամբ ընտրել բոլոր տողերը `հիմնված որոշակի բջջային արժեքի կամ բջջի տարբեր արժեքների վրա` աշխատանքային թերթում, և ընտրված տողերը պատճենեք նպատակակետի աշխատաթերթին, որքան ձեզ հարկավոր է: Խնդրում եմ, արեք հետևյալ կերպ.
Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.
1. Ընտրեք սյունակների ցուցակը պարունակում է այն բջիջի արժեքը, որի հիման վրա դուք կտեղափոխեք տողեր, ապա կտտացրեք Կուտոլս > ընտրել > Ընտրեք հատուկ բջիջներ, Տեսեք,
2. Բացման մեջ Ընտրեք հատուկ բջիջներ երկխոսության վանդակում, ընտրեք Ամբողջ շարքը է Ընտրության տեսակը բաժին ընտրեք հավասար է Հատուկ տեսակ բացվող ցուցակը, տեքստի վանդակում մուտքագրեք վանդակի արժեքը և այնուհետև կտտացրեք այն OK կոճակը:
Ուրիշ Ընտրեք հատուկ բջիջներ երկխոսության պատուհանը բացվում է ՝ ցույց տալու համար ընտրված շարքերի քանակը, և մինչ այդ, բոլոր տողերը պարունակում են նշված արժեքը ընտրված սյունակում, ընտրված են: Տեսեք,
3. Սեղմեք Ctrl + C ստեղները ընտրված տողերը պատճենելու և դրանք տեղադրելու համար անհրաժեշտ նպատակակետի աշխատաթերթում:
ՆշումԵթե ցանկանում եք տողերը տեղափոխել մեկ այլ աշխատանքային թերթ `հիմնված բջջի երկու տարբեր արժեքների վրա: Օրինակ, տողերը տեղափոխել `հիմնվելով բջջային արժեքների վրա` կամ «Կատարված» կամ «Մշակում», կարող եք միացնել այն Or վիճակը Ընտրեք հատուկ բջիջներ երկխոսության տուփ, ինչպես ցույց է տրված ստորև նշված նկարը.
Եթե ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:
Առնչվող հոդվածներ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: