Ինչպե՞ս ամբողջ շարքը տեղափոխել մեկ այլ թերթ `հիմնված բջջային արժեքի վրա 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- ի համար նախատեսված գործիքներ, Այս օգտակար ծառայության միջոցով դուք կարող եք հեշտությամբ ընտրել բոլոր տողերը `հիմնված որոշակի բջջային արժեքի կամ բջջի տարբեր արժեքների վրա` աշխատանքային թերթում, և ընտրված տողերը պատճենեք նպատակակետի աշխատաթերթին, որքան ձեզ հարկավոր է: Խնդրում եմ, արեք հետևյալ կերպ.

1. Ընտրեք սյունակների ցուցակը պարունակում է այն բջիջի արժեքը, որի հիման վրա դուք կտեղափոխեք տողեր, ապա կտտացրեք Կուտոլս > ընտրել > Ընտրեք հատուկ բջիջներ, Տեսեք,

2. Բացման մեջ Ընտրեք հատուկ բջիջներ երկխոսության վանդակում, ընտրեք Ամբողջ շարքը է Ընտրության տեսակը բաժին ընտրեք հավասար է Հատուկ տեսակ բացվող ցուցակը, տեքստի վանդակում մուտքագրեք վանդակի արժեքը և այնուհետև կտտացրեք այն OK կոճակը:

Ուրիշ Ընտրեք հատուկ բջիջներ երկխոսության պատուհանը բացվում է ՝ ցույց տալու համար ընտրված շարքերի քանակը, և մինչ այդ, բոլոր տողերը պարունակում են նշված արժեքը ընտրված սյունակում, ընտրված են: Տեսեք,

3. Սեղմեք Ctrl + C ստեղները ընտրված տողերը պատճենելու և դրանք տեղադրելու համար անհրաժեշտ նպատակակետի աշխատաթերթում:

ՆշումԵթե ​​ցանկանում եք տողերը տեղափոխել մեկ այլ աշխատանքային թերթ `հիմնված բջջի երկու տարբեր արժեքների վրա: Օրինակ, տողերը տեղափոխել `հիմնվելով բջջային արժեքների վրա` կամ «Կատարված» կամ «Մշակում», կարող եք միացնել այն Or վիճակը Ընտրեք հատուկ բջիջներ երկխոսության տուփ, ինչպես ցույց է տրված ստորև նշված նկարը.

Առնչվող հոդվածներ:

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

---

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

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

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

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...