Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս պատճենել տողերը բազմաթիվ աշխատանքային թերթերից ՝ հիմնված չափանիշների վրա, նոր թերթի մեջ:

Ենթադրելով, դուք ունեք աշխատանքային գրքույկ երեք աշխատանքային թերթերով, որոնք ունեն նույն ձևաչափումը, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը Այժմ ուզում եք պատճենել այս աշխատանքային թերթերից բոլոր տողերը, որոնք C սյունակում պարունակում են «Ավարտված» տեքստը նոր աշխատանքային թերթ: Ինչպե՞ս կարող եք արագ և հեշտությամբ լուծել այս խնդիրը ՝ առանց դրանց մեկ առ մեկ պատճենելու և տեղադրելու:

Չափանիշների հիման վրա բազում աշխատանքային թերթերից շարքերը պատճենեք VBA կոդով նոր թերթի մեջ


Չափանիշների հիման վրա բազում աշխատանքային թերթերից շարքերը պատճենեք VBA կոդով նոր թերթի մեջ

Հաջորդ VBA կոդը կարող է օգնել ձեզ որոշակի տողերի հիման վրա որոշակի տողերի մեջ արտագրել հատուկ տողեր աշխատանքային գրքի բոլոր թերթերից: Խնդրում եմ, արեք այսպես.

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

2: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

VBA կոդ. Չափանիշների հիման վրա բազմաթիվ թերթերից շարքերը պատճենեք նոր թերթի մեջ

Public Sub CopyRows_ValuesAndNumberFormats()
Dim xWs As Worksheet
Dim xCWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Kutools for Excel"
xRStr = "Completed"
Set xCWs = ActiveWorkbook.Worksheets.Item(xStr)
If Not xCWs Is Nothing Then
    xCWs.Delete
End If
Set xCWs = ActiveWorkbook.Worksheets.Add
xCWs.Name = xStr
xC = 1
For Each xWs In ActiveWorkbook.Worksheets
    If xWs.Name <> xStr Then
        Set xRg = xWs.Range("C:C")
        Set xRg = Intersect(xRg, xWs.UsedRange)
        For Each xRRg In xRg
            If xRRg.Value = xRStr Then
               xRRg.EntireRow.Copy
               xCWs.Cells(xC, 1).PasteSpecial xlPasteValuesAndNumberFormats
               xC = xC + 1
            End If
        Next xRRg
    End If
Next xWs
Application.DisplayAlerts = True
End Sub

ՆշումՎերոհիշյալ ծածկագրում.

  • Տեքստ "Ավարտված" սրանում xRStr = "Ավարտված է" սցենարը ցույց է տալիս այն հատուկ պայմանը, որի հիման վրա ցանկանում եք պատճենել տողերը.
  • C: C այս Սահմանել xRg = xWs.Range ("C: C") սցենարը նշում է այն հատուկ սյունակը, որտեղ գտնվում է պայմանը:

3, Հետո, սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և հատուկ պայման ունեցող բոլոր տողերը պատճենվել և տեղադրվել են նոր աշխատանքային թերթ ՝ Kutools Excel- ի համար, ներկայիս աշխատանքային գրքում: Տեսեք,


Ավելի համեմատաբար քաշեք կամ պատճենեք տվյալների հոդվածները.

  • Տվյալները պատճենեք մեկ այլ աշխատանքային թերթում `Excel- ում առաջադեմ ֆիլտրով
  • Սովորաբար, մենք կարող ենք արագորեն կիրառել «Ընդլայնված զտիչ» հատկությունը `նույն աշխատանքային թերթում հումքային տվյալներից տվյալների արդյունահանման համար: Բայց երբեմն, երբ փորձում եք զտված արդյունքը պատճենել մեկ այլ աշխատանքային թերթի, կստանաք հետևյալ նախազգուշական հաղորդագրությունը: Այս դեպքում ինչպե՞ս կարող էիք գործ ունենալ Excel- ի այս խնդրի հետ:
  • Պատճենեք տողերը, եթե սյունը պարունակում է հատուկ տեքստ / արժեք Excel- ում
  • Ենթադրելով, որ ցանկանում եք սյունակում պարզել որոշակի տեքստ կամ արժեք պարունակող բջիջներ, այնուհետև պատճենել ամբողջ շարքը, որտեղ գտնված բջիջն է, ինչպե՞ս կարող եք գործ ունենալ դրա հետ: Այստեղ ես կներկայացնեմ մի քանի մեթոդներ `պարզելու, թե արդյոք սյունակը պարունակում է որոշակի տեքստ կամ արժեք, և այնուհետև պատճենիր ամբողջ շարքը Excel- ում:

  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները և տվյալների պահում; Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերն ու գումարը / միջինը... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Սիրված և արագ ներդիր բանաձևեր, Ընդգրկույթներ, գծապատկերներ և նկարներ; Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Առանցք սեղանի խմբավորում ըստ շաբաթվա համարը, շաբաթվա օրը և ավելին ... Showույց տալ ապակողպված, կողպված բջիջները տարբեր գույներով; Նշեք այն բջիջները, որոնք ունեն բանաձև / անուն...
kte էջանիշը 201905
  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

thank you very much for the code. I have a question: the code runs smoothly on some of my sheets, but looks like enters an infinite loop in some other ones which makes excel crash. What could the reason be?
This comment was minimized by the moderator on the site
Hello there, thank you so much for the code above, it solved me a problem with a complex file; a solution I have been looking for a while now. Thank you..I have one question. How do I change the code so that it copies the rows but only from colum A to colum Q, so not Entire.Row?Thank you in advance and great work!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations