Sut i ddarganfod a dileu gemau lluosog ar unwaith yn Excel?
Wrth weithio gyda data mawr yn Excel, mae'n hanfodol gallu dod o hyd i'r wybodaeth sydd ei hangen arnoch yn gyflym ar unrhyw adeg benodol. A dyna pryd mae angen y nodwedd Darganfod ac Amnewid arnoch chi, sy'n eich helpu i ddod o hyd i werthoedd neu fformatau penodol a'u hamlygu ar draws y daflen weithredol neu'r llyfr gwaith cyfan ac yna gwneud yr hyn rydych chi ei eisiau gyda'r canlyniadau, dweud, dileu neu eu disodli. Fodd bynnag, gyda Darganfod ac Amnewid Excel, dim ond un gwerth y gallwch chi ddod o hyd iddo ar y tro. Yn y tiwtorial hwn, byddaf yn cyflwyno ffordd gyflym o ddod o hyd i nifer o wahanol werthoedd a'u dileu ar unwaith yn Excel.
Dod o hyd i a dileu gemau lluosog ar unwaith gyda VBA
Rydym wedi creu dau god VBA i'ch helpu i ddod o hyd i werthoedd gwahanol lluosog yn yr ystod a ddewiswyd neu ar draws taflenni gwaith lluosog a'u dileu ar unwaith. Dilynwch y camau isod a rhedeg y cod yn unol â'ch anghenion.
1. Yn eich Excel, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau. Yna copïwch unrhyw un o'r codau VBA canlynol i'r Modiwlau ffenestr.
Cod VBA 1: Darganfod a dileu gemau lluosog yn yr ystod a ddewiswyd ar unwaith
Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub
xBol = False
For Each xARg In xRg.Areas
Set xFindRg = Nothing
Set xFindRgs = Nothing
Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
For Each xFindRg In xURg
For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
If xFindRg.Text = xArrFinStr(xJ) Then
xBol = True
If xFindRgs Is Nothing Then
Set xFindRgs = xFindRg
Else
Set xFindRgs = Application.Union(xFindRgs, xFindRg)
End If
End If
Next
Next
If Not xFindRgs Is Nothing Then
xFindRgs.ClearContents
End If
Next
If xBol Then
MsgBox "Successfully deleted."
Else
MsgBox "No results found."
End If
End SubNodyn: Yn y pyt xArrFinStr = Array("gwerthiannau", "9", "@") yn y 13fed rhes, dylech gymryd lle "gwerthiannau", "9", "@" gyda'r gwerthoedd gwirioneddol yr ydych am eu darganfod a'u dileu, cofiwch amgáu pob gwerth gyda dyfynbrisiau dwbl a'u gwahanu â choma.
Cod VBA 2: Darganfod a dileu gemau sy'n cyfateb ar draws sawl dalen ar unwaith
Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
Set xWSh = xWb.Worksheets(xArr(xI))
Set xFindRg = Nothing
xWSh.Activate
Set xFindRgs = Nothing
Set xURg = xWSh.UsedRange
Set xFindRgs = Nothing
For Each xFindRg In xURg
For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
If xFindRg.Text = xArrFinStr(xJ) Then
xBol = True
If xFindRgs Is Nothing Then
Set xFindRgs = xFindRg
Else
Set xFindRgs = Application.Union(xFindRgs, xFindRg)
End If
End If
Next
Next
If Not xFindRgs Is Nothing Then
xFindRgs.ClearContents
End If
Next
If xBol Then
MsgBox "Successfully deleted."
Else
MsgBox "No results found."
End If
End Sub- Yn y pyt xArr = Array("Taflen1", "Taflen2") yn y 15fed rhes, dylech gymryd lle "Taflen 1", "Taflen 2" gydag enwau gwirioneddol y dalennau lle rydych chi am ddod o hyd i'r gwerthoedd a'u dileu. Cofiwch amgáu enwau pob dalen gyda dyfyniadau dwbl a'u gwahanu gyda choma.
- Yn y pyt xArrFinStr = Array("gwerthiannau", "9", "@") yn y 16fed rhes, dylech gymryd lle "gwerthiannau", "9", "@" gyda'r gwerthoedd gwirioneddol yr ydych am eu darganfod a'u dileu, cofiwch amgáu pob gwerth gyda dyfynbrisiau dwbl a'u gwahanu â choma.
3. Gwasgwch F5 i redeg y cod VBA. Nodyn: Os ydych chi'n defnyddio'r Cod VBA 1, bydd blwch deialog yn ymddangos yn gofyn ichi ddewis yr ystod lle i ddod o hyd i werthoedd a'u dileu. Gallwch hefyd glicio ar dab dalen i ddewis y ddalen gyfan.
4. Mae'r blwch deialog fel y dangosir isod yn ymddangos yn dweud wrthych fod y cod wedi dileu'r cyfatebion penodedig. Cliciwch OK i gau'r ymgom.
5. Mae'r gwerthoedd penodedig wedi'u dileu ar unwaith.
Darganfod a dileu gemau lluosog ar unwaith gyda nodwedd Dewis Celloedd Penodol
Kutools ar gyfer Excel yn cynnig y Dewiswch Gelloedd Penodol nodwedd i ddod o hyd i werthoedd sy'n bodloni un neu ddau o amodau a osodwyd gennych ar unwaith, darllenwch ymlaen i ddarganfod sut i ddod o hyd i werthoedd lluosog a'u dileu yn gyflym ar unwaith.
1. Ar y Kutools tab, yn y Golygu grŵp, cliciwch dewiswch > Dewiswch Gelloedd Penodol.
- Yn y Dewiswch gelloedd yn yr ystod hon blwch, cliciwch ar y botwm dewis ystod
ar y dde i nodi'r ystod o ble i ddarganfod a dileu gwerthoedd. Nodyn: I chwilio ar draws y ddalen gyfan, cliciwch ar y tab dalen. - Yn y Math o ddewis adran, dewiswch y Cell opsiwn.
- Yn y Math penodol adran, wedi'i osod ar ddau amod ar y mwyaf:
- Cliciwch ar y saeth gwympo ar yr ochr chwith i ddewis perthynas sydd ei hangen arnoch, fel Yn cynnwys, Equals, Llai na, Yn dechrau gyda, Ac ati
- Teipiwch y gwerth yn y blwch cyfatebol yn ôl eich anghenion.
- Nodwch y berthynas rhwng y ddau amod (os oes): Ac or Or.
3. Cliciwch Ok i ddewis y celloedd sy'n bodloni'r amod(au) a osodwyd gennych. Mae blwch deialog yn ymddangos yn dweud wrthych faint o gelloedd a ddarganfuwyd ac a ddewiswyd.
4. Cliciwch OK. Nawr, pwyswch y DELETE allwedd i ddileu'r gwerthoedd a ddewiswyd ar unwaith.
Nodyn: I ddefnyddio'r Dewiswch Gelloedd Penodol nodwedd, dylech gael Kutools ar gyfer Excel wedi'i osod yn eich cyfrifiadur. Os nad oes gennych Kutools wedi'i osod, cliciwch yma i lawrlwytho a gosod. Mae'r ychwanegiad Excel proffesiynol yn cynnig treial 30 diwrnod am ddim heb unrhyw gyfyngiadau.
Darganfod a dileu gemau lluosog ar unwaith Yn Excel
Erthyglau perthnasol
Dod o Hyd i, Tynnu sylw, Hidlo, Cyfrif, Dileu Dyblygu yn Excel
Yn Excel, mae data dyblyg yn digwydd dro ar ôl tro pan fyddwn yn recordio data â llaw, yn copïo data o ffynonellau eraill, neu am resymau eraill. Weithiau, mae'r dyblygu'n angenrheidiol ac yn ddefnyddiol. Fodd bynnag, weithiau mae'r gwerthoedd dyblyg yn arwain at wallau neu gamddealltwriaeth. Yma, bydd yr erthygl hon yn cyflwyno dulliau i nodi, tynnu sylw, hidlo, cyfrif, dileu dyblygu yn gyflym yn ôl fformwlâu, rheolau fformatio amodol, ychwanegiadau trydydd parti, ac ati yn Excel.
Sut i Gymharu Dwy Golofn A Dileu Gemau Yn Excel?
Os oes gennych ddwy golofn / rhestr gan gynnwys rhai dyblygiadau, nawr rydych chi am eu cymharu a darganfod y matsys, eu dileu, sut allwch chi eu datrys yn gyflym? Yn yr erthygl hon, rwy'n cyflwyno gwahanol ffyrdd i'ch helpu chi i'w drin yn Excel.
Sut i Ddileu Pob Ystod Ond Wedi'i Dethol yn Excel?
Yn Excel, gallwn ddileu'r ystodau a ddewiswyd yn gyflym ac yn uniongyrchol, ond a ydych erioed wedi ceisio dileu cynnwys celloedd eraill ac eithrio'r ystodau a ddewiswyd? Yr erthygl hon, byddaf yn cyflwyno rhai triciau i chi ddatrys y dasg hon yn Excel yn gyflym ac yn hawdd.
Sut i Dileu Pob Llun Mewn Ystod O Gelloedd?
Os oes lluniau lluosog wedi'u poblogi yn eich taflen waith, nawr, rydych chi am ddileu rhai ohonyn nhw mewn ystod benodol, sut ydych chi'n delio ag ef yn gyflym?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
