Conas luach sonrach in Excel a chur in ionad cealla neamhfholamh?
In Excel, is féidir linn rogha le luach sonrach a athsholáthar nó a líonadh go tapa agus go héasca trí bhrú Ctrl + Iontráil eochracha, ach, an bhfuil a fhios agat conas cealla neamhfholamh díreach a athsholáthar le luach áirithe i do raon roghnaithe ina bhfuil cealla bána agus cealla luacha araon.
Cuir luach ar leith in ionad cealla neamhfholamh trí úsáid a bhaint as an ngné Faigh agus Ionadaigh
Bain úsáid as cód VBA a chur in ionad cealla neamhfholamh
Cuir luach ar leith in ionad cealla neamhfholamh trí úsáid a bhaint as an ngné Faigh agus Ionadaigh
In Excel, is féidir leis an ngné Faigh agus Ionadaigh cabhrú linn na cealla neamhbhána go léir a aimsiú agus ansin luach sonraithe a chur in ionad iad mar is mian leat.
1. Roghnaigh an raon sonraí gur mian leat a chur in ionad ach na cealla luach.
2. Agus ansin brúigh Ctrl + H a oscailt Aimsigh agus Ionadaigh bosca dialóige, sa Aimsigh agus Ionadaigh dialóg, faoi Ionadaigh cluaisín, cineál * sa Aimsigh cad réimse, agus cuir isteach an luach atá uait i Ionadaigh le bosca téacs, féach an pictiúr:
3. Ansin cliceáil Ionadaigh uile cnaipe, agus popped amach dialóg chun a insint duit an líon cealla atá le hathsholáthar, dún na dialóga, ansin na luachanna go léir sa raon roghnaithe curtha in ionad le do shonraí sonraithe, féach screenshots:
Bain úsáid as cód VBA a chur in ionad cealla neamhfholamh
Trí úsáid a bhaint as an gcód VBA seo a leanas, is féidir leat na cealla sonraí go léir a athsholáthar chuig do luachanna riachtanacha láithreach. Déan mar seo le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Cuir luach sonrach in ionad cealla neamhfholamh
Sub ReplaceNumbers()
'Update 20141111
Dim SRg As Range
Dim Rg As Range
Dim Str As Variant
On Error Resume Next
Set SRg = Application.Selection
Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
If Err <> 0 Then Exit Sub
Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
If Str = False Then Exit Sub
For Each Rg In SRg
If Rg <> "" Then Rg = Str
Next
End Sub
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus beidh bosca leide pop amach chun a mheabhrú duit raon a roghnú a bhfuil tú ag iarraidh na sonraí a athsholáthar, féach an scáileán scáileáin:
4. Ansin cliceáil OK, agus cuir isteach do luach sonrach sa chéad bhosca leid eile, féach an scáileán scáileáin:
5. Agus ansin cliceáil OK, cuireadh na sonraí áirithe in ionad na luachanna go léir i do raon roghnaithe láithreach.
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á!