Note: The other languages of the website are Google-translated. Back to English

Conas colúin iomlána a scriosadh bunaithe ar luach ceanntásca in Excel?

In a lán cásanna, b’fhéidir go mbeidh ort na colúin iomlána a scriosadh bunaithe ar luach ceanntásca in Excel. Mar shampla, ní mór duit gach colún ina bhfuil luach “sean” sa cheanntásc a scriosadh. Sa rang teagaisc seo, taispeánfaimid modhanna duit chun colúin iomlána a scriosadh bunaithe ar luach ceanntásca i mionsonraí.

Scrios na colúin iomlána bunaithe ar luach ceanntásca le cód VBA
Scrios na colúin iomlána bunaithe ar luach ceanntásca le Kutools for Excel


Scrios na colúin iomlána bunaithe ar luach ceanntásca le cód VBA

Is féidir leat colúin iomlána a scriosadh bunaithe ar luach ceanntásca le cód VBA. Déan mar a leanas le do thoil.

1. Brúigh Eile + F11 eochracha ag an am céanna chun an Feidhmchlár Bunúsach Amharc Microsoft fhuinneog.

2. Sa Feidhmchlár Bunúsach Amharc Microsoft fuinneog, cliceáil Ionsáigh > Modúil. Agus ansin cóipeáil agus greamaigh an cód thíos i bhfuinneog an Mhodúil.

Cód VBA: scrios na colúin iomlána bunaithe ar luach ceanntásca

Sub DeleteSpecifcColumn()
	Set MR = Range("A1:D1")
	For Each cell In MR
		If cell.Value = "old" Then cell.EntireColumn.Delete
	Next
End Sub

nótaí:

1) sa chód, “d'aois"Is é an luach ceanntásca ar mhaith leat an colún iomlán a scriosadh bunaithe air. Athraigh do luach ceanntásca de láimh le do thoil. Agus A1: D1 an raon colún is mian leat a úsáid.
2) Tá an cód seo cás-íogair.

3. Brúigh an F5 eochair chun an cód a rith, scriosfar an colún iomlán le ceanntásc atá cothrom leis an téacs sonraithe láithreach.


Scrios na colúin iomlána bunaithe ar luach ceanntásca le Kutools for Excel

Le Kutools le haghaidh Excel'S Roghnaigh Cealla Sonracha fóntais, is féidir leat gach colún ina bhfuil an luach ceanntásca áirithe a roghnú ar dtús, agus ansin na colúin roghnaithe seo a scriosadh ag an am céanna. Déan mar a leanas le do thoil.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

1. Roghnaigh an raon ina bhfuil na colúin a chaithfidh tú a scriosadh, agus ansin cliceáil Kutools > Roghnaigh > Roghnaigh Cealla Sonracha. Féach an pictiúr:

2. Sa Roghnaigh Cealla Sonracha bosca dialóige, roghnaigh an Colún iomlán rogha sa Cineál roghnúcháin alt, agus sa Cineál sonrach liosta anuas, roghnaigh Cothrom rogha, ansin clóscríobh an luach ceanntásca sa bhosca seo a leanas. Agus ar deireadh cliceáil ar an OK cnaipe. Féach an pictiúr:

3. Cliceáil ar an OK cnaipe i mbosca dialóige aníos eile, ansin roghnaítear na colúin ina bhfuil luach ceanntásc sonraithe láithreach.

4. Cliceáil ar dheis ar cheanntásc an cholúin de cholún roghnaithe, agus ansin cliceáil Scrios ón roghchlár cliceáil ar dheis. Ansin scriostar gach colún roghnaithe ag an am céanna.

  Más mian leat triail saor in aisce a bheith agat (30-lá) den áirgiúlacht seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (12)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá brón orm má tá cuma sárbhunúsach air seo ach is é seo mo chéad uair ag iarraidh vba. Agus é seo á úsáid agam conas a chuirfinn i bhfeidhm é chun ceanntásca iolracha a scriosadh. Tá mé ag iarraidh i ndáiríre a choinneáil ach amháin colúin ceanntásca áirithe agus a scriosadh an chuid eile de liosta atá ag athrú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Sa chéad chód cóipeáil an 4ú sraith agus athraigh an "sean" isteach san ainm dara colún agus oibreoidh sé
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hey! Oibríonn sé seo go maith go dtí go bhfuil dhá cholún tadhlach agat leis an gceanntásc céanna. Abair gurb é A1:A5 do raon, agus tá an ceanntásc ‘sean’ ag A2 agus A3. Scriosfaidh sé A2, ach ansin bogfaidh an A3 go dtí an áit A2 a úsáidtear chun áitiú, agus scipfidh an cód é, mar go mbeidh sé ag féachaint ar an A3 nua, an chéad chill eile ar a raon.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Elias,
Mar a luaigh tú, tá an ceannteideal céanna "sean" ag A2 agus A3. Ach tá siad sa cholún céanna, tar éis an cód a chur i bhfeidhm, bainfear an colún A ar fad láithreach.
Níl mé cinnte an bhfaighidh mé do phointe. Bheadh ​​sé go deas dá bhféadfá gabháil scáileáin den méid atá tú ag iarraidh a dhéanamh a sholáthar.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an féidir é seo a dhéanamh le hainmneacha colúin iolracha?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Bain triail as an gcód thíos. San ochtú líne, cuir ainm gach colúin faoi iamh le comharthaí athfhriotail dhúbailte agus scar le camóg iad. Tá súil agam gur féidir liom cabhrú. Go raibh maith agat.

Fo-ScriosColún Sonrach()

Dim xFNum, xFFNum, xCount As Slánuimhir

Dim xStr Mar Teaghrán

Dim xArrName Mar Athrú

Dim MR, xRg Mar Raon

Ar Lean Earráid Aghaidh

Socraigh MR = Raon ("A1: N1")

xArrName = Eagar ("sean", "nua", "faigh") 'cuir ainm gach colúin faoi iamh le comharthaí athfhriotail dhúbailte agus scar le camóg iad

xCount = MR.Count

xStr = xArrName(xFNum)

Le haghaidh xFFNum = xCount To 1 Step -1

Socraigh xRg = Cealla(1, xFFNum)

Le haghaidh xFNum = 0 Go UBound(xArrName)

xStr = xArrName(xFNum)

Má tá xRg.Value = xStr Ansin xRg.EntireColumn.Delete

An Chéad xFNum seo chugainn

Ar Aghaidh

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Sílim go bhfuil gá líne 12 a athrú le go n-oibreoidh an cód. Bunlíne 12 "Socraigh xRg = Cealla(1, xFFNum)" líne modhnaithe 12 "Socraigh xRg = MR(1, xFFNum)"
Fo-ScriosColún Sonrach()
Dim xFNum, xFFNum, xCount As Slánuimhir
Dim xStr Mar Teaghrán
Dim xArrName Mar Athrú
Dim MR, xRg Mar Raon
Ar Lean Earráid Aghaidh
Socraigh MR = Raon ("A1: N1")
xArrName = Eagar ("sean", "nua", "faigh") 'cuir ainm gach colúin faoi iamh le comharthaí athfhriotail dhúbailte agus scar le camóg iad
xCount = MR.Count
xStr = xArrName(xFNum)
Le haghaidh xFFNum = xCount To 1 Step -1
Socraigh xRg = MR(1, xFFNum)
Le haghaidh xFNum = 0 Go UBound(xArrName)
xStr = xArrName(xFNum)
Má tá xRg.Value = xStr Ansin xRg.EntireColumn.Delete
An Chéad xFNum seo chugainn
Ar Aghaidh
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cad a tharlaíonn má tá na ceanntásca ag tosú ón 4ú sraith
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Deir an sampla VBA go scriosfaidh an cód na colúin go léir a bhfuil "sean." Ní mar sin atá an scéal. Ní scriosfaidh an t-oibreoir ach cluichí cruinne. Ní mór duit an t-oibreoir LIKE a úsáid le saoróg.
Cód seasta: Fo ScriosSpecifcColumn()
Socraigh MR = Raon ("A1: D1")
Do Gach cill I MR
Más maith le cill.Luach "sean*" Ansin cill.EntireColumn.Scrios
Ar Aghaidh
Fo Deireadh

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, go raibh maith agat as do cheartú agus a roinnt. 
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá an chuid is mó de excel le cineálacha éagsúla sonraí, digamos 4 colún agus 12 filí, is féidir liom a chur ar fáil do gach ceann de na fóilió a scaradh ó na plandaí, tá sé cinnte, tá sé seo mar aon le hainmneacha éagsúla agus apellidos agus teileafóin, ach amháin le haghaidh iarratas. mar gheall ar an doiciméad seo a fheabhas, tá sé in ann varias cosas pero no encuentro la forma. Gracias as antemano
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Más mian leat gach ró a phriontáil ar leathanach ar leith sa bhileog oibre, seo moladh duit sosanna leathanach a chur isteach i ngach sraith 1 agus iad a phriontáil ansin.
Féadfaidh modhanna dá bhforáiltear san Airteagal seo a dhéanamh i bhfabhar duit. Bain triail as, le do thoil. Go raibh maith agat.
Conas Briseadh Leathanach Gach X Sraith a chur isteach in Excel?[/url]
https://www.extendoffice.com/documents/excel/1774-excel-insert-page-break-every-row.html
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL