Conas sraitheanna nach gcomhlíonann critéir ar bhileog eile a scriosadh?
B’fhéidir nach mbeadh sé deacair duit sraitheanna nach gcomhlíonann na critéir ar an mbileog chéanna a scriosadh, ach an bhfuil aon bhealaí ar eolas agat chun na sraitheanna nach meaitseálann na critéir ar bhileog eile a scriosadh mar a thaispeántar thíos. Anois tá dhá chleas agam a chabhróidh leat é a réiteach go tapa.
Scrios sraitheanna nach meaitseálann critéir ar bhileog eile le VBA
Scrios sraitheanna nach bhfuil ag teacht le critéir ar bhileog eile le Kutools le haghaidh Excel
Critéir (I mBileog 2) | Roimh (Bileog 1) | Tar éis (Bileog1) |
Scrios sraitheanna nach meaitseálann critéir ar bhileog eile le VBA
Tá cód VBA ann a chabhróidh leat sraitheanna nach gcomhlíonann critéir ar bhileog eile a scriosadh.
1. Brúigh Alt + F11 chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa fhuinneog, cliceáil Ionsáigh > Modúil chun fuinneog nua modúil a thaispeáint, ansin cóipeáil an cód VBA seo a leanas isteach i bhfuinneog an mhodúil.
VBA: Scrios sraitheanna nach gcomhlíonann na critéir ar bhileog eile in Excel.
Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
xKey = arr2(i, 1)
dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
xKey = arr1(i, 1)
If dic2.Exists(xKey) Then
OutArr(xIndex, 1) = xKey
xIndex = xIndex + 1
End If
Next
Rng1.Value = OutArr
End Sub
3. cliceáil Rith, an Kutools le haghaidh Excel tagann dialóg duit chun raon a roghnú a theastaíonn uait na sraitheanna nach critéir chomhoiriúnacha a scriosadh. Féach an pictiúr:
4. cliceáil OK, agus tagann dialóg eile amach chun na critéir a roghnú i mbileog eile, féach an scáileán:
5. Anois baintear na sraitheanna uile nach gcomhlíonann na critéir i mbileog eile.
Scrios sraitheanna nach bhfuil ag teacht le critéir ar bhileog eile le Kutools le haghaidh Excel
Má tá cód VBA beagán deacair duit, is féidir leat triail a bhaint as Kutools le haghaidh Excel's Déan comparáid idir Ranges gné.
Kutools le haghaidh Excel Cuimsíonn sé níos mó ná 300 uirlis áisiúil Excel. Saor chun triail a dhéanamh gan aon teorannú i 30 lá. Faigh é anois
1. Roghnaigh an bhileog ar mhaith leat na sraitheanna nach critéir chomhoiriúnacha a scriosadh. Agus cliceáil Kutools > Déan comparáid idir Ranganna. Féach an pictiúr:
2. Sa Déan comparáid idir Ranganna dialóg, cliceáil cnaipe sa Raon B., agus ansin is féidir leat an raon critéar atá uait a roghnú. Féach an pictiúr:
3. Ansin cliceáil OK, ansin ar ais go dtí an Déan comparáid idir Ranganna dialóg, seiceáil Luach Éagsúil agus Roghnaigh sraitheanna iomlána. Féach an pictiúr:
4. cliceáil Ok, agus scoir an Déan comparáid idir Ranganna dialóg. Ansin feiceann tú go roghnaítear na sraitheanna luacha atá difriúil ó na critéir.
5. Cliceáil ar dheis chun cliceáil Scrios ón roghchlár comhthéacs chun na sraitheanna nach bhfuil ag teacht leis na critéir ar bhileog eile a scriosadh.
Cliceáil anseo le haghaidh tuilleadh eolais ar Kutools le haghaidh Excel's Compare Ranges .
Ailt Choibhneasta:
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á!