Conas luachanna iolracha a aimsiú agus a athsholáthar ag an am céanna in Excel?
Mar is eol dúinn uile, is féidir linn feidhm Aimsigh agus Ionadaigh a úsáid chun an iliomad cille céanna a aimsiú agus luach a theastaíonn uait a chur ina n-áit. Ach uaireanta, ní mór duit athsholáthar a lán a chur i bhfeidhm ag an am céanna. Mar shampla, tá raon sonraí agam, agus anois ba mhaith liom úlla dearga, oráistí go oráistí glasa, bananaí go bananaí buí a chur ina n-ionad agus mar sin de, mar a leanas na scáileáin scáileáin a leanas, an bhfuil aon smaointe maithe agat chun an tasc seo a réiteach Excel?
Faigh agus cuir luachanna VBA in ionad luachanna iolracha ag an am céanna
Faigh agus cuir luachanna VBA in ionad luachanna iolracha ag an am céanna
Má tá tú tuirseach de na luachanna a aimsiú agus a athsholáthar arís agus arís eile, is féidir leis an gcód VBA seo a leanas cabhrú leat na téacsanna riachtanacha a chur in ionad luachanna iolracha ag an am céanna.
1. Cruthaigh do choinníollacha is mian leat a úsáid ina bhfuil na luachanna bunaidh agus na luachanna nua. Féach an pictiúr:
2. Ansin coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.
3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhfuinneog an Mhodúil.
Cód VBA: Faigh agus cuir luachanna iolracha ag an am céanna
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. Ansin brúigh F5 eochair chun an cód seo a rith, sa bhosca pras popped out, sonraigh le do thoil an raon sonraí a theastaíonn uait go gcuirfí luachanna nua in ionad na luachanna.
5. Cliceáil OK, agus taispeántar bosca pras eile le cur i gcuimhne duit na critéir a chruthaítear duit a roghnú i gcéim 1. Féach an pictiúr:
6. Ansin cliceáil OK, cuireadh na luachanna nua in ionad na luachanna sonracha go léir de réir mar a theastaíonn uait láithreach.
Earraí gaolmhara:
Conas téacs faoi leith a aimsiú agus a athsholáthar i mboscaí téacs?
Conas téacs a aimsiú agus a athsholáthar i dteidil cairte in Excel?
Conas téacs a aimsiú agus a athsholáthar laistigh de thráchtanna in Excel?
Conas ilbhealaí hipearnasc a athrú ag an am céanna in Excel?
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á!