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:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
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á!