Conas sraitheanna a chóipeáil ó iliomad bileoga oibre bunaithe ar chritéir i mbileog nua?
Ag ceapadh, tá leabhar oibre agat le trí bhileog oibre a bhfuil an fhormáidiú céanna orthu agus a thaispeántar thíos. Anois, ba mhaith leat na sraitheanna go léir a chóipeáil ó na bileoga oibre seo i gcolún C ina bhfuil an téacs “Críochnaithe” i mbileog oibre nua. Conas a d’fhéadfá an fhadhb seo a réiteach go tapa agus go héasca gan iad a chóipeáil agus a ghreamú ceann ar cheann de láimh?
 |
 |
 |
Cóipeáil sraitheanna ó iliomad bileoga oibre bunaithe ar chritéir i mbileog nua le cód VBA
Cóipeáil sraitheanna ó iliomad bileoga oibre bunaithe ar chritéir i mbileog nua le cód VBA
Is féidir leis an gcód VBA seo a leanas cabhrú leat sraitheanna ar leith a chóipeáil ó gach bileog oibre sa leabhar oibre bunaithe ar riocht áirithe i mbileog oibre nua. Déan mar seo le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.
Cód VBA: Cóipeáil sraitheanna ó iliomad bileoga bunaithe ar chritéir i mbileog nua
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
nótaí: Sa chód thuas:
- An téacs “Críochnaithe”Leis seo xRStr = "Críochnaithe" léiríonn script an coinníoll sonrach ar mhaith leat sraitheanna a chóipeáil bunaithe air;
- C: C. sa Socraigh xRg = xWs.Range ("C: C") léiríonn script an colún sonrach ina aimsíonn an riocht.
3. Ansin, brúigh F5 eochair chun an cód seo a rith, agus rinneadh na sraitheanna go léir a bhfuil an riocht sonrach orthu a chóipeáil agus a ghreamú i mbileog oibre nua darb ainm Kutools for Excel sa leabhar oibre reatha. Féach an pictiúr:
Ailt sonraí tarraingthe nó cóipeála níos coibhneasta:
- Cóipeáil Sonraí chuig Bileog Oibre Eile le Scagaire Casta in Excel
- De ghnáth, is féidir linn an ghné Advanced Scagaire a chur i bhfeidhm go tapa chun sonraí a bhaint as na sonraí amha sa bhileog oibre chéanna. Ach, uaireanta, nuair a dhéanann tú iarracht an toradh scagtha a chóipeáil chuig bileog oibre eile, gheobhaidh tú an teachtaireacht rabhaidh seo a leanas. Sa chás seo, conas a d’fhéadfá déileáil leis an tasc seo in Excel?
- Cóipeáil Sraitheanna go Bileog Nua Bunaithe ar Chritéir Colúin In Excel
- Mar shampla, tá tábla ceannaigh torthaí ann, agus anois ní mór duit taifid a chóipeáil chuig bileog nua bunaithe ar thorthaí sonraithe, conas é a dhéanamh go héasca in Excel? Tabharfaidh mé isteach cúpla modh anseo chun sraitheanna a chóipeáil go bileog nua bunaithe ar chritéir na gcolún in Excel.
- Cóipeáil Sraitheanna Má tá Téacs / Luach Sonrach in Excel sa Cholún
- Má theastaíonn uait cealla a bhfuil téacs nó luach sonrach iontu i gcolún a fháil amach, agus ansin an tsraith iomlán ina bhfuil an chill aimsithe a chóipeáil, conas a d’fhéadfá déileáil leis? Tabharfaidh mé isteach cúpla modh anseo chun a fháil amach an bhfuil téacs nó luach sonrach sa cholún agus ansin cóipeáil an tsraith iomlán in Excel.
Na hUirlisí Táirgiúlachta Oifige is Fearr
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
- Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
- Cumaisc Cealla / Sraitheanna / Colúin agus Sonraí a Choinneáil; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna Dúblacha agus Suim / Meán... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
- Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
- Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
- Foirmlí is Fearr agus Cuir isteach go tapa, Ranganna, Cairteacha agus Pictiúir; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
- Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
- Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
- Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
- Grúpáil Tábla Pivot de réir uimhir na seachtaine, lá na seachtaine agus níos mó ... Taispeáin Cealla Díghlasáilte, Faoi Ghlas de réir dathanna éagsúla; Aibhsigh Cealla a bhfuil Foirmle / Ainm orthu...
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
