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

Conas lúb a dhéanamh trí shraitheanna go dtí go mbeidh tú bán sa cholún Excel?

Seo colún fada le sonraí atá ag áireamh roinnt cealla folmha, agus ba mhaith leat lúb a dhéanamh trí na sraitheanna go dtí go gcomhlíonfaidh tú cill bhán. In Excel, níl aon ghné ionsuite ann a fhéadann an post seo a láimhseáil, ach is féidir liom roinnt macraí a thabhairt isteach chun fabhar a thabhairt duit.

Lúb trí shraitheanna go dtí go mbeidh siad bán le VBA


mboilgeog cheart gorm saighead Lúb trí shraitheanna go dtí go mbeidh siad bán le VBA

1. Brúigh Alt + F11 eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil, agus greamaigh thíos an cód leis an script bán.

VBA: Lúb go dtí go mbeidh sé bán

Sub Test1()
'UpdatebyExtendoffice20161222
      Dim x As Integer
      Application.ScreenUpdating = False
      ' Set numrows = number of rows of data.
      NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
      ' Select cell a1.
      Range("A1").Select
      ' Establish "For" loop to loop "numrows" number of times.
      For x = 1 To NumRows
         ' Insert your code here.
         ' Selects cell down 1 row from active cell.
         ActiveCell.Offset(1, 0).Select
      Next
      Application.ScreenUpdating = True
End Sub

lúb doc go dtí go bán 1

Sa chód, is é A1 an chéad chill ar mhaith leat lúb a dhéanamh uaidh, is féidir leat é a athrú de réir mar is gá duit.

3. Brúigh F5 eochair chun tús a chur leis an gcolún a lúbadh, stadfaidh an cúrsóir ag an gcéad chill bhán le chéile.
lúb doc go dtí go bán 2

nótaí: Más mian leat lúb a dhéanamh trí shonraí go dtí go gcomhlíonfaidh tú cealla bána leanúnacha, is féidir leat an macra-chód seo a úsáid.

Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
      ' Select cell A2, *first line of data*.
      Dim xrg As Range
      On Error Resume Next
      Set xrg = Application.InputBox _
        (Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
      xrg.Cells(1, 1).Select
      ' Set Do loop to stop when two consecutive empty cells are reached.
      Application.ScreenUpdating = False
      Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
         ' Insert your code here.
         '
         ' Step down 2 rows from present location.
         ActiveCell.Offset(2, 0).Select
      Loop
      Application.ScreenUpdating = False
End Sub

Ansin ní mór duit an chéad chill is mian leat a lúbadh a roghnú sa Kutools le haghaidh Excel dialóg, cliceáil OK, ansin stopann an cúrsóir sna chéad chealla bána leanúnacha.

lúb doc go dtí go bán 3 lúb doc go dtí go bán 4

Comhcheangail go héasca bileoga iolracha / Leabhar Oibre in aon bhileog amháin nó Leabhar Oibre

D’fhéadfadh go mbeadh bileoga nó leabhair oibre le chéile in aon bhileog amháin nó leabhar oibre in Excel, ach leis an Chomhcheangail feidhm i Kutools le haghaidh Excel, is féidir leat an iliomad bileoga / leabhar oibre a chumasc i mbileog amháin nó i leabhar oibre, freisin, is féidir leat na bileoga a chomhdhlúthú i gceann amháin le cúpla cad a tharlaíonn.  Cliceáil le haghaidh triail saor in aisce 30 lá le feiceáil go hiomlán!
bileoga a chur le chéile
 
Kutools for Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá.

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 (7)
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ú
A lúbadh colún ní as a chéile
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chun lúbadh trí cholún, ní mór duit dul de réir uimhir a chéile.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir leat a mhíniú le do thoil cad é an coinníoll a bhaineann le lúbadh a stopadh? Cad a fhágann go mbrisfidh tú amach as an lúb in Test1()?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Stopfaidh sé agus an chéad bhán sa cholún á chomhlíonadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ligean le rá go bhfuil tonna sraitheanna agam ... aon chleas chun an rith seo a dhéanamh níos tapúla?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn an lúb domsa ach lúbann sé trí gach sraith amháin is cuma an bhfuil sé bán nó nach bhfuil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Táirgeann an chéad VBA an toradh mícheart i gcásanna nuair a bhíonn sraith amháin nó nialas sonraí ann.

Is dócha go bhfuil rud éigin cosúil leis ag teastáil uait

Má Raon ("A1").Value = "" Ansin
Uimhreacha = 0
Raon EileIf("A1").Offset(1, 0).Value="" Ansin
Uimhreacha = 1
Eile
NumRows = Raon ("A1", Raon ("A1").Deireadh(xlDown)).Rows.Count
Deireadh Má
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