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

Sut i symud rhes gyfan i ddalen arall yn seiliedig ar werth celloedd yn Excel?

Ar gyfer symud rhes gyfan i ddalen arall yn seiliedig ar werth celloedd, bydd yr erthygl hon yn eich helpu chi.

Symud rhes gyfan i ddalen arall yn seiliedig ar werth celloedd gyda chod VBA
Symud rhes gyfan i ddalen arall yn seiliedig ar werth celloedd gyda Kutools ar gyfer Excel


Symud rhes gyfan i ddalen arall yn seiliedig ar werth celloedd gyda chod VBA

Fel isod y llun a ddangosir, mae angen i chi symud y rhes gyfan o Sheet1 i Sheet2 os oes gair penodol “Wedi'i wneud” yn bodoli yng ngholofn C. Gallwch roi cynnig ar y cod VBA canlynol.

1. Gwasgwch Alt+ F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn ffenestr Microsoft Visual Basic for Applications, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i'r ffenestr.

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

Nodyn: Yn y cod, Sheet1 ydy'r daflen waith yn cynnwys y rhes rydych chi am ei symud. Ac Sheet2 yw'r daflen waith cyrchfan lle byddwch chi'n dod o hyd i'r rhes. “C: C.”Yw'r golofn yn cynnwys y gwerth penodol, a'r gair“Wedi'i wneud”Yw'r gwerth penodol y byddwch chi'n symud rhes yn seiliedig arno. Newidiwch nhw ar sail eich anghenion.

3. Gwasgwch y F5 allwedd i redeg y cod, yna bydd y rhes sy'n cwrdd â'r meini prawf yn Nhaflen 1 yn cael ei symud i Sheet2 ar unwaith.

Nodyn: Bydd y cod VBA uchod yn dileu rhesi o'r data gwreiddiol ar ôl symud i daflen waith benodol. Os mai dim ond rhesi yn seiliedig ar werth celloedd yr ydych am eu copïo yn lle eu dileu. Defnyddiwch y cod VBA 2 isod.

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

Symud rhes gyfan i ddalen arall yn seiliedig ar werth celloedd gyda Kutools ar gyfer Excel

Os ydych chi'n newbie yng nghod VBA. Dyma fi'n cyflwyno'r Dewiswch Gelloedd Penodol cyfleustodau Kutools ar gyfer Excel. Gyda'r cyfleustodau hwn, gallwch chi ddewis pob rhes yn hawdd yn seiliedig ar werth celloedd penodol neu werthoedd celloedd gwahanol mewn taflen waith, a chopïo'r rhesi a ddewiswyd i'r daflen waith cyrchfan yn ôl yr angen. Gwnewch fel a ganlyn.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Dewiswch y rhestr golofnau sy'n cynnwys y gwerth cell y byddwch chi'n symud rhesi yn seiliedig arno, yna cliciwch Kutools > dewiswch > Dewiswch Gelloedd Penodol. Gweler y screenshot:

2. Yn yr agoriad Dewiswch Gelloedd Penodol blwch deialog, dewiswch Rhes gyfan yn y Math o ddewis adran, dewiswch Equals yn y Math penodol rhestr ostwng, rhowch werth y gell yn y blwch testun ac yna cliciwch ar y OK botwm.

Arall Dewiswch Gelloedd Penodol blwch deialog yn ymddangos i ddangos i chi nifer y rhesi a ddewiswyd, ac yn y cyfamser, mae pob rhes sy'n cynnwys y gwerth penodedig yn y golofn a ddewiswyd wedi'u dewis. Gweler y screenshot:

3. Gwasgwch y Ctrl + C allweddi i gopïo'r rhesi a ddewiswyd, ac yna eu pastio i'r daflen waith cyrchfan sydd ei hangen arnoch.

Nodyn: Os ydych chi am symud rhesi i daflen waith arall yn seiliedig ar ddau werth cell gwahanol. Er enghraifft, symud rhesi yn seiliedig ar werthoedd celloedd naill ai "Wedi'i wneud" neu "Prosesu", gallwch chi alluogi'r Or cyflwr yn y Dewiswch Gelloedd Penodol blwch deialog fel isod dangosir y llun:

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Erthyglau perthnasol:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • 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 heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... 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 ...
  • 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...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • 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 (277)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, roedd y canllaw penodol hwn yn ddefnyddiol iawn i mi dros eraill rydw i wedi'u gweld. Diolch! Y drafferth rydw i'n ei chael yw os ydw i'n newid fy ngwerth dymunol i 'Ar Gau' mae'n rhaid i mi redeg F5 i symud y rhes. Hoffwn iddo symud yn awtomatig. Rwy'n newydd i Excel felly gwerthfawrogir eich cymorth yn fawr. Is Cheezy() Dim xRg Fel Ystod Dim xCell Fel Ystod Dim I Cyn Hir Dim J Cyhyd I = Taflenni Gwaith ("Traciwr Digwyddiad ECR").UsedRange.Rows.Count J = Taflenni Gwaith ("Materion Wedi'u Datrys").UsedRange.Rows. Cyfrwch Os J = 1 Yna Os Cais.WorksheetFunction.CountA(Taflenni Gwaith ("Materion a Datryswyd").UsedRange) = 0 Yna J = 0 Diwedd Os Gosodwyd xRg = Taflenni Gwaith ("Traciwr Digwyddiad ECR"). Ystod ("B1:B" & I) Ar Gwall Ail-ddechrau Cais Nesaf.ScreenUpdating = Gau Ar Gyfer Pob xCell Yn xRg If CStr(xCell.Value) = "Ar Gau" Yna xCell.EntireRow.Copy Destination:=Taflenni Gwaith("Materion a Datryswyd").Range("A" & J + 1) xCell.EntireRow.Delete J = J + 1 Diwedd Os Nesaf Application.ScreenUpdating = Gwir Diwedd Is
Ciaran
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n ceisio awtomeiddio symud y celloedd drosodd heb orfod agor y modiwl a phwyso F5 hefyd. A wnaethoch chi erioed ddatrys y cwestiwn hwn? Diolch ymlaen llaw!
Talia
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Darparodd Crystal wybodaeth ar sut i wneud hynny heddiw - edrychwch ar dudalen un o'r edefyn hwn i weld ei hymateb. Mae'n symud y rhes yn awtomatig gyda dyddiad heddiw mewn colofn (L yn fy achos i) i daflen waith wahanol.
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n rhedeg y cod hwn ac rwy'n ceisio symud rhes yn seiliedig ar y dyddiad heddiw sy'n ymddangos yng ngholofn I - rwyf wedi newid Ystod ("B1:B" & I) i ddarllen Ystod(I1:I" & I). Rwyf wedi newid" Wedi'i wneud" yn eich enghraifft i Dyddiad. Fodd bynnag, pan fydd dyddiad heddiw yn ymddangos unrhyw le yn y rhes, nid yn unig yn y golofn I yn ôl yr angen, mae'r rhes yn symud i'r daflen waith arall. Unrhyw syniad pam mae hyn yn digwydd a sut gallaf gael y rhes i symud dim ond pan fo dyddiad heddiw yng ngholofn I, ni waeth a yw dyddiad heddiw yn ymddangos mewn colofnau eraill?
David
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pe bawn i eisiau cael llawer o werthoedd a llawer o daflenni i symud fy rhes iddynt, byddai'n rhaid i mi ysgrifennu'r cod cyfan eto gyda gwerth gwahanol ar gyfer y gell honno? Ystyr, os byddaf yn rhoi NA mewn un gell mae'n mynd i'r ddalen Na, ac os byddaf yn rhoi W# bydd yn mynd i'r daflen rhif anghywir ac ati.
Ioav
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, roedd hyn yn ddefnyddiol iawn. A oes ffordd o wneud hyn heb symud y rhes o ddata i'r ail ddalen, ond yn hytrach ei chopïo? Felly byddai'r data yn aros ar y ddwy ddalen?
Maddie
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo roedd y cod yn ddefnyddiol iawn, ond yn lle copïo'r rhes gyfan mae angen i mi symud detholiad penodol o res i'r ddalen nesaf. sut alla i ddiffinio amrediad yn lle rhes gyfan Is Cheezy() Dim xRg Fel Ystod Dim xCell Fel Ystod Dim I Cyn Hir Dim J Cyhyd I = Taflenni Gwaith("Taflen1").UsedRange.Rows.Count J = Taflenni Gwaith(" Sheet2").UsedRange.Rows.Count Os J = 1 Yna Os Cais.WorksheetFunction.CountA(Taflenni Gwaith ("Taflen2").UsedRange) = 0 Yna J = 0 Diwedd Os Gosod xRg = Taflenni Gwaith("Taflen1").Range( "C1:C" & I) Ar Gwall Ail-ddechrau Next Application.ScreenUpdating = Gau Am Bob xCell Yn xRg If CStr(xCell.Value) = "Wedi'i Wneud" Yna xCell.Rhes Gyfan.Copy Destination:=Taflenni Gwaith("Taflen2").Range("A" & J + 1) J = J + 1 Diwedd Os Nesaf Application.ScreenUpdating = Gwir Diwedd Is
bafa
Lleihawyd y sylw hwn gan y safonwr ar y wefan
beth fyddai'r cod os ydw i am gopïo rhesi (celloedd penodol) i ddalen arall i gelloedd penodol? OND hefyd yn seiliedig ar enghraifft gwerth: llinyn delweddau cynnyrch lliw cymysgydd gwyn 2 whiteblender2 du juicer 3 blackjuicer3 teledu coch 1 redtv1 gwyrdd haearn 4 greeniron4 Hoffwn i'r llinyn gael ei gopïo i ddalen arall ond mae'r rhif yn y golofn delweddau yn dweud sawl gwaith y dylid ei gopïo (felly, yn yr achos hwn, y llinyn cymysgydd dylid ei gopïo mewn 2 res
Aafke Post
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Darn o god neis iawn, yn gweithio'n dda iawn. Sut i newid y cod hwn i symud rhesi o un tabl i dabl arall, yn lle un ddalen i ddalen arall? Diolch yn fawr !
Samplwr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rwy'n ceisio defnyddio'r cod ond rwy'n derbyn gwall cystrawen ar Dim xCell As Range. Allwch chi helpu os gwelwch yn dda?
francesco
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is Cheezy() Dim xRg Fel Ystod Dim xCell Fel Ystod Dim I Cyn Hir Dim J Cyhyd I = Taflenni Gwaith("Taflen1").UsedRange.Rows.Count J = Taflenni Gwaith("Taflen2").UsedRange.Rows.Count If J = 1 Yna Os Cais.WorksheetFunction.CountA(Taflenni Gwaith("Taflen2").UsedRange) = 0 Yna J = 0 Diwedd Os Gosod xRg = Taflenni Gwaith("Taflen1").Range("C1:C" & I) Ar Gwall Ailddechrau Next Application.ScreenUpdating = Gau Ar Gyfer Pob xCell Yn xRg If CStr(xCell.Value) = "Gwneud" Yna xCell.EntireRow.Copy Destination:=Taflenni Gwaith("Taflen2").Range("A" & J+1) xCell. EntireRow.Delete J = J + 1 Diwedd Os Nesaf Application.ScreenUpdating = Diwedd Gwir Is sut mae ychwanegu ail daflen waith i symud rhesi i sheet2?
kay
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth ddylwn i ei fewnbynnu os ydw i am gynnwys unrhyw ddyddiad fel fy ngwerth? Felly mae'r rhes yn aros ar ddalen 1 os nad oes dyddiad ganddi, ac yn symud i ddalen 2 os ydyw?
Bethany Gordon
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] helo, roedd hyn yn ddefnyddiol iawn. A oes ffordd o wneud hyn heb symud y rhes o ddata i'r ail ddalen, ond yn hytrach ei chopïo? Felly byddai'r data yn aros ar y ddwy ddalen?Gan Maddie[/quote] a wnaeth unrhyw un ddatrys hyn
sy
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Tynnwch y "xCell.EntireRow.Delete" hwn o'r cod
Jach
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddaf yn dileu'r llinell honno o god ac yn rhedeg y macro eto, mae Excel yn rhewi. Pam a sut ydw i'n ei drwsio ?? Rwyf am i'r data fod ar y ddwy daflen waith ac i beidio â chael eu dileu o'r gwreiddiol. TIA
becs
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a oes ateb i hyn? Mae fy un i'n rhewi hefyd hoffwn i gopïo ond nid dileu'r rhes
Kristel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Gall y cod VBA isod eich helpu i gopïo'r rhesi yn unig yn hytrach na'u dileu.

Is Cheezy()
Dim xRg Fel Ystod
Dim xCell Fel Ystod
Dim I Cyn Hir
Dim J Cyhyd
Dim K Cyhyd
I = Taflenni Gwaith ("Taflen1").UsedRange.Rows.Count
J = Taflenni Gwaith ("Taflen 2").UsedRange.Rows.Count
Os J = 1 Yna
If Application.WorksheetFunction.CountA(Worksheets("Taflen2").UsedRange) = 0 Yna J = 0
Gorffennwch Os
Gosod xRg = Taflenni Gwaith ("Taflen 1"). Ystod ("C1:C" & I)
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Ar gyfer K = 1 I xRg.Count
Os CStr(xRg(K).Value) = "Gwneud" Yna
xRg(K).EntireRow.Copy Destination:=Taflenni Gwaith("Taflen2").Range("A" & J + 1)
J = J + 1
Gorffennwch Os
nesaf
Application.ScreenUpdating = Gwir
Is-End
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n edrych am amrywiad ar hyn. Dwi angen y sgript i redeg yn barhaus, neu yn methu hynny pryd bynnag y gwerth yn y maes penodol hwnnw yn newid. Mae'r cod ei hun yn gweithio ond mae angen ei redeg yn annibynnol. Hoffwn iddo fod yn awtomataidd. A all unrhyw un helpu?

I'r neilltu, os wyf am iddo gopïo dros gelloedd penodol yn yr ystod yn unig, sut mae hynny'n cael ei gyflawni?
Rob
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Rob,

Os oes angen y sgript arnoch i redeg yn awtomatig pan newidiodd celloedd yn y maes hwnnw, gall y cod VBA isod eich helpu chi. Cliciwch ar y dde ar y ddalen gyfredol (y ddalen gyda rhesi y byddwch yn ei symud yn awtomatig) tab, yna dewiswch View Code o'r ddewislen cyd-destun. Yna copïwch a gludwch y sgript VBA isod i'r ffenestr Cod.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)

Dim xCell Fel Ystod

Dim I Cyn Hir
Ar Ail-ddechrau Gwall Nesaf

Application.ScreenUpdating = Anghywir

Gosod xCell = Targed(1)
Os xCell.Value = "Gwneud" Yna
I = Taflenni Gwaith ("Taflen2").UsedRange.Rows.Count
Os ydw i = 1 Yna

If Application.WorksheetFunction.CountA(Worksheets("Taflen2").UsedRange) = 0 Yna I = 0

Gorffennwch Os

xCell.EntireRow.Copy Worksheets("Taflen2").Range("A" & I + 1)

xCell.EntireRow.Dileu
Gorffennwch Os

Application.ScreenUpdating = Gwir

Is-End


Ar gyfer eich ail gwestiwn, a ydych chi'n golygu copïo sawl cell yn lle'r rhes gyfan? Neu a fyddech cystal â darparu sgrinlun o'ch cwestiwn? Diolch!

Cofion Gorau, Crystal
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Grisial,


Mae mwy o angen eich help chi wedyn :)



Sut y gallwn ychwanegu meini prawf arall yma, er enghraifft hoffwn drosglwyddo Wedi'i gwblhau wrth ymyl Wedi'i wneud:


Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)

Dim xCell Fel Ystod

Dim I Cyn Hir
Ar Ail-ddechrau Gwall Nesaf

Application.ScreenUpdating = Anghywir

Gosod xCell = Targed(1)
Os xCell.Value = "Gwneud" Yna
I = Taflenni Gwaith ("Taflen2").UsedRange.Rows.Count
Os ydw i = 1 Yna

If Application.WorksheetFunction.CountA(Worksheets("Taflen2").UsedRange) = 0 Yna I = 0

Gorffennwch Os

xCell.EntireRow.Copy Worksheets("Taflen2").Range("A" & I + 1)

xCell.EntireRow.Dileu
Gorffennwch Os

Application.ScreenUpdating = Gwir

Is-End
MaryJ
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Grisial
Dyma'r wybodaeth fwyaf defnyddiol i mi ei ddarganfod ar y we ac mae'r macro hwn yn gwneud yr hyn rydw i eisiau. Ond rydw i'n symud y rhesi o un bwrdd i fwrdd arall - a gyda'r macro hwn mae'r wybodaeth yn symud o'r llinell rydd gyntaf y tu allan i'r tabl, nid y llinell rydd nesaf yn y tabl? Gallwch chi helpu?
Stusurrey
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n rhedeg y cod hwn ac rwy'n ceisio symud rhes yn seiliedig ar y dyddiad heddiw sy'n ymddangos yng ngholofn I - rwyf wedi newid Ystod ("B1:B" & I) i ddarllen Ystod(I1:I" & I). Rwyf wedi newid" Wedi'i wneud" yn eich enghraifft i Dyddiad. Fodd bynnag, pan fydd dyddiad heddiw yn ymddangos unrhyw le yn y rhes, nid yn unig yn y golofn I yn ôl yr angen, mae'r rhes yn symud i'r daflen waith arall. Unrhyw syniad pam mae hyn yn digwydd a sut gallaf gael y rhes i symud dim ond pan fo dyddiad heddiw yng ngholofn I, ni waeth a yw dyddiad heddiw yn ymddangos mewn colofnau eraill?
David
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl David,

Mae'r cod yn gweithio'n dda i mi ar ôl newid yr ystod a'r gwerth amrywiad hyd yn hyn. Rhaid i'r fformat dyddiad yn eich cod gyfateb i'r fformat dyddiad a ddefnyddiwyd gennych yn y daflen waith. Neu a yw'n gyfleus i chi atodi'ch taflen waith?
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal,


Nid wyf yn glir beth rydych chi'n ei olygu pan ddywedwch fod yn rhaid i'r cod a'r fformatau dyddiad taenlen gyd-fynd - nid wyf yn arbenigwr VB, yn fwy lefel dechreuwyr. Yn fy nhaenlen rwy'n rhoi dyddiad heddiw yng ngholofn F fel dyddiad cofnodi'r rhes, yn y fformat ctrl + :. Rwy'n nodi'r dyddiad dod i ben yng ngholofn "I" yn y fformat mm/dd/bbbb. Fodd bynnag, mae hyn yn achosi problemau wrth wneud cofnod rhes newydd a nodi dyddiad heddiw yng ngholofn F oherwydd, cyn gynted ag y caiff ei nodi, mae'r rhes yn cael ei symud i'r daflen waith newydd. i redeg heb i mi ei orfodi i wneud hynny. Mae'n ddrwg gennyf am yr hyn a allai fod yn faterion dibwys iawn i chi ond ni allaf glywed am y materion hyn. Byddai unrhyw help yn cael ei werthfawrogi.
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl David,

Rwyf wedi ceisio fel yn union yr hyn a grybwyllwyd gennych uchod, ond nid yw'r dos mater yn ymddangos yn fy achos i. Allwch chi ddarparu eich fersiwn Excel? Mae angen mwy o wybodaeth arnaf i helpu i ddatrys y broblem hon. Mae'n ddrwg gennyf eich poeni eto.

Cofion Gorau, Crystal
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Crystal, dyma'r taflenni gwaith dan sylw. Fe welwch yn y cod a gopïwyd fy mod yn chwilio am "hyd at" dyddiad heddiw yng ngholofn L ac os yw "hyd at" ac yn cynnwys dyddiad heddiw yn y golofn honno yna rwyf am symud y rhes sy'n cynnwys y dyddiad hwnnw i daflen waith newydd. Ar hyn o bryd, pan fyddaf yn nodi dyddiad heddiw unrhyw le yn y rhes (er enghraifft colofn F os cyhoeddir deisyfiad heddiw) mae'n symud y rhes gyfan yn awtomatig i'r daenlen sydd wedi'i harchifo. Fel arfer byddaf yn nodi dyddiad heddiw trwy ddefnyddio'r cyfuniad ctrl + :, fel arfer yng ngholofn F.
Yn ogystal, hoffwn i'r symudiad hwn ddigwydd pan fyddaf yn agor y llyfr gwaith. Ar hyn o bryd mae angen i mi fynd i ddangos cod yna pwyswch F5. Byddai unrhyw gyngor ar sut i wneud hynny yn cael ei groesawu.
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn anffodus ni fydd fy llyfr gwaith galluogi macro yn uwchlwytho gan ei fod yn dweud na chefnogir y fformat. Mae’r rhain yn Excel 2016
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl David,

Gall y cod VBA canlynol eich helpu i'w gyflawni.

Is-lyfr gwaith preifat_Agored()
Dim xRg Fel Ystod
Dim xCell Fel Ystod
Dim I Cyn Hir
Dim J Cyhyd
I = Taflenni Gwaith ("CYFLEOEDD OASIS PRESENNOL").UsedRange.Rows.Count
J = Taflenni Gwaith ("CYFLEOEDD OASIS ARCHIFWYD").UsedRange.Rows.Count
Os J = 1 Yna
If Application.WorksheetFunction.CountA(Taflenni Gwaith ("CYFLEOEDD OASIS ARCHIFEDIG").UsedRange) = 0 Yna J = 0
Gorffennwch Os
Gosod xRg = Taflenni Gwaith ("CYFLEOEDD OASIS PRESENNOL"). Ystod ("L1:L" & I)
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Am Bob xCell Mewn xRg
Os CStr(xCell.Value) = Dyddiad Yna
xCell.EntireRow.Copy Destination:=Taflenni Gwaith ("CYFLEOEDD OASIS ARCHIFEDIG"). Ystod ("A" & J + 1)
xCell.EntireRow.Dileu
J = J + 1
Gorffennwch Os
nesaf
Is-End

Nodiadau:
1. Mae angen i chi roi'r sgript VBA i mewn i ffenestr cod ThisWorkbook;
2. Mae angen arbed eich llyfr gwaith fel Excel Macro-Enabled Workbook.

Ar ôl y gweithrediad uchod, bob tro pan fyddwch chi'n agor y llyfr gwaith, bydd rhes gyfan yn cael ei symud i'r daflen waith ARCHIVED os yw cell yng ngholofn L yn cyrraedd dyddiad heddiw.

Cofion Bwystfil, Grisial
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch Crystal,
Mae hyn yn gweithio'n wych os cyflawnir dyddiad heddiw yng ngholofn L. A oes unrhyw ffordd i gynnwys hyd at y dyddiad heddiw yng ngholofn L hefyd, felly os na fyddaf yn gwirio'r llyfr gwaith am nifer o ddyddiau bydd yn cynnwys dyddiadau cynharach yn awtomatig cyn heddiw? Diolch yn fawr iawn am eich cymorth.
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl David,

Mae'n ddrwg gennyf, nid wyf yn siŵr a gefais eich cwestiwn. Os felly, bydd pob rhes yn cael ei symud cyn belled â bod dyddiadau cynharach yn ymddangos yng ngholofn L?
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal,

Os na fyddaf yn agor fy nhaflen waith am ychydig ddyddiau a bod y dyddiad a roddwyd yng ngholofn L bellach wedi mynd heibio, hy y dyddiad mewn cell yng ngholofn L yw Medi 11, 2017 ond peidiwch ag agor fy nhaflen waith tan fis Medi 13, byddwn yn fel yr holl gofnodion yng ngholofn L i gael eu gwirio am bob dyddiad hyd at y dyddiad heddiw yna symudwch y rhesi cyfatebol i'r ddalen newydd. Ar hyn o bryd gyda'r cod a ddarparwyd gennych yn raslon, dim ond rhesi gyda'r dyddiad cyfredol yng ngholofn L sy'n cael eu symud i'r ddalen newydd gan adael y rhai sydd â dyddiad cynharach yng ngholofn L ar ôl, yr wyf ar hyn o bryd yn symud â llaw i'r ddalen newydd. Diolch am eich help.
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl David,



Rwy'n cael eich pwynt. Rhowch gynnig ar y sgript VBA isod. Wrth agor y llyfr gwaith, bydd pob rhes gyda dyddiadau hyd at ddyddiad heddiw yng ngholofn L yn cael ei symud i ddalen benodol newydd.



Is-lyfr gwaith preifat_Agored()
Dim xRg Fel Ystod
Dim xRgRtn Fel Ystod
Dim xCell Fel Ystod
Dim xLastRow Cyhyd
Dim I Cyn Hir
Dim J Cyhyd
Ar Ail-ddechrau Gwall Nesaf
xLastRow = Taflenni Gwaith ("CYFLEOEDD OASIS PRESENNOL").UsedRange.Rows.Count
Os xLastRow < 1 Yna Ymadael Is
J = Taflenni Gwaith ("CYFLEOEDD OASIS ARCHIFWYD").UsedRange.Rows.Count
Os J = 1 Yna
If Application.WorksheetFunction.CountA(Taflenni Gwaith ("CYFLEOEDD OASIS ARCHIFEDIG").UsedRange) = 0 Yna J = 0
Gorffennwch Os
Gosod xRg = Taflenni Gwaith ("CYFLEOEDD OASIS PRESENNOL"). Ystod ("L1:L" & xLastRow)
Am I = 2 I xLastRow
Os xRg(I).Gwerth > Dyddiad Yna Gadael Is
Os xRg(I).Value <= Dyddiad Yna
xRg(I).EntireRow.Copy Destination:=Taflenni Gwaith ("CYFLEOEDD OASIS ARCHIFEDIG"). Ystod ("A" & J + 1)
xRg(I).EntireRow.Dileu
J = J + 1
I = I - 1
Gorffennwch Os
nesaf
Is-End

Mae angen i chi roi'r sgript VBA yn ffenestr cod ThisWorkbook ac arbed y llyfr gwaith fel Llyfr Gwaith Excel Macro-Enabled.
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch Crystal, Mae hynny'n gweithio'n iawn.
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Crystal, roeddwn i braidd yn frysiog wrth ymateb bod y cod yn gweithio. Agorais fy llyfr gwaith heddiw ac mae rhesi sy'n cynnwys cofnodion dyddiad blaenorol yng nghell colofn L yn dal i fod yn y "daflen waith cyfleoedd gwerddon gyfredol" ac nid ydynt wedi symud i'r "taflen waith gwerddon wedi'i harchifo" yn ôl y disgwyl. Unrhyw syniadau pam y byddai hyn yn wir?
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r celloedd sydd wedi'u hamlygu yng ngholofn L mewn perthynas â'r cwestiwn uchod a dyma'r meini prawf (hyd at y dyddiad heddiw) ar gyfer symud y rhes i'r daflen waith newydd. Gobeithio bod y ddelwedd hon yn helpu.
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hwn hefyd yn gopi o'r ffenestr VBA sy'n gysylltiedig â'r uchod.
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Crystal, roeddwn i braidd yn frysiog wrth ymateb bod y cod yn gweithio. Agorais fy llyfr gwaith heddiw ac mae rhesi sy'n cynnwys cofnodion dyddiad blaenorol yng nghell colofn L yn dal i fod yn y "daflen waith cyfleoedd gwerddon gyfredol" ac nid ydynt wedi symud i'r "taflen waith gwerddon wedi'i harchifo" yn ôl y disgwyl. Unrhyw syniadau pam y byddai hyn yn wir?
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Grisial,

Gan na allaf uwchlwytho fy llyfr gwaith byddaf yn atgynhyrchu'r rhesi a'r colofnau yma

ABCDEFGHIJKL
# Math Neilltuo Deiseb Diwygio # Dyddiad Cyhoeddi Cwestiynau Lleoliad Cwsmer Lleoliad Cynnig Prosiect i'w Gynnig

1 SS SB 1234567 1 09/6/17 Dim Enw'r Fyddin Tanc Gyriant Lle 09/10/17

Gan ddefnyddio'r cod isod, rwyf am iddo symud rhes gyfan i daflen waith newydd pan fydd colofn L yn cyrraedd dyddiad heddiw. Hefyd os nad wyf wedi cwblhau'r daflen waith ers nifer o ddyddiau hoffwn iddo ddefnyddio "hyd at ddyddiad heddiw" chwiliwch yng ngholofn L i wneud yr un peth. Hoffwn hefyd iddo wneud hyn yn awtomatig pan fyddaf yn agor y llyfr gwaith os yn bosibl. Ar hyn o bryd os byddaf yn nodi dyddiad heddiw mewn unrhyw gell yn y rhes, er enghraifft colofn F wrth fewnbynnu data, mae'r rhes gyfan yn symud i'r daflen waith archif. (Defnyddio Excel 2016)

[Cod Modiwl 1]

Is DaveV()

Dim xRg Fel Ystod

Dim xCell Fel Ystod

Dim I Cyn Hir

Dim J Cyhyd

I = Taflenni Gwaith ("CYFLEOEDD OASIS PRESENNOL").UsedRange.Rows.Count

J = Taflenni Gwaith ("CYFLEOEDD OASIS ARCHIFWYD").UsedRange.Rows.Count

Os J = 1 Yna
If Application.WorksheetFunction.CountA(Taflenni Gwaith ("CYFLEOEDD OASIS ARCHIFEDIG").UsedRange) = 0 Yna J = 0

Gorffennwch Os

Gosod xRg = Taflenni Gwaith ("CYFLEOEDD OASIS PRESENNOL"). Ystod ("L1:L" & I)

Ar Ail-ddechrau Gwall Nesaf

Application.ScreenUpdating = Anghywir

Am Bob xCell Mewn xRg

Os CStr(xCell.Value) = Dyddiad Yna

xCell.EntireRow.Copy Destination:=Taflenni Gwaith ("CYFLEOEDD OASIS ARCHIFEDIG"). Ystod ("A" & J + 1)
xCell.EntireRow.Dileu

J = J + 1
Gorffennwch Os

nesaf
Application.ScreenUpdating = Gwir

Is-End
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[Cod Taflen 1]

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xCell Fel Ystod
Dim I Cyn Hir
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod xCell = Targed(1)
Os xCell.Value = Dyddiad Yna
I = Taflenni Gwaith ("CYFLEOEDD OASIS ARCHIFEDIG").UsedRange.Rows.Count
Os ydw i = 1 Yna
If Application.WorksheetFunction.CountA(Taflenni Gwaith ("CYFLEOEDD OASIS ARCHIFEDIG").UsedRange) = 0 Yna I = 0 Diwedd Os
xCell.EntireRow.Copy Worksheets ("CYFLEOEDD OASIS ARCHIFEDIG"). Ystod ("A" ac I + 1)
xCell.EntireRow.Dileu
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End

Gobeithio bod yr uchod yn helpu ond nid wyf yn berson VBA felly nid wyf yn deall sut i wneud i'r cod wneud yr hyn sydd ei angen arnaf. Byddai eich cymorth yn cael ei werthfawrogi.
David Vidler
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gwall mawr yn eich sgript!

Dywedwch eich bod wedi canfod bod rhes 7 â'r gair "Gwneud" yng ngholofn C, felly rydych chi'n ei gopïo ac yn dileu'r rhes.
Ar ôl i chi ddileu'r rhes, y rhes nesaf yn y rhestr fydd rhes 9 ac nid 8, oherwydd ar ôl i chi dynnu'r 7fed llinell, nawr mae cynnwys yr 8fed llinell yn llinell 7, ac aeth yr holl linellau i fyny 1 rhes. Felly roedd y rhes nesaf i'w gwirio i fod i fod yn rhes #8, ond nawr mae'n cynnwys y data a oedd yn flaenorol ar res #9, felly bob tro rydych chi'n dileu rhes, rydych chi mewn gwirionedd yn hepgor rhes i wirio !!!
Shai Alon
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Shau Alon,

Diolch i chi am eich sylw. Mae'r cod wedi'i ddiweddaru gyda'r gwall wedi'i gywiro. Diolch yn fawr iawn i chi am eich cynorthwyydd.

Cofion Gorau, Crystal
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A all rhywun fy helpu i wneud i hyn weithio? Rwyf wedi ceisio newid y rhan sydd angen cyfateb i fy ffeil, ond mae hyn yn dod i fyny ac nid wyf yn siŵr beth i'w wneud.
Kylie Cole
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'n dweud na chefnogir ffeil pan geisiaf uwchlwytho'r ffeil excel. Sori...yn cael trafferth gyda hwn heddiw.
Kylie Cole
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hoffwn gael cymorth ar gyfer tasg debyg, ond ychydig yn wahanol. Mae gen i 5 colofn o rifau, tua 25000 y golofn, pob colofn gyda phennawd 1-5.Hoffwn i gopïo'r rhes gyfan i ddalen arall os yw gwerth colofn 1 yn fwy na sero, NEU colofn 2 yn fwy na sero , NEU mae colofn 3 yn llai na sero, NEU mae colofn 4 yn wych na phump NEU mae colofn 5 yn fwy na dau ac ati. ydy hyn yn bosibl ?
Michael Ghodsi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nid yw uwchlwythiad delwedd yn gweithio... sori.
Michael Ghodsi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Defnyddiwch y botwm llwytho i fyny yr un hwn.
Jay Chivo
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Felly y nod yw gweld a yw unrhyw un o'r nwyon dros derfyn y byddaf yn ei osod yn y fformiwla, mae'r iwrch cyfan yn cael ei COPIED ar ddalen newydd.

Diolch yn fawr iawn am unrhyw help.
Michael Ghodsi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Delwedd ynghlwm
Michael Ghodsi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Michael,
Efallai y gallwch chi ddatrys y probem hwn trwy ddefnyddio ategyn Excel. Yma rwy'n argymell y Dewiswch Gelloedd Penodol cyfleustodau o Kutools ar gyfer Excel. Gyda'r cyfleustodau hwn, gallwch chi ddewis pob rhes mewn amrediad penodol yn hawdd os yw gwerth colofn benodol yn fwy na neu'n llai na rhif. Ar ôl dewis yr holl resi sydd eu hangen, gallwch eu copïo â llaw a'u gludo i daflen waith newydd. Gweler y llun atodedig isod.

Gallwch chi wybod mwy am y nodwedd hon trwy ddilyn yr hyperddolen isod.
https://www.extendoffice.com/product/kutools-for-excel/excel-select-specific-cells-rows.html
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch am y fformiwla hon, ond roedd gennyf broblem, sef pan fyddaf am symud y rhes i ddalen arall, nid yw'n digwydd yn awtomatig. allwch chi roi fformiwla arall i mi? felly pryd bynnag y byddaf yn newid gwerth y gell, symudodd yn awtomatig.


diolch
janang
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Janang,
Nid yw'r dos cod yn digwydd yn awtomatig nes i chi sbarduno'r botwm rhedeg â llaw.
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Hoffwn i'r macro hwn gael ei sefydlu ond gyda 2 ddadl. Llwyddais i gael y macro yn gweithio yn fy ffeil yn seiliedig ar werth y celloedd yng ngholofn O. Fodd bynnag hoffwn i'r Macro wirio a yw Colofn S wedi'i llenwi (neu <> "") hefyd, cyn symud y rhes . Yn olaf, hoffwn hefyd i'r rhesi a gopïwyd fod yr un fformat â'r rhesi yn yr ail ddalen. Ydy hynny'n newid y macro yn llwyr?
Hugues
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Hugues,
Nid wyf yn gwybod a wyf yn eich deall y ffordd iawn. Rydych chi'n golygu, os yw cell yng ngholofn S wedi'i llenwi a bod cell yng Ngholofn O yn cynnwys y gwerth penodol ar yr un pryd, yna symudwch y rhes gyda fformatio? Fel arall, peidiwch â symud?
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Grisial,

Ie dyna'n union yr wyf yn ei olygu. Mewn gwirionedd, mae fy nata yn ymwneud â phrosiectau. Fy ngholofn O yw statws fy mhrosiect, a S dyddiad gorffen fy mhrosiect.
Rwyf am i'm defnyddwyr, y bobl sydd â'r wybodaeth ac y bydd angen eu mewnosod, allu "Archifo" prosiect DIM OND os oes ganddynt eu statws fel "Ar Gau" a'u bod wedi mewnosod "Dyddiad Gorffen".


Rwy'n gobeithio bod hyn yn helpu i egluro pethau
Hugues
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Hugues,
Sori am ateb mor hwyr. Gall y cod VBA canlynol eich helpu i ddatrys y broblem. Dilynwch y camau yn yr erthygl hon i gymhwyso'r sgript VBA.

Gwerth Is-symudRowBasedArCell()
Dim xRgStatus Fel Ystod
Dim xRgDate Fel Ystod
Dim I Cyn Hir
Dim J Cyhyd
Dim K Cyhyd
I = Taflenni Gwaith ("Taflen1").UsedRange.Rows.Count
J = Taflenni Gwaith ("Taflen 2").UsedRange.Rows.Count
Os J = 1 Yna
If Application.WorksheetFunction.CountA(Worksheets("Taflen2").UsedRange) = 0 Yna J = 0
Gorffennwch Os
Gosod xRgStatus = Taflenni Gwaith ("Taflen1"). Ystod ("O1:O" & I)
Gosod xRgDate = Taflenni Gwaith ("Taflen1").Range("S1:S" & I)
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Application.CutCopyMode = Anghywir
xRgStatus(1).CyfanRow.Copi
Taflenni gwaith("Taflen 2").Range("A" & J + 1).GludoSpecial xlPasteAllUsingSourceTheme
J = J + 1
Ar gyfer K = 2 I xRgStatus.Count
If CStr(xRgStatus(K).Value) = "Ar Gau" Yna
Os (xRgDate(K).Value <> "") A (TypeName(xRgDate(K).Value) = "Dyddiad") Yna
xRgStatus(K).Cyfan.Copi
Taflenni gwaith("Taflen 2").Range("A" & J + 1).GludoSpecial xlPasteAllUsingSourceTheme
J = J + 1
Gorffennwch Os
Gorffennwch Os
nesaf
Application.CutCopyMode = Gwir
Application.ScreenUpdating = Gwir
Is-End
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Grisial,

Diolch yn fawr iawn am eich help!

Regards,

Hugues
Hugues
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,


Sut ydw i'n copïo'r rhesi yn lle eu symud?
Mike
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,


Rwy'n gwybod bod hwn wedi'i bostio ychydig o weithiau ond ni allaf ddod o hyd i'r ateb. Sut gallaf gopïo'r deunydd i'r ddalen newydd a PEIDIWCH â'i ddileu o'r ddalen wreiddiol?
Mike Preston
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Mike,
Os ydych chi am gopïo'r rhesi yn lle eu dileu, gall y cod VBA isod eich helpu chi. Diolch i chi am eich sylw!

Is Cheezy()
Dim xRg Fel Ystod
Dim xCell Fel Ystod
Dim I Cyn Hir
Dim J Cyhyd
Dim K Cyhyd
I = Taflenni Gwaith ("Taflen1").UsedRange.Rows.Count
J = Taflenni Gwaith ("Taflen 2").UsedRange.Rows.Count
Os J = 1 Yna
If Application.WorksheetFunction.CountA(Worksheets("Taflen2").UsedRange) = 0 Yna J = 0
Gorffennwch Os
Gosod xRg = Taflenni Gwaith ("Taflen 1"). Ystod ("C1:C" & I)
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Ar gyfer K = 1 I xRg.Count
Os CStr(xRg(K).Value) = "Gwneud" Yna
xRg(K).EntireRow.Copy Destination:=Taflenni Gwaith("Taflen2").Range("A" & J + 1)
J = J + 1
Gorffennwch Os
nesaf
Application.ScreenUpdating = Gwir
Is-End
grisial
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Rwy'n newydd i ddefnyddio macros, a yw'n bosibl gludo'r data isod ar ôl gwerth penodol ac a fydd yn cael ei ailadrodd tan ddiwedd y golofn?
Fel hyn:

Trosglwyddo "Glas" ar ôl "Lliw"

A1 = Glas
A5= lliw
A6 = (trosglwyddo "Glas" yma)
ac yn y blaen...
John Carlo
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl John,
Ydych chi'n golygu os yw cell yn cynnwys "Lliw" mewn colofn, yna copïwch destun y gell gyntaf i'r gell o dan yr un "Lliw" ac ailadroddwch gopi o'r testun hwn tan ddiwedd y golofn?
grisial
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0  Cymeriadau
Lleoliadau a Awgrymir