Note: The other languages of the website are Google-translated. Back to English

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


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 allwedd i redeg y cod hwn, ac mae'r holl resi sydd â'r cyflwr penodol wedi'u copïo a'u pastio i mewn i daflen waith newydd o'r enw Kutools for Excel yn y llyfr gwaith cyfredol. Gweler y screenshot:


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.


  • 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...
tab kte 201905
  • 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!
gwaelod officetab
sylwadau (2)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch yn fawr iawn am y cod uchod, fe wnaeth ddatrys problem i mi gyda ffeil gymhleth; ateb yr wyf wedi bod yn edrych ers tro bellach. Diolch... mae gen i un cwestiwn. Sut ydw i'n newid y cod fel ei fod yn copïo'r rhesi ond dim ond o golofn A i golofn Q, felly nid Entire.Row?Diolch ymlaen llaw a gwaith gwych!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

diolch yn fawr iawn am y cod. Mae gen i gwestiwn: mae'r cod yn rhedeg yn esmwyth ar rai o'm taflenni, ond mae'n edrych fel pe bai'n mynd i mewn i ddolen ddiddiwedd mewn rhai eraill sy'n gwneud excel yn ddamwain. Beth allai'r rheswm fod?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir