Sut i gopïo rhesi o daflenni gwaith lluosog yn seiliedig ar feini prawf i mewn i ddalen newydd?
Yn ôl pob tebyg, mae gennych lyfr gwaith gyda thair taflen waith sydd â'r un fformatio ag islaw'r screenshot a ddangosir. Nawr, rydych chi am gopïo'r holl resi o'r taflenni gwaith hyn y mae colofn C yn cynnwys y testun “Wedi'i Gwblhau” i mewn i daflen waith newydd. Sut allech chi ddatrys y broblem hon yn gyflym ac yn hawdd heb eu copïo a'u pastio fesul un â llaw?
Copïwch resi o daflenni gwaith lluosog yn seiliedig ar feini prawf i mewn i ddalen newydd gyda chod VBA
Gall y cod VBA canlynol eich helpu i gopïo rhesi penodol o'r holl daflenni gwaith yn y llyfr gwaith yn seiliedig ar gyflwr penodol i mewn i daflen waith newydd. Gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Copïwch resi o sawl dalen yn seiliedig ar feini prawf i mewn i ddalen newydd
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
Nodyn: Yn y cod uchod:
- Mae'r testun “Cwblhawyd" Yn hyn xRStr = "Wedi'i gwblhau" mae'r sgript yn nodi'r cyflwr penodol yr ydych am gopïo rhesi yn seiliedig arno;
- C: C. yn hyn o Gosod xRg = xWs.Range ("C: C") mae'r sgript yn nodi'r golofn benodol lle mae'r cyflwr yn lleoli.
3. Yna, pwyswch F5 allweddol i redeg y cod hwn, ac mae'r holl resi gyda'r cyflwr penodol wedi'u copïo a'u gludo i mewn i daflen waith newydd o'r enw Kutools ar gyfer Excel o fewn y llyfr gwaith cyfredol. Gweler y sgrinlun:
Erthyglau data tynnu neu gopïo mwy cymharol:
- Copïwch Ddata i Daflen Waith arall Gyda Hidlo Uwch Yn Excel
- Fel rheol, gallwn gymhwyso'r nodwedd Hidlo Uwch yn gyflym i dynnu data o'r data crai yn yr un daflen waith. Ond, weithiau, pan geisiwch gopïo'r canlyniad wedi'i hidlo i daflen waith arall, fe gewch y neges rybuddio ganlynol. Yn yr achos hwn, sut allech chi ddelio â'r dasg hon yn Excel?
- Copi Rhesi I Daflen Newydd Yn Seiliedig ar Feini Prawf Colofn Yn Excel
- Er enghraifft, mae yna fwrdd prynu ffrwythau, ac nawr mae angen i chi gopïo cofnodion i ddalen newydd yn seiliedig ar ffrwythau penodol, sut i wneud pethau'n hawdd yn Excel? Yma, byddaf yn cyflwyno cwpl o ddulliau i gopïo rhesi i ddalen newydd yn seiliedig ar feini prawf colofnau yn Excel.
- Copi Rhesi Os yw'r Golofn yn Cynnwys Testun / Gwerth Penodol yn Excel
- Gan dybio eich bod am ddarganfod celloedd sy'n cynnwys testun neu werth penodol mewn colofn, ac yna copïwch y rhes gyfan lle mae'r gell a ddarganfuwyd, sut allech chi ddelio â hi? Yma, byddaf yn cyflwyno cwpl o ddulliau i ddarganfod a yw'r golofn yn cynnwys testun neu werth penodol ac yna'n copïo'r rhes gyfan yn Excel.
Yr Offer Cynhyrchedd Swyddfa Gorau
Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, ac Yn Cynyddu Eich Cynhyrchiant 80%
- Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
- Uno Celloedd / Rhesi / Colofnau a Cadw Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi Dyblyg a Swm / Cyfartaledd... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
- Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
- Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
- Fformiwlâu Hoff a Mewnosod yn Gyflym, Meysydd, Siartiau a Lluniau; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
- Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
- Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
- Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
- Grwpio Tabl Pivot yn ôl rhif wythnos, diwrnod o'r wythnos a mwy ... Dangos Celloedd Datgloi, wedi'u Cloi yn ôl gwahanol liwiau; Amlygu Celloedd sydd â Fformiwla / Enw...
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!