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

Conas an tsraith iomlán a bhogadh go bun an bhileog ghníomhaigh bunaithe ar luach cille in Excel?

Chun an tsraith iomlán a bhogadh go bun na bileoige gníomhaí bunaithe ar luach cille in Excel, bain triail as an gcód VBA san alt seo.

Bog an tsraith iomlán go bun an bhileog ghníomhaigh bunaithe ar luach cille le cód VBA


Bog an tsraith iomlán go bun an bhileog ghníomhaigh bunaithe ar luach cille le cód VBA


Mar shampla, mar a thaispeántar thíos an scáileán, má tá luach áirithe “Déanta” i gcill i gcolún C, ansin bog an tsraith iomlán go bun an bhileog reatha. Déan mar a leanas le do thoil.

1. Brúigh Eile+ F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an cód VBA thíos san fhuinneog.

Cód VBA: Bog an tsraith iomlán go bun an bhileog ghníomhaigh bunaithe ar luach na cille

Sub MoveToEnd()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xEndRow As Long
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
    xEndRow = xRg.Rows.Count + xRg.Row
    Application.ScreenUpdating = False
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) = "Done" Then
           xRg.Cells(I).EntireRow.Cut
           Rows(xEndRow).Insert Shift:=xlDown
        End If
    Next
    Application.ScreenUpdating = True
End Sub

nótaí: Sa chód VBA, “Arna dhéanamh"Is é an luach cille a bhogfaidh tú as a chéile bunaithe ar. Is féidir leat é a athrú de réir mar is gá duit.

3. Brúigh an F5 eochair chun an cód a rith, ansin sa phreabadh suas Kutools le haghaidh Excel bosca dialóige, roghnaigh an raon colún a bhfuil an luach áirithe ann, ansin cliceáil ar an OK cnaipe.

Tar éis a chliceáil ar an OK cnaipe, bogtar an tsraith iomlán ina bhfuil an luach “Arna dhéanamh” sa cholún sonraithe go bun an raon sonraí go huathoibríoch.


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 (24)
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ú
Conas is féidir liom é a dhéanamh ionas go roghnaíonn na kutools sraitheanna sonracha gan ionchur úsáideora?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Tá brón orm, níl mé cinnte cad atá i gceist agat. Bheadh ​​sé go deas dá dtiocfadh leat é a mhíniú arís nó seat scáileáin a chur ar fáil chun a thaispeáint cad atá tú ag iarraidh a dhéanamh.
Go raibh maith agat as do chuid barúlacha.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Crystal, oibríonn an cód seo iontach, go raibh maith agat. Ba mhaith liom na sraitheanna go léir ina bhfuil an focal "Complete" i gcolún D a bhogadh go barr an tábla (cuir isteach i ró 3). An bhfuil sé sin indéanta? ansin ba mhaith liom na sraitheanna iomlána seo a scriosadh ina bhfuil "dáta inné" i gcolún V.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit. Tá sé seo beagnach foirfe do cad ba mhaith liom. Tá cuid den iarratas céanna agam agus a bhí ar Anon an obair seo a dhéanamh gan ionchur úsáideora mar aon le roinnt rudaí breise.

Tá mé ag smaoineamh an féidir an t-aon cholún a chuardach le bheith i4 go i50 agus é a reáchtáil go huathoibríoch ag oscailt nó ag am ar bith a gcuirtear an colún i in eagar. Chomh maith leis sin dá mbeadh sé indéanta na sraitheanna a bhogadh go bun an bhileog gan aon sraitheanna bána idir na sraitheanna "déanta" agus na sraitheanna "gan". Faoi láthair má roghnaím i4:i50 agus mura bhfuil agam ach sonraí suas go dtí ró 25 déanfaidh sé na sraitheanna "déanta" a ghreamú ag dul suas as ró 50 in ionad ró 25. Bíonn líon na sraitheanna ar mo bhileog ag athrú de shíor agus níor cheart go n-éireoidh leis níos mó ná 50. Go raibh maith agat as an gcabhair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Brandon,
Is féidir le brón cabhrú leat le sin. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an bhfuil bealach ann é seo a athrú ionas go mbogann sé as a chéile áit éigin eile ar an mbileog chéanna seachas an deireadh? Tá bileog agam a bhfuil faisnéis ordaithe le haghaidh orduithe dátaithe agus orduithe atá le teacht fós le dáta agus tá sé agam ionas nuair a chuirim "X" i gcolún A béim ar rudaí agus go trom ag brath ar chodanna # agus láithreacha seolta. Anois caithfidh mé an dáta nua (dáta seolta) a ghearradh agus a ghreamú go fisiciúil ionas go n-oireann sé isteach ag an mbarr curtha in eagar de réir dáta (1ú trí dheireadh na míosa). Bhí mé in ann gach rud a fhormáidiú go coinníollach go dtí an pointe seo, ach ní dóigh liom gur féidir liom sraitheanna a bhogadh mar sin. Bhí mé ag smaoineamh an bhféadfadh VBA é seo a dhéanamh, bogadh as a chéile nuair a chuirtear dáta isteach chun teacht leis na sraitheanna dátaithe eile?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, is é an t-aon bhealach ar féidir liom é seo a oibriú ná má "rithim" an macra san fho-scáileán Visual Basic. An féidir an cód VBA seo a rith go huathoibríoch, nuair a chlóscríobhann an t-úsáideoir i "Déanta"? Gach uair a bhíonn an bosca dialóige Kutools for Excel á fháil agam pop suas chun na paraiméadair a bhfuil mé ag iarraidh an cód a chuardach de réir a iarraidh. D'oibrigh mé timpeall air seo trí na paraiméadair a theastaíonn uaim a chuardach agus cuir isteach a bhualadh a chur in ionad : xTxt = ActiveSheet.UsedRange.AddressLocal. Ach bheadh ​​​​sé níos áisiúla dá ndéanfadh sé na hathruithe go huathoibríoch tar éis "Arna dhéanamh". Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Is féidir leis an gcód VBA thíos bhfabhar a thabhairt duit. Bain triail as, le do thoil.
Cliceáil ar dheis ar an táb leatháin (tá na sonraí ar an mbileog a bhogfaidh tú go dtí an bun), roghnaigh View Code ón roghchlár comhthéacs agus cóipeáil an cód thíos isteach i bhfuinneog an Chóid.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
' arna nuashonrú ag Extendoffice 20190925
Dim xRg Mar Raon
Dim xIRg Mar Raon
Dim xTxt Mar Teaghrán
Dim xCell Mar Raon
Dim xEndRow Chomh fada
Dim I Chomh Fada
Dim xDStr Mar Teaghrán
Ar Lean Earráid Aghaidh
xDStr = "C:C"
Socraigh xRg = Me.Range(xDStr)
Socraigh xIRg = Application.Intersect(Sprioc, xRg)
Mura bhfuil xIRg ar bith ansin Scoir Fo
Application.ScreenUpdating = Bréagach
Application.EnableEvents = Bréagach

Má Sprioc = "Arna dhéanamh" Ansin
xEndRow = ActiveSheet.UsedRange.Rows.Count+1
Target.EntireRow.Gearr
Rónna(xEndRow).Ionsáigh Shift:=xlDown
Deireadh Má
Application.EnableEvents = Fíor
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit criostail,

Go raibh maith agat as an gcód seo a phostáil. Ba mhaith liom a fháil amach conas an cód a fháil chun an tsraith a bhogadh ar ais go dtí an barr má chlóscríobh Arna dhéanamh i earráid. An bhféadfaí cód tánaisteach a chur isteach le haghaidh "bogadh" chun é a bhogadh go dtí an barr, agus "déanta" don bhun?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
dia duit criostail tá an cód a thug tú daoibh chun an cód vba a rith go huathoibríoch iontach maith ach ní féidir liom bileog sraitheanna a chur isteach an bhfuil bealach ann chun é a dheisiú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit sarah,
Leithscéal as an míchaoithiúlacht. Bain triail as an VBA thíos. Go raibh maith agat.

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

' arna nuashonrú ag Extendoffice 20200424

Dim xRg Mar Raon

Dim xIRg Mar Raon

Dim xTxt Mar Teaghrán

Dim xCell Mar Raon

Dim xEndRow Chomh fada

Dim I Chomh Fada

Dim xDStr Mar Teaghrán

Ar Earráid TéighTo Err1

xDStr = "C:C"

Socraigh xRg = Me.Range(xDStr)

Socraigh xIRg = Application.Intersect(Sprioc, xRg)

Mura bhfuil xIRg ar bith ansin Scoir Fo

Application.ScreenUpdating = Bréagach

Application.EnableEvents = Bréagach



If Target.Value = "Déanta" Ansin

' xEndRow = ActiveSheet.UsedRange.Rows.Count+1

xEndRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1

Target.EntireRow.Gearr

Rónna(xEndRow).Ionsáigh Shift:=xlDown

Deireadh Má

Earráid 1:

Application.EnableEvents = Fíor

Feidhmchlár.ScreenUpdating = Fíor

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Rinne mé iarracht an cód seo a chóipeáil ach leanann sé ag rá úsáid neamhbhailí Mise.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cad a tharlóidh mura bhfuil uait ach sraitheanna a bhogadh faoi Cholún A agus B; ansin ba chóir Colún C a choinneáil? ar cheart dúinn fós EntireRow a úsáid?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Jerel,
Bain triail as an gcód thíos. Tá súil agam gur féidir liom cabhrú.

Fo-MoveToEnd()

' arna nuashonrú ag Extendoffice 20200717

Dim xRg Mar Raon

Dim xTxt Mar Teaghrán

Dim xCell Mar Raon

Dim xEndRow Chomh fada

Dim xIntR Mar Shlánuimhir

Dim I Chomh Fada

Dim xWs Mar Bhileog Oibre

Ar Lean Earráid Aghaidh

Má tá ActiveWindow.RangeSelection.Count > 1 Ansin

xTxt = ActiveWindow.RangeSelection.AddressLocal

Eile

xTxt = ActiveSheet.UsedRange.AddressLocal

Deireadh Má

lAon:

Socraigh xRg = Application.InputBox("Roghnaigh raon:"", "Kutools le haghaidh Excel", xTxt, , , , , 8)

Mura bhfuil xRg ar bith ansin Scoir Fo

Má tá xRg.Columns.Count > 1 Nó xRg.Areas.Count > 1 Ansin

MsgBox " Roghnaíodh raonta nó colúin iolracha " , vbInformation , " Kutools for Excel "

Téigh go hAon

Deireadh Má

xEndRow = xRg.Rows.Count + xRg.Row

xWs = xRg.Bileog Oibre

xWs.Gníomhachtaigh

Application.ScreenUpdating = Bréagach

Chun I = xRg.Rows.Count To 1 Step -1

Má tá xRg.Item(I) = "Déanta" Ansin

Rónna(xEndRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrthuas

xIntR = xRg.Cells(I).Row

Raon ("A" & xIntR & ":B" & xIntR).Roghnaigh

Roghnú.Gearr

Raon ("A" & xEndRow).Roghnaigh

ActiveSheet.Greamaigh

xEndRow = xEndRow+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á fadhbanna agam ag baint úsáide as an gcód a cuireadh ar fáil agus tá earráid chomhréire á fháil agam i gcónaí. Tá mé thar a bheith nua chun barr feabhais agus tá mé ag iarraidh féin a mhúineadh cad is gá dom a reáchtáil mo ghnó baile. Tá aitheantas scarbhileog fardail agam ar mhaith liom a bheith in ann míreanna i gcolún a ainmniú mar TAR ÉIS A DHÉANAMH? tá/níl agus má tá, bogann siad go bun na bileoige, in ord aibítre, gan spás bán a fhágáil sa phríomh scarbhileog. tá míreanna againn ar scor go hiomlán agus ansin teacht ar ais le haghaidh atheisiúint speisialta i gcainníochtaí teoranta agus id mar na míreanna seo a stóráiltear ag bun mo leatháin go dtí go mbeidh siad ar fáil arís. Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá tasc agam a thug mo shaoiste dom. Bhí cuma simplí go leor air ar dtús ach anois tá mearbhall orm maidir le conas dul ar aghaidh. Tá bileog Réamhaisnéise againn ar na poist fhéideartha agus tá colún "Dóchúlacht Ordaithe" acu faoi %. Tá sé ag iarraidh orm 3 bhileog dhifriúla a bhunú le 100-70%, 69% -41, agus 40-0%. Is é an smaoineamh, de réir mar a chlóscríobhtar an fhaisnéis isteach sa mháistirbhileog, nuair a chuirtear an céatadán isteach, go ndéantar í a chóipeáil go huathoibríoch isteach sa bhileog leantach a mheaitseálann an buile peircintíl sin. Rinne mé é seo le IF (agus foirmle taispeáin í, gan é a shórtáil agus ansin déan sórtáil arís. Gabh mo leithscéal muna mbaineann an cheist seo léi Ach an bhfuil teaghrán de chód a d'fhéadfainn a chur isteach a dhéanfadh an cheist seo a láimhseáil níos éasca? Tá an chuma ar an gcolún K. simplí, ach chomh casta sin don tosaitheoir excel seo. Go raibh maith agat roimh ré as do chabhair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas é a dhéanamh mura bhfuil "Arna dhéanamh" ach cuid de theaghrán colún. Cuir i gcás go bhfuil luach cosúil le - XYZDone, ABCDone, 123Done srl i mo Cholúin, an féidir liom scagadh a dhéanamh bunaithe ar teaghrán páirteach "Déanta"?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Criostail,
Go raibh maith agat as do chabhair, oibríonn an cód go han-mhaith ach seachas an tsraith a aistriú go bun an leathanaigh conas a bhogfaidh mé go cluaisín eile ie cluaisín "Dúnta"?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Gabh mo leithscéal as freagra chomh déanach.
Sa chód, ní gá duit ach an líne a athrú "Má tá xRg.Cells(I) = "Déanta" Ansin" chun Más maith le xRg.Cells(I) "*Arna dhéanamh*" Ansin a chur i gcrích.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá liosta agam le ticbhoscaí gur gá dom é dul go dtí cuid amháin den scarbhileog nuair a dhéantar colún amháin a sheiceáil agus má dhéantar an ceann eile a sheiceáil ina ionad sin téann sé go dtí an deireadh. Bhain mé triail as na céad bealaí éagsúla chun é seo a dhéanamh an féidir le haon duine cabhrú leis seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh! Cheannaigh mé kutools díreach ionas go bhféadfainn an cód vba seo a *** ar mo bhileog excel, mar beidh sé ina ghné iontach le húsáid! Tá na treoracha thuas simplí agus cabhrach; áfach, nuair a bhainim an chéim amach ina ndéantar an cód a chóipeáil agus a ghreamú san fhuinneog agus brúigh F5, chuir sé chuig bosca mé chun an macra a ainmniú agus a chruthú. Rinne mé é sin ach anois ní thabharfaidh sé go dtí an bosca dialóige mé ionas gur féidir liom raon cille a roghnú. Tagann earráid tiomsaithe de “nós imeachta seachtrach neamhbhailí” aníos. Cabhrú le do thoil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Tá brón orm gur chuir mé amú thú. Is féidir an cód a úsáid leis féin agus ní gá Kutools a cheannach. Mura bhfuil sé uait, seol ríomhphost chuig sales@extendoffice.com chun aisíocaíocht a iarraidh.
Le go n-oibreoidh an cód go réidh, ní mór duit a chinntiú go bhfuil do chúrsóir i bhfuinneog an chóid (cliceáil ar aon fhocal sa chód), ansin brúigh an F5 eochair chun an cód a rith. Ansin beidh an bosca dialóige chun raon cille a roghnú aníos.
Gabh mo leithscéal arís as an míchaoithiúlacht.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
liom arís! Rinne mé an cód amach. Rinne mé an cód a chóipeáil agus a ghreamú de láimh seachas an cnaipe cóipe a úsáid ar bharr an scáileáin ar dheis. D'athraigh mé "déanta" go "x". Rith mé an cód i ngach ceann de na bileoga oibre. De réir mar a thosaíonn mé ag dul isteach i "x" sna cealla sin laistigh de na raonta cille roghnaithe ón mbosca dialóige, ní tharlaíonn aon rud (ní ghluaiseann sraitheanna go huathoibríoch síos go dtí an bun). Táim AN-NUA leis seo....go raibh maith agat as do chabhair!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Más mian leat an tsraith a aistriú go huathoibríoch go dtí an bun agus tú ag dul isteach sa fhocal sonraithe, bain triail as an gcód VBA seo a leanas.
nótaí: ní mór duit an cód a chur isteach sa fhuinneog cód Bileog Oibre (cliceáil ar dheis ar an gcluaisín bileog agus roghnaigh View Code ón roghchlár comhthéacs).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20220520
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xEndRow As Long
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg = Range("C2:C18")
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
    xEndRow = xRg.Rows.Count + xRg.Row
    Application.ScreenUpdating = False
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) = "Done" Then
           xRg.Cells(I).EntireRow.Cut
           Rows(xEndRow).Insert Shift:=xlDown
        End If
    Next
    Application.ScreenUpdating = True
End Sub
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta