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

Conas gach líne bhán a scriosadh nó an chéad líne i gcill in Excel amháin?

D’fhéadfá leabhar oibre a fháil le línte iolracha ag meascadh le bearnaí i gcealla. Conas na línte bána seo a scriosadh i gcealla? Agus cad faoi ach an chéad líne a scriosadh? Cuideoidh an t-alt seo leat déileáil leis céim ar chéim.

Scrios gach líne bhán i gcealla le cód VBA
Scrios ach an chéad líne i gcealla le cód VBA


Scrios gach líne bhán i gcealla le cód VBA

Mar a thaispeántar sa screenshot thíos, chun gach líne bán sna cealla a scriosadh, is féidir leat an cód VBA seo a leanas a rith chun é a dhéanamh.

1. Brúigh an Eile + F11 eochracha ar do mhéarchlár, ansin osclaíonn sé a 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 sa Modúil fhuinneog.

Cód VBA: Scrios gach líne bhán i gcealla

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
   xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
  Next
Next
End Sub

3. Brúigh an F5 eochair chun an cód a rith. Ansin roghnaigh na cealla le línte bán a scriosfaidh tú sa Kutools le haghaidh Excel bosca dialóige. Agus ar deireadh cliceáil ar an OK cnaipe.

Ansin is féidir leat a fheiceáil go scriostar na línte bán go léir ó chealla sonraithe mar a thaispeántar an scáileán thíos. Tá na téacsanna suite i línte éagsúla fós.


Scrios ach an chéad líne i gcealla le cód VBA

Mar a thaispeántar sa screenshot thíos, chun an chéad líne a scriosadh i gcill A2 agus A3, is féidir leis an gcód VBA seo a leanas cabhrú leat.

1. Brúigh an Eile + F11 eochracha a oscailt 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 sa Modúil fhuinneog.

Cód VBA: Scrios ach an chéad líne i gcealla

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
    Dim xCell As Range
    For Each xCell In Target.Cells
        xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
    Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub

3. Brúigh an F5 eochair chun an cód a rith. Sa popping suas Kutools le haghaidh Excel bosca dialóige, roghnaigh le do thoil na cealla is gá duit a scriosadh ach an chéad líne, agus ansin cliceáil ar an OK cnaipe.

Ansin feiceann tú go ndéantar na chéad línte uile a scriosadh ó chealla sonraithe mar atá thíos an pictiúr a thaispeántar.


Airteagal gaolmhar:


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íonn Office / Excel 2007-2021 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 airgid ar ais 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 (8)
Rátáil 5 as 5 · rátálacha 1
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
oibríonn sé seo go hiontach. Conas is féidir liom an cód a choigeartú chun na línte amháin a bhaint, gan tosú le carachtair uimhriúla?

Go raibh maith agat agus is fearr,
Jack
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Jack,
Ár leithscéal ní féidir leat cabhrú leis sin go fóill. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil a fhios agat conas é seo a oiriúnú chun an líne dheireanach a bhaint in ionad na chéad líne, le do thoil? TIA
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Jeg forstår desværre ikke et kvæk af ovenstående. Faightear der ikke en nem og ligetil måde agus fjerne tomme linier agus Exell? Is féidir leat an cód agus an rúndiamhair!

Mise le meas
Lene
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Mura dteastaíonn uait na buntéacsanna a choinneáil i línte difriúla i gcealla, is féidir leat na modhanna seo a leanas a chur i bhfeidhm chun é a dhéanamh.
1. Úsáid an ghné Faigh & Ionadaigh:
Brúigh na heochracha Ctrl + H. Sa bhosca dialóige oscailte Faigh agus Ionadaigh, cliceáil chun an bosca Faigh cad a ghníomhachtú. Coinnigh síos an eochair Alt agus tú ag clóscríobh 010 ar an eochaircheap uimhriúil. Coinnigh an bosca ionadaigh le folamh, cliceáil ar an gcnaipe Ionadaigh Uile. Ach tá na téacsanna go léir dírithe ar an líne chéanna.
2. Úsáid an fhoirmle seo a leanas i gcolún cúntóir:
=SUBSTITUTE(A1, CONCATENATE(CHAR(13),CHAR(10),CHAR(13),CHAR(10)),CONCATENATE(CHAR(13),CHAR(10)))
áit a bhfuil A1 an chill is mian leat a phróiseáil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is é seo mo chéad VBA, tá mé suas go dtí do chéad chéim amháin agus tá sé réiteach mo fhadhb, go dtí seo. Tá do threoracha clóite agam le haghaidh tagartha sa todhchaí. Go dtí seo tá mé fillte. Teagasc iontach freisin, go raibh maith agat as do scileanna cáilíochta agus sonraí a thabhairt dóibh.
Rátáil 5 as 5
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
This Works bhain sé mo línte go léir ach is í an t-aon cheist atá ann ná go bhfuil sé ag tógáil an oiread sin ama chun rith le haghaidh aon chillín amháin agus tá sonraí móra agam chun é a dhéanamh agus sílim go dtógfaidh sé an iomarca ama chuige sin
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Tanveer Khan,
Ritheann an cód ag gnáthluas ar mo thaobh. An féidir leat a insint dom cén leagan Excel atá in úsáid agat?
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

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL