Conas an tsraith iomlán a bhogadh go bileog eile bunaithe ar luach cille in Excel?
Chun an tsraith iomlán a bhogadh go bileog eile bunaithe ar luach cille, cuideoidh an t-alt seo leat.
Bog an tsraith iomlán go bileog eile bunaithe ar luach cille le cód VBA
Bog an tsraith iomlán go bileog eile bunaithe ar luach cille le Kutools for Excel
Bog an tsraith iomlán go bileog eile bunaithe ar luach cille le cód VBA
Mar a thaispeántar thíos an scáileán, ní mór duit an tsraith iomlán a bhogadh ó Bhileog 1 go Bileog2 má tá focal sonrach “Arna dhéanamh” i gcolún C. Is féidir leat an cód VBA seo a leanas a thriail.
1. Brúigh Eile+ F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. I bhfuinneog Microsoft Visual Basic for Applications, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an cód VBA thíos san fhuinneog.
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
nótaí: Sa chód, Sheet1 an bhfuil an tsraith ar mhaith leat bogadh sa bhileog oibre. Agus Sheet2 an bhileog oibre ceann scríbe ina bhfaighidh tú an tsraith go. “C: C.”Is é atá sa cholún an luach áirithe, agus an focal“Arna dhéanamh"Is é an luach áirithe a bhogfaidh tú as a chéile bunaithe air. Athraigh iad le do thoil bunaithe ar do chuid riachtanas.
3. Brúigh an F5 eochair chun an cód a rith, ansin bogfar an tsraith a chomhlíonann na critéir i mBileog 1 go Bileog2 láithreach.
nótaí: Scriosfaidh an cód VBA thuas sraitheanna ó na sonraí bunaidh tar éis dó bogadh go bileog oibre shonraithe. Mura dteastaíonn uait ach sraitheanna a chóipeáil bunaithe ar luach cille seachas iad a scriosadh. Cuir an cód VBA 2 thíos i bhfeidhm.
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
Bog an tsraith iomlán go bileog eile bunaithe ar luach cille le Kutools for Excel
Má tá tú newbie i gcód VBA. Seo mé ag tabhairt isteach an Roghnaigh Cealla Sonracha fóntais de Kutools le haghaidh Excel. Leis an bhfóntas seo, is féidir leat na sraitheanna uile a roghnú go héasca bunaithe ar luach cille áirithe nó luachanna cille difriúla i mbileog oibre, agus na sraitheanna roghnaithe a chóipeáil chuig an mbileog oibre ceann scríbe de réir mar is gá duit. Déan mar a leanas le do thoil.
Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.
1. Roghnaigh liosta na gcolún tá an luach cille a mbogfaidh tú sraitheanna bunaithe air, ansin cliceáil Kutools > Roghnaigh > Roghnaigh Cealla Sonracha. Féach an pictiúr:
2. San oscailt Roghnaigh Cealla Sonracha bosca dialóige, roghnaigh Sraith iomlán sa Cineál roghnúcháin alt, roghnaigh Cothrom sa Cineál sonrach liosta anuas, cuir luach na cille isteach sa bhosca téacs agus ansin cliceáil ar an OK cnaipe.
Eile Roghnaigh Cealla Sonracha tagann bosca dialóige aníos chun líon na sraitheanna roghnaithe a thaispeáint duit, agus idir an dá linn, roghnaíodh gach luach ina bhfuil an luach sonraithe sa cholún roghnaithe. Féach an pictiúr:
3. Brúigh an Ctrl + C eochracha chun na sraitheanna roghnaithe a chóipeáil, agus ansin iad a ghreamú den bhileog oibre ceann scríbe atá uait.
nótaí: Más mian leat sraitheanna a bhogadh go bileog oibre eile bunaithe ar dhá luach cille éagsúla. Mar shampla, bog sraitheanna atá bunaithe ar luachanna cille “Déanta” nó “Próiseáil”, is féidir leat an Or riocht sa Roghnaigh Cealla Sonracha bosca dialóige mar a thaispeántar thíos an scáileán:
Más mian leat triail saor in aisce (30 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.
Earraí gaolmhara:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- 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á!