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

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:


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%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • 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 gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... 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 ...
  • 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...
  • Níos mó ná 300 gné chumhachtach. Tacaíochtaí Office / Excel 2007-2019 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d’fhiontar nó d’eagraíocht. Gnéithe iomlána triail saor in aisce 30 lá. Ráthaíocht ar ais airgid 60 lá.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (280)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, fuair mé an treoir áirithe seo thar a bheith cabhrach thar cinn eile a chonaic mé. Go raibh maith agat! Is é an deacracht atá agam ná má athraím an luach inmhianaithe go 'Dúnta' caithfidh mé F5 a rith chun an tsraith a bhogadh. Ba mhaith liom é a bhogadh go huathoibríoch. Is nua liom Excel mar sin is mór an cúnamh a thug tú. Fo Cheezy() Dim xRg Mar Raon Dim xCell Mar Raon Dim I Chomh Fada Dim J Chomh fada I = Bileoga Oibre (“Rianaire Teagmhais ECR”).UsedRange.Rows.Count J = Bileoga Oibre ("Saincheisteanna Réitithe").Range.Rows Úsáidte. Comhairigh Má J = 1 Ansin Más Feidhmchlár.Bileog OibreFunction.CountA(Bileoga Oibre("Saincheisteanna Réitithe").UsedRange) = 0 Ansin J = 0 Críochnaigh Má Socraigh xRg = Bileoga Oibre ("Rianaire Teagmhais ECR").Range("B1:B" & I) Ar Earráid Lean ar Aghaidh Ar Aghaidh Iarratas.ScreenUpdating = Bréagach do Gach xCell In xRg If CStr(xCell.Value) = "Dúnta" Ansin xCell.EntireRow.Copy Ceann Scríbe:=Bileoga Oibre ("Saincheisteanna Réitithe").Range("A" & J + 1) xCell.EntireRow.Delete J = J + 1 Deireadh Má An Chéad Iarratas Eile.ScreenUpdating = Fo Deiridh Fíor
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá mé ag iarraidh a uathoibriú gluaiseacht na cealla thar gan a bheith a oscailt an modúl agus brúigh F5 chomh maith. Ar réitigh tú an cheist seo riamh? Go raibh maith agat roimh ré!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chuir Crystal eolas ar fáil faoi conas é sin a dhéanamh inniu - féach ar leathanach a haon den snáithe seo chun a freagra a fheiceáil. Bogann sé an tsraith go huathoibríoch le dáta an lae inniu i gcolún (L i mo chás) chuig bileog oibre eile.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an cód seo á rith agam agus táim ag iarraidh sraith a bhogadh bunaithe ar dháta an lae inniu i gcolún I - d'athraigh mé Raon ("B1:B" & I) chun Raon (I1:I" & I) a léamh . D'athraigh mé " Arna dhéanamh" i do shampla go dtí Dáta. Ach, nuair a thagann dáta an lae inniu áit ar bith sa ró, ní hamháin sa cholún I mar is gá, bogann an tsraith chuig an mbileog oibre eile. Aon smaoineamh cén fáth a bhfuil sé seo ag tarlú agus conas is féidir liom an ró a aistriú ach amháin nuair atá dáta an lae inniu i gcolún I, is cuma an bhfuil dáta an lae inniu le feiceáil i gcolúin eile?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dá mba mhian liom go leor luachanna agus go leor bileoga a bheith agam chun mo ró a aistriú chucu, bheadh ​​orm an cód iomlán a scríobh arís le luach difriúil don chill sin? Brí, má chuirim NA i gcill amháin téann sé chuig Na bileog, agus má chuirim W# rachaidh sé go dtí an bhileog uimhir mícheart etc.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, bhí sé seo an-chabhrach. An bhfuil bealach ann chun é seo a dhéanamh gan an tsraith sonraí a aistriú go dtí an dara leathán, ach é a chóipeáil? Mar sin bheadh ​​na sonraí fós ar an dá bhileog?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit bhí an cód an-chabhrach, ach in ionad an tsraith iomlán a chóipeáil éilím go n-aistreofar rogha áirithe sraitheanna go dtí an chéad leathán eile. conas is féidir liom raon a shainiú in ionad ró ar fad Fo Cheezy() Dim xRg Mar Raon Dim xCell Mar Raon Dim I Chomh Fada J Chomh Fada I = Bileoga Oibre("Bileog1").UsedRange.Rows.Count J = Bileoga Oibre(" Sheet2").UsedRange.Rows.Count Má J = 1 Ansin Má tá Application.WorksheetFunction.CountA(Bileoga Oibre("Bileog2").UsedRange) = 0 Ansin J = 0 Críoch Má Socraigh xRg = Bileoga Oibre("Bileog1").Range( "C1:C" & I) Ar Earráid Lean ar ais Ar Aghaidh Iarratas.ScreenUpdating = Bréagach do Gach xCell In xRg Má CStr(xCell.Value) = "Déanta" Ansin xCell.Ró ar fad.Copy Ceann Scríbe:=Bileoga Oibre("Bileog2").Range("A" & J + 1) J = J + 1 Deireadh Más Chéad Iarratas Eile.ScreenUpdating = Foirceann Fíor
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
cad é an cód a bheadh ​​ann dá mba mhaith liom sraitheanna (cealla ar leith) a chóipeáil isteach i leathán eile chuig cealla sonracha? ACH bunaithe freisin ar luach Sampla: teaghrán íomhánna táirge dath cumascóir bán 2 whiteblender2 black juicer 3 blackjuicer3 dearg tv 1 redtv1 iarann ​​glas 4 greeniron4 Ba mhaith liom an teaghrán a chóipeáil chuig bileog eile ach insíonn an uimhir sa cholún íomhánna cé mhéad uair ba chóir é a chóipeáil (mar sin, sa chás seo, an teaghrán cumascóir chóir a chóipeáil i 2 shraith
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Píosa cód an-deas, ag obair go han-mhaith. Conas an cód seo a athrú chun sraitheanna a bhogadh ó tábla amháin go tábla eile, in ionad leathanach amháin go leathán eile? Go raibh míle maith agat !
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Táim ag iarraidh an cód a úsáid ach faighim earráid chomhréire ar Dim xCell As Range. An féidir leat cabhrú le do thoil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fo Cheezy() Dim xRg Mar Raon Dim xCell Mar Raon Dim I Chomh Fada Dim J Chomh fada I = Bileoga Oibre("Bileog1").UsedRange.Rows.Count J = Bileoga Oibre("Bileog2").UsedRange.Rows.Count If J = 1 Ansin Má tá Application.WorksheetFunction.CountA(Bileoga Oibre("Bileog2").UsedRange) = 0 Ansin J = 0 Críoch Má Socraigh xRg = Bileoga Oibre("Bileog1").Raon("C1:C" & I) Lean ar an Earráid Next Application.ScreenUpdating = Bréagach do Gach xCell In xRg Má CStr(xCell.Value) = "Déanta" Ansin xCell.EntireRow.Copy Ceann Scríbe:=Bileoga Oibre("Bileog2").Range("A" & J + 1) xCell. EntireRow.Delete J = J + 1 Deireadh Más Chéad Iarratas Eile.ScreenUpdating = Fo Deiridh Fíor conas is féidir an dara bileog oibre a chur leis chun na sraitheanna a bhogadh go bileog2?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cad ba cheart dom a chur isteach más mian liom dáta ar bith a chur san áireamh mar mo luach? Mar sin fanann an tsraith ar bhileog 1 mura bhfuil dáta ann, agus bogtar go dtí leathán 2 má tá?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] Dia duit, bhí sé seo an-chabhrach. An bhfuil bealach ann chun é seo a dhéanamh gan an tsraith sonraí a aistriú go dtí an dara leathán, ach é a chóipeáil? Mar sin bheadh ​​na sonraí fós ar an dá bhileog?Le Maddie[/quote] an ndearna aon duine é seo a réiteach
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bain an "xCell.EntireRow.Delete" seo ón gcód
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nuair a scriosfaidh mé an líne cód sin agus an macra a rith arís, reoiteann Excel. Cén fáth agus conas is féidir liom é a dheisiú?? Ba mhaith liom na sonraí a bheith ar an dá bhileog oibre agus gan a bheith scriosta ón mbunleathanach. TIA
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an bhfuil freagra air seo? Reo mianach chomh maith ba mhaith liom a chóipeáil ach gan a scriosadh as a chéile
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Is féidir leis an gcód VBA thíos cabhrú leat ach na sraitheanna a chóipeáil seachas iad a scriosadh.

Fo Cheezy()
Dim xRg Mar Raon
Dim xCell Mar Raon
Dim I Chomh Fada
Dim J Chomh fada
Dim K Chomh fada
I = Bileoga Oibre("Bileog1").UsedRange.Rows.Count
J = Bileoga Oibre ("Bileog2").Range Úsáidte.Rows.Count
Má J = 1 Ansin
If Application.WorksheetFunction.CountA(Bileoga Oibre("Bileog2").UsedRange) = 0 Ansin J = 0
Deireadh Má
Socraigh xRg = Bileoga Oibre ("Bileog1").Range("C1:C" & I)
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Le haghaidh K = 1 Go xRg.Count
Má tá CStr(xRg(K).Value) = "Déanta" Ansin
xRg(K).EntireRow.Copy Ceann Scríbe:=Bileoga Oibre("Bileog2").Raon("A" & J + 1)
J = J+1
Deireadh Má
Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá athrú ar seo á lorg agam. Ní mór dom an script a rith go leanúnach, nó má theipeann orm sin nuair a athraíonn an luach sa réimse sonrach sin. Oibríonn an cód féin ach ní mór é a rith go neamhspleách. Ba mhaith liom é a bheith uathoibrithe. An féidir le haon duine cabhrú?

Ar an taobh eile, mura dteastaíonn uaim ach é a chóipeáil thar chealla ar leith sa raon, conas a chuirtear sin i gcrích?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Rob, a chara,

Más gá duit an script a reáchtáil go huathoibríoch nuair a d'athraigh cealla sa réimse sin, is féidir leis an gcód VBA thíos cabhrú leat. Le do thoil cliceáil ar dheis ar an mbileog reatha (an leathanach ina bhfuil na sraitheanna a bhogfaidh tú go huathoibríoch) táb, ansin roghnaigh View Code ón roghchlár comhthéacs. Ansin cóipeáil agus greamaigh an script VBA thíos isteach i bhfuinneog an Chóid.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)

Dim xCell Mar Raon

Dim I Chomh Fada
Ar Lean Earráid Aghaidh

Application.ScreenUpdating = Bréagach

Socraigh xCell = Sprioc(1)
Má tá xCell.Value = "Déanta" Ansin
I = Bileoga Oibre("Bileog2").UsedRange.Rows.Count
Má tá mé = 1 Ansin

If Application.WorksheetFunction.CountA(Bileoga Oibre("Bileog2").UsedRange) = 0 Ansin mé = 0

Deireadh Má

xCell.EntireRow.Cóipeáil Bileoga Oibre("Bileog2").Range("A" & I + 1)

xCell.EntireRow.Scrios
Deireadh Má

Feidhmchlár.ScreenUpdating = Fíor

Fo Deireadh


Maidir le do dhara ceist, an bhfuil i gceist agat ach roinnt cealla a chóipeáil seachas an tsraith iomlán? Nó an gcuirfeá seat de do cheist ar fáil le do thoil? Go raibh maith agat!

Le dea-mhéin, a Chriostal
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Criostail,


Tá do chabhair níos mó ag teastáil ansin :)



Conas is féidir linn critéar eile a chur leis anseo, mar shampla ba mhaith liom aistriú Críochnaithe in aice le Arna dhéanamh:


Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)

Dim xCell Mar Raon

Dim I Chomh Fada
Ar Lean Earráid Aghaidh

Application.ScreenUpdating = Bréagach

Socraigh xCell = Sprioc(1)
Má tá xCell.Value = "Déanta" Ansin
I = Bileoga Oibre("Bileog2").UsedRange.Rows.Count
Má tá mé = 1 Ansin

If Application.WorksheetFunction.CountA(Bileoga Oibre("Bileog2").UsedRange) = 0 Ansin mé = 0

Deireadh Má

xCell.EntireRow.Cóipeáil Bileoga Oibre("Bileog2").Range("A" & I + 1)

xCell.EntireRow.Scrios
Deireadh Má

Feidhmchlár.ScreenUpdating = Fíor

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Criostail
Is é seo an t-eolas is úsáidí a fuair mé ar an ngréasán agus déanann an macra seo cad is mian liom. Ach táim ag bogadh na sraitheanna ó tábla amháin go dtí tábla eile - agus leis an macra seo bogann an fhaisnéis chuig an gcéad líne saor lasmuigh den tábla, ní an chéad líne eile sa tábla? Is féidir leat cabhrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an cód seo á rith agam agus táim ag iarraidh sraith a bhogadh bunaithe ar dháta an lae inniu i gcolún I - d'athraigh mé Raon ("B1:B" & I) chun Raon (I1:I" & I) a léamh . D'athraigh mé " Arna dhéanamh" i do shampla go dtí Dáta. Ach, nuair a thagann dáta an lae inniu áit ar bith sa ró, ní hamháin sa cholún I mar is gá, bogann an tsraith chuig an mbileog oibre eile. Aon smaoineamh cén fáth a bhfuil sé seo ag tarlú agus conas is féidir liom an ró a aistriú ach amháin nuair atá dáta an lae inniu i gcolún I, is cuma an bhfuil dáta an lae inniu le feiceáil i gcolúin eile?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
David a chara,

Oibríonn an cód go maith domsa tar éis an raon agus an luach athraitheach a athrú go dtí seo. Caithfidh formáid an dáta i do chód teacht leis an bhformáid dáta a d'úsáid tú ar an mbileog oibre. Nó an bhfuil sé áisiúil duit do bhileog oibre a cheangal?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Criostail,


Níl mé soiléir cad atá i gceist agat nuair a deir tú go gcaithfidh formáidí an chód agus an dáta scarbhileog a bheith ag teacht le chéile - ní saineolaí VB mé, ach leibhéal novice níos mó. I mo scarbhileog cuirim dáta an lae inniu isteach i gcolún F mar dháta iontrála na sraithe, san fhormáid ctrl + :. Cuirim an dáta éaga isteach sa cholún "I" san fhormáid mm/dd/bbbb. Cruthaíonn sé seo fadhbanna, áfach, agus iontráil ró nua á dhéanamh agus dáta an lae inniu á iontráil i gcolún F mar, chomh luath agus a chuirtear isteach é, bogtar an tsraith chuig an mbileog oibre nua. a rith gan iachall orm é sin a dhéanamh. Gabh mo leithscéal as na ceisteanna fíorfhánacha a d'fhéadfadh a bheith agat ach ní féidir liom mo chloisteáil a chloisteáil faoi na ceisteanna seo. Bheifí buíoch as aon chabhair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
David a chara,

Tá iarracht déanta agam mar go díreach mar a luaigh tú thuas, ach níl an dáileog eisiúna le feiceáil i mo chás. An féidir leat do leagan Excel a sholáthar? Teastaíonn tuilleadh eolais uaim chun cabhrú leis an bhfadhb seo a réiteach. Tá brón orm chun trioblóid a chur ort arís.

Le dea-mhéin, a Chriostal
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Crystal, is iad seo na bileoga oibre lena mbaineann. Feicfidh tú sa chód cóipeáilte go bhfuil mé ag cuardach "suas go dtí" dáta an lae inniu i gcolún L agus má tá "suas go dtí" agus dáta an lae inniu san áireamh sa cholún sin ba mhaith liom an tsraith ina bhfuil an dáta sin a bhogadh go dtí bileog oibre nua. Faoi láthair, nuair a chuirim dáta an lae inniu isteach áit ar bith sa tsraith (mar shampla colún F má eisítear sireadh inniu) bogann sé an tsraith iomlán go huathoibríoch chuig an scarbhileog chartlainne. Cuirim dáta an lae inniu isteach de ghnáth tríd an teaglaim ctrl + : a úsáid, i gcolún F de ghnáth.
Ina theannta sin ba mhaith liom go dtarlódh an t-aistriú seo nuair a osclóidh mé an leabhar oibre. Faoi láthair ní mór dom dul chun cód a thaispeáint ansin brúigh F5. Fáilteofaí roimh aon chomhairle ar conas é sin a dhéanamh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ar an drochuair, ní uaslódálfaidh mo leabhar oibre macra-chumasaithe mar a deir sé nach dtacaítear leis an bhformáid. Tá siad seo in Excel 2016
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
David a chara,

Is féidir leis an gcód VBA seo a leanas cabhrú leat é a bhaint amach.

Foleabhar Oibre Príobháideach_Oscail()
Dim xRg Mar Raon
Dim xCell Mar Raon
Dim I Chomh Fada
Dim J Chomh fada
I = Bileoga Oibre ("DEISEANNA REATHA OASIS").Range Úsáidte.Rows.Count
J = Bileoga Oibre ("DEISEANNA OASIS CUIREADH").Range Úsáidte.Rows.Count
Má J = 1 Ansin
Más Feidhmchlár.Bileog OibreFunction.CountA(Bileoga Oibre("DEISEANNA OASIS CARTLAITHE").UsedRange) = 0 Ansin J = 0
Deireadh Má
Socraigh xRg = Bileoga Oibre ("DEISEANNA OASIS REATHA"). Raon ("L1:L" & I)
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Do Gach xCell In xRg
Má tá CStr(xCell.Value) = Dáta Ansin
xCell.EntireRow.Copy Ceann Scríbe:=Bileoga Oibre ("DEISEANNA OASIS GARTLAINNE").Raon("A" & J + 1)
xCell.EntireRow.Scrios
J = J+1
Deireadh Má
Ar Aghaidh
Fo Deireadh

Nótaí:
1. Ní mór duit an script VBA a chur isteach i bhfuinneog cód ThisWorkbook;
2. Ní mór do leabhar oibre a shábháil mar Excel Macro-Enabled Workbook.

Tar éis an oibríocht thuas, gach uair a osclaíonn tú an leabhar oibre, aistreofar sraith iomlán chuig bileog oibre ARCHIVED má shroicheann cill i gcolún L dáta an lae inniu.

Comhghairdeachas le Beast, a Chriostal
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat Crystal,
Oibríonn sé seo go hiontach má bhaintear amach dáta an lae inniu i gcolún L. An bhfuil aon bhealach le dáta an lae inniu a chur san áireamh i gcolún L freisin, ionas mura seiceálann mé an leabhar oibre ar feadh roinnt laethanta cuirfidh sé dátaí níos luaithe san áireamh go huathoibríoch inniu? Go raibh míle maith agat as do chabhair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
David a chara,

Tá brón orm nach bhfuil mé cinnte an bhfuair mé do cheist. Más amhlaidh, bogfar gach ró chomh fada agus a bhíonn dátaí níos luaithe le feiceáil i gcolún L?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Criostail,

Mura n-osclóidh mé mo bhileog oibre ar feadh cúpla lá agus go bhfuil an dáta a iontráladh i gcolún L imithe thart anois, .i. is é an dáta i gcill i gcolún L ná 11 Meán Fómhair, 2017 ach ná osclaíonn mé mo bhileog oibre go dtí an 13 Meán Fómhair, ba mhaith liom cosúil le gach iontráil i gcolún L a sheiceáil le haghaidh gach dáta suas go dáta an lae inniu agus ansin bog na sraitheanna comhfhreagracha go dtí an leathán nua. Faoi láthair leis an gcód a sholáthair tú go grásta, ní bhogtar ach sraitheanna leis an dáta reatha i gcolún L chuig an mbileog nua ag fágáil taobh thiar díobh siúd a bhfuil dáta níos luaithe acu i gcolún L, a bhogaim de láimh chuig an mbileog nua faoi láthair. Go raibh maith agat as do chabhair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
David a chara,



Faighim do phointe. Bain triail as an script VBA thíos. Nuair a osclaítear an leabhar oibre, bogfar na sraitheanna go léir le dátaí suas le dáta an lae inniu i gcolún L go dtí an leathán sonraithe nua.



Foleabhar Oibre Príobháideach_Oscail()
Dim xRg Mar Raon
Dim xRgRtn Mar Raon
Dim xCell Mar Raon
Dim xLastRow Chomh fada
Dim I Chomh Fada
Dim J Chomh fada
Ar Lean Earráid Aghaidh
xLastRow = Bileoga Oibre ("DEISEANNA REATHA OASIS").UsedRange.Rows.Count
Má tá xLastRow < 1 Ansin Scoir Fo
J = Bileoga Oibre ("DEISEANNA OASIS CUIREADH").Range Úsáidte.Rows.Count
Má J = 1 Ansin
Más Feidhmchlár.Bileog OibreFunction.CountA(Bileoga Oibre("DEISEANNA OASIS CARTLAITHE").UsedRange) = 0 Ansin J = 0
Deireadh Má
Socraigh xRg = Bileoga Oibre ("DEISEANNA OASIS REATHA").Raon("L1:L" & xLastRow)
Do I = 2 Go xLastRow
Más xRg(I).Luach > Dáta Ansin Scoir Fo
Más xRg(I).Luach <= Dáta Ansin
xRg(I).EntireRow.Copy Ceann Scríbe:=Bileoga Oibre ("DEISEANNA OASIS GARTLAINNE").Raon("A" & J + 1)
xRg(I).EntireRow.Scrios
J = J+1
mé = mé - 1
Deireadh Má
Ar Aghaidh
Fo Deireadh

Ní mór duit an script VBA a chur isteach i bhfuinneog cód ThisWorkbook agus an leabhar oibre a shábháil mar Leabhar Oibre Macra-Cumasaithe Excel.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat Crystal, Oibríonn sé sin go breá.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Crystal, bhí mé beagán hasty ag freagairt gur oibrigh an cód. D'oscail mé mo leabhar oibre inniu agus tá sraitheanna ina bhfuil iontrálacha dáta roimhe seo i gcill L colún fós sa "bileog oibre reatha deiseanna ósais" agus níor bhog siad go dtí an "bileog oibre ósais chartlainne" mar a bhíothas ag súil leis. Aon smaointe cén fáth go mbeadh sé seo amhlaidh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá na cealla aibhsithe i gcolún L maidir leis an gceist thuas agus is iad na critéir (go dtí dáta an lae inniu) iad chun an ró a aistriú go dtí an bhileog oibre nua. Tá súil agam go gcabhraíonn an íomhá seo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is cóip é seo freisin den fhuinneog VBA a bhaineann leis an méid thuas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Crystal, bhí mé beagán hasty ag freagairt gur oibrigh an cód. D'oscail mé mo leabhar oibre inniu agus tá sraitheanna ina bhfuil iontrálacha dáta roimhe seo i gcill L colún fós sa "bileog oibre reatha deiseanna ósais" agus níor bhog siad go dtí an "bileog oibre ósais chartlainne" mar a bhíothas ag súil leis. Aon smaointe cén fáth go mbeadh sé seo amhlaidh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Criostail,

Ós rud é nach féidir liom mo leabhar oibre a uaslódáil, beidh mé ag atáirgeadh na sraitheanna agus na colúin anseo

ABCDEFGHIJKL
# Cineál Aisghairm i Leith Leataobh Leasaigh # Dáta Eisiúna Ceisteanna Suíomh Seachadta Custaiméara Togra Tionscadail Dlite

1 SS SB 1234567 1 09/6/17 Gan Ainm Airm Áit Umar Céide 09/10/17

Ag baint úsáide as an gcód thíos, ba mhaith liom é sraith iomlán a bhogadh chuig bileog oibre nua nuair a shroicheann colún L dáta an lae inniu. Chomh maith leis sin mura bhfuil an bhileog oibre críochnaithe agam le roinnt laethanta ba mhaith liom go n-úsáidfí cuardach "go dtí an lá inniu" i gcolún L chun an rud céanna a dhéanamh. Ba mhaith liom freisin é seo a dhéanamh go huathoibríoch nuair a osclóidh mé an leabhar oibre más féidir. Faoi láthair má chuirim dáta an lae inniu isteach in aon chill sa tsraith, mar shampla colún F agus sonraí á gcur isteach, bogann an tsraith iomlán chuig an mbileog oibre cartlainne. (Úsáid Excel 2016)

[Cód Modúl 1]

Fo DaveV()

Dim xRg Mar Raon

Dim xCell Mar Raon

Dim I Chomh Fada

Dim J Chomh fada

I = Bileoga Oibre ("DEISEANNA REATHA OASIS").Range Úsáidte.Rows.Count

J = Bileoga Oibre ("DEISEANNA OASIS CUIREADH").Range Úsáidte.Rows.Count

Má J = 1 Ansin
Más Feidhmchlár.Bileog OibreFunction.CountA(Bileoga Oibre("DEISEANNA OASIS CARTLAITHE").UsedRange) = 0 Ansin J = 0

Deireadh Má

Socraigh xRg = Bileoga Oibre ("DEISEANNA OASIS REATHA"). Raon ("L1:L" & I)

Ar Lean Earráid Aghaidh

Application.ScreenUpdating = Bréagach

Do Gach xCell In xRg

Má tá CStr(xCell.Value) = Dáta Ansin

xCell.EntireRow.Copy Ceann Scríbe:=Bileoga Oibre ("DEISEANNA OASIS GARTLAINNE").Raon("A" & J + 1)
xCell.EntireRow.Scrios

J = J+1
Deireadh Má

Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[Cód Bileog 1]

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xCell Mar Raon
Dim I Chomh Fada
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Socraigh xCell = Sprioc(1)
Má tá xCell.Value = Dáta Ansin
I = Bileoga Oibre ("DEISEANNA OASIS CUIRITHE").Range Úsáidte.Rows.Count
Má tá mé = 1 Ansin
Más Feidhmchlár.Bileog OibreFunction.CountA(Bileoga Oibre("DEISEANNA OASIS CARTLAITHE").UsedRange) = 0 Ansin mé = 0 Críoch má
xCell.EntireRow.Cóip de Bhileoga Oibre ("DEISEANNA OASIS GARTLAINNE").Raon ("A" & I + 1)
xCell.EntireRow.Scrios
Deireadh Má
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Tá súil agam go gcabhróidh an méid thuas ach ní duine VBA mé agus mar sin ní thuigeann tú conas an cód a dhéanamh a theastaíonn uaim. Bheifí buíoch as bhur gcabhair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá earráid mhór i do script!

Abair gur bhraith tú go bhfuil an focal "Déanta" i gcolún C ag ró 7, mar sin déanann tú é a chóipeáil agus an ró a scriosadh.
Nuair a scriosann tú an tsraith, is é an chéad ró eile ar an liosta ná ró 9 agus ní 8, mar nuair a bhain tú an 7ú líne, tá ábhar an 8ú líne i líne 7 anois, agus chuaigh na línte go léir suas 1 ró. Mar sin bhí an chéad ró eile le seiceáil ceaptha a bheith ina ró #8, ach anois tá na sonraí a bhí roimhe seo ar ró #9, mar sin gach uair a bhfuil tú ag scriosadh as a chéile, tá tú ag scipeáil as a chéile chun a sheiceáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Shau Alon a chara,

Go raibh maith agat as do thuairim. Nuashonraíodh an cód agus socraíodh an earráid. Go raibh míle maith agat as do chúntóir.

Le dea-mhéin, a Chriostal
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhféadfadh duine cabhrú liom an obair seo a dhéanamh? Tá iarracht déanta agam an chuid is gá a mheaitseáil suas le mo chomhad a athrú, ach tagann sé seo suas agus níl mé cinnte cad atá le déanamh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
deir sé nach dtacaítear leis an gcomhad nuair a dhéanaim iarracht an comhad excel a uaslódáil. Tá brón orm...ag streachailt leis seo inniu.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom cabhair le haghaidh tasc den chineál céanna, ach beagán difriúil. Tá 5 cholún uimhreacha agam, timpeall 25000 in aghaidh an cholúin, gach colún le ceannteideal 1-5.Ba mhaith liom an tsraith iomlán a chóipeáil chuig bileog eile má tá luach colún 1 iontach ná nialas, NÓ tá colún 2 níos mó ná nialas. , NÓ tá colún 3 níos lú ná nialas, NÓ tá colún 4 iontach ná cúig NÓ tá colún 5 níos mó ná dhá cheann srl. an bhfuil sé seo indéanta ?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
níl uaslódáil an íomhá ag obair ... brón orm.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Bain úsáid as an gcnaipe uaslódála den cheann seo le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mar sin is é an aidhm a fheiceáil má tá aon cheann de na gáis thar teorainn a leagfaidh mé síos san fhoirmle, go bhfuil an pis iomlán COPIED ar leathán nua.

Go raibh míle maith agat as aon chabhair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Íomhá ceangailte
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Mhichíl a chara,
B’fhéidir gur féidir leat an probem seo a réiteach trí bhreiseán Excel a úsáid. Anseo molaim duit an fóntais Roghnaigh Cealla Sonracha de Kutools le haghaidh Excel. Leis an bhfóntas seo, is féidir leat gach sraith a roghnú go héasca i raon deimhnithe má tá luach colún sonraithe níos mó ná nó níos lú ná uimhir. Tar éis duit na sraitheanna go léir a theastaíonn a roghnú, is féidir leat iad a chóipeáil agus a ghreamú de láimh chuig bileog oibre nua. Féach thíos íomhá faoi iamh.

Is féidir leat tuilleadh eolais a fháil faoin ngné seo tríd an hipearnasc thíos a leanúint.
https://www.extendoffice.com/product/kutools-for-excel/excel-select-specific-cells-rows.html
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh maith agat as an bhfoirmle seo, ach bhí fadhb agam agus is é sin nuair a theastaíonn uaim an tsraith a aistriú go bileog eile, ní tharlaíonn sé go huathoibríoch. an féidir leat foirmle eile a thabhairt dom? mar sin aon uair a athraím luach luach na cille, bhog sé go huathoibríoch.


go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Janang a chara,
Ní tharlaíonn an dáileog cóid go huathoibríoch go dtí go spreagann tú an cnaipe rith de láimh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,

Ba mhaith liom an macra seo a bheith curtha ar bun ach le 2 argóint. D'éirigh liom an macra a fháil ag obair i mo chomhad bunaithe ar luach na gcealla i gcolún O. Mar sin féin ba mhaith liom go ndéanfadh an Macra seiceáil an bhfuil Colún S líonta amach (nó <> "") chomh maith, sula mbogtar an tsraith. . Ar deireadh, ba mhaith liom go mbeadh na sraitheanna cóipeáilte mar an gcéanna leis na sraitheanna sa dara leathán. An athraíonn sé sin an macra go hiomlán?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hugues, a chara,
Níl a fhios agam an dtuigeann mé tú ar an mbealach ceart. Ciallaíonn tú má tá cill i gcolún S líonta amach agus má tá an luach áirithe ag cill i gColún O ag an am céanna, ansin bog an tsraith le formáidiú? Seachas sin, ná bog?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Criostail,

Sea, is é sin go díreach atá i gceist agam. Go deimhin, baineann mo shonraí le tionscadail. Is é mo cholún O stádas mo thionscadail, agus S dáta deiridh mo thionscadail.
Ba mhaith liom go mbeidh mo chuid úsáideoirí, na daoine a bhfuil an fhaisnéis acu agus a mbeidh orthu é a chur isteach, in ann tionscadal a "Chartlannú" AMHÁIN má tá a stádas "Dúnta" acu agus "Dáta Deiridh" curtha isteach acu.


Tá súil agam go gcabhraíonn sé seo le rudaí a shoiléiriú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hugues, a chara,
Gabh mo leithscéal as freagra chomh déanach. Is féidir leis an gcód VBA seo a leanas cabhrú leat an fhadhb a réiteach. Lean na céimeanna san Airteagal seo le do thoil chun an script VBA a chur i bhfeidhm.

Fo-GhluaiseachtRowBasedOnCellValue()
Dim xRgStádas Mar Raon
Dim xRgDate Mar Raon
Dim I Chomh Fada
Dim J Chomh fada
Dim K Chomh fada
I = Bileoga Oibre("Bileog1").UsedRange.Rows.Count
J = Bileoga Oibre ("Bileog2").Range Úsáidte.Rows.Count
Má J = 1 Ansin
If Application.WorksheetFunction.CountA(Bileoga Oibre("Bileog2").UsedRange) = 0 Ansin J = 0
Deireadh Má
Socraigh xRgStatus = Bileoga Oibre ("Bileog1").Raon("O1:O" & I)
Socraigh xRgDate = Bileoga Oibre ("Bileog1").Range("S1:S" & I)
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Application.CutCopyMode = Bréagach
xRgStatus(1).EntireRow.Cóip
Bileoga Oibre("Bileog2").Range("A" & J + 1).Greamaigh xlPasteAllUsingSourceTheme
J = J+1
Le haghaidh K = 2 Go xRgStatus.Count
Má tá CStr(xRgStatus(K).Value) = "Dúnta" Ansin
Más rud é (xRgDate(K).Value <> "") Agus (TypeName(xRgDate(K).Value) = "Dáta") Ansin
xRgStatus(K).EntireRow.Cóip
Bileoga Oibre("Bileog2").Range("A" & J + 1).Greamaigh xlPasteAllUsingSourceTheme
J = J+1
Deireadh Má
Deireadh Má
Ar Aghaidh
Application.CutCopyMode = Fíor
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Criostail a chara,

Go raibh míle maith agat an méid sin as do chabhair!

mhéin,

Hugues
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,


Conas is féidir liom na sraitheanna a chóipeáil seachas iad a bhogadh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,


Tá a fhios agam go bhfuil sé seo curtha sa phost cúpla uair ach ní féidir liom teacht ar an freagra. Conas is féidir liom an t-ábhar a chóipeáil go dtí an leathán nua agus GAN é a scriosadh ón mbunbhileog?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mike a chara, a chara
Más mian leat na sraitheanna a chóipeáil seachas iad a scriosadh, is féidir leis an gcód VBA thíos cabhrú leat. Go raibh maith agat as do thuairim!

Fo Cheezy()
Dim xRg Mar Raon
Dim xCell Mar Raon
Dim I Chomh Fada
Dim J Chomh fada
Dim K Chomh fada
I = Bileoga Oibre("Bileog1").UsedRange.Rows.Count
J = Bileoga Oibre ("Bileog2").Range Úsáidte.Rows.Count
Má J = 1 Ansin
If Application.WorksheetFunction.CountA(Bileoga Oibre("Bileog2").UsedRange) = 0 Ansin J = 0
Deireadh Má
Socraigh xRg = Bileoga Oibre ("Bileog1").Range("C1:C" & I)
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Le haghaidh K = 1 Go xRg.Count
Má tá CStr(xRg(K).Value) = "Déanta" Ansin
xRg(K).EntireRow.Copy Ceann Scríbe:=Bileoga Oibre("Bileog2").Raon("A" & J + 1)
J = J+1
Deireadh Má
Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,

Is nua liom macraí a úsáid, an féidir na sonraí thíos a ghreamú tar éis luach áirithe agus déanfar iad a athdhéanamh go dtí deireadh an cholúin?
Mar seo:

Aistrigh "Gorm" i ndiaidh "Dath"

A1 = Gorm
A5= Dath
A6= (aistriú "Gorm" anseo)
agus mar sin de...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
John a chara, a chara
An bhfuil i gceist agat má tá "Dath" i gcolún i gcill, ansin cóipeáil téacs na chéad chillín go dtí an chill faoi bhun an chinn "Dath" agus cóipeáil an téacs seo arís go dtí deireadh an cholúin?
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0  Carachtair
Suímh Molta