Sut i ddileu colofnau cyfan yn seiliedig ar werth pennawd yn Excel?

Mewn llawer o achosion, efallai y bydd angen i chi ddileu'r colofnau cyfan yn seiliedig ar werth pennawd yn Excel. Er enghraifft, mae angen i chi ddileu'r holl golofnau sy'n cynnwys gwerth “hen” yn y pennawd. Yn y tiwtorial hwn, byddwn yn dangos i chi ddulliau o ddileu colofnau cyfan yn seiliedig ar werth pennawd mewn manylion.

Dileu colofnau cyfan yn seiliedig ar werth pennawd gyda chod VBA
Dileu colofnau cyfan yn seiliedig ar werth pennawd gyda Kutools ar gyfer Excel

Dileu colofnau cyfan yn seiliedig ar werth pennawd gyda chod VBA

Gallwch ddileu colofnau cyfan yn seiliedig ar werth pennawd gyda chod VBA. Gwnewch fel a ganlyn.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Cymhwysiad Sylfaenol Gweledol Microsoft ffenestr.

2. Yn y Cymhwysiad Sylfaenol Gweledol Microsoft ffenestr, cliciwch Mewnosod > Modiwlau. Ac yna copïo a gludo islaw'r cod i mewn i ffenestr y Modiwl.

Cod VBA: dileu colofnau cyfan yn seiliedig ar werth pennawd

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

Nodiadau:

1) yn y cod, “hen”Yw'r gwerth pennawd rydych chi am ddileu'r golofn gyfan yn seiliedig arno. Newidiwch i'ch gwerth pennawd â llaw. Ac A1: D1 yw'r ystod golofn rydych chi am ei defnyddio.

2) Mae'r cod hwn yn achos-sensitif.

3. Gwasgwch y F5 allwedd i redeg y cod, bydd y golofn gyfan gyda phennawd sy'n hafal i'r testun penodedig yn cael ei dileu ar unwaith.

Dileu colofnau cyfan yn seiliedig ar werth pennawd gyda Kutools ar gyfer Excel

gyda Kutools ar gyfer Excel'S Dewiswch Gelloedd Penodol cyfleustodau, gallwch yn hawdd ddewis pob colofn sy'n cynnwys y gwerth pennawd penodol yn gyntaf, ac yna dileu'r colofnau dethol hyn ar unwaith. Gwnewch fel a ganlyn.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Dewiswch yr ystod sy'n cynnwys y colofnau y mae angen i chi eu dileu, ac yna cliciwch Kutools > dewiswch > Dewiswch Gelloedd Penodol. Gweler y screenshot:

2. Yn y Dewiswch Gelloedd Penodol blwch deialog, dewiswch y Colofn gyfan opsiwn yn y Math o ddewis adran, ac yn yr Math penodol rhestr ostwng, dewiswch Equals opsiwn, yna teipiwch y gwerth pennawd yn y blwch canlynol. Ac yn olaf cliciwch y OK botwm. Gweler y screenshot:

3. Cliciwch ar y OK botwm mewn blwch deialog popio arall, yna dewisir y colofnau sy'n cynnwys gwerth pennawd penodol ar unwaith.

4. De-gliciwch pennawd colofn y golofn a ddewiswyd, ac yna cliciwch Dileu o'r ddewislen clicio ar y dde. Yna caiff yr holl golofnau a ddewiswyd eu dileu ar unwaith.

Os ydych chi am gael treial am ddim (30-day) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.

Read More ... Lawrlwythiad Am Ddim... Prynu ...

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!

Read More ... Lawrlwythiad Am Ddim... Prynu ...

sylwadau (12)

Dim sgôr eto. Byddwch y cyntaf i sgorio!

Leonard Staggs

tua 5 o flynyddoedd yn ôl

#19816

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Mae'n ddrwg gennyf os yw hyn yn ymddangos yn hynod sylfaenol ond dyma'r tro cyntaf i mi roi cynnig ar vba. Gan ddefnyddio hyn, sut byddwn yn ei gymhwyso i ddileu penawdau colofn lluosog. Mewn gwirionedd rwy'n ceisio cadw rhai colofnau pennawd yn unig a dileu gweddill rhestr newidiol.

ateb

hynafiad Leonard Staggs

tua blwyddyn yn ôl

#19817

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Yn y cod cyntaf, copïwch y 4edd rhes a newidiwch yr "hen" i enw'r ail golofn a bydd yn gweithio

ateb

Elias

tua 4 o flynyddoedd yn ôl

#26882

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Hei! Mae hyn yn gweithio'n dda nes bod gennych ddwy golofn gyffiniol gyda'r un pennawd. Dywedwch mai eich amrediad yw A1:A5, a bod gan A2 ac A3 y pennawd 'hen'. Bydd yn dileu A2, ond yna bydd yr A3 yn symud i'r lle yr arferai A2 ei feddiannu, a bydd y cod yn ei hepgor, gan y bydd yn edrych ar yr A3 newydd, y gell nesaf ar ei amrediad.

ateb

grisial Elias

tua 4 o flynyddoedd yn ôl

#26883

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Helo Elias,
Fel y soniasoch, mae gan A2 ac A3 yr un pennawd "hen". Ond maen nhw yn yr un golofn, ar ôl cymhwyso'r cod, bydd y golofn A gyfan yn cael ei dileu ar unwaith.
Nid wyf yn siŵr a gaf eich pwynt. Byddai'n braf pe gallech ddarparu sgrinlun o'r hyn yr ydych yn ceisio ei wneud.

ateb

adroddiad

Mark

tua 2 o flynyddoedd yn ôl

#32598

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Helo, a yw'n bosibl gwneud hyn gydag enwau colofnau lluosog?

ateb

grisial Mark

tua 2 o flynyddoedd yn ôl

#32599

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Helo Mark,
Rhowch gynnig ar y cod isod. Yn yr wythfed llinell, amgaewch enw pob colofn gyda dyfyniadau dwbl a gwahanwch nhw gyda choma. Gobeithio y gallaf helpu. Diolch.

Is-ddileu ColofnSpecifc()

Dim xFNum, xFFNum, xCyfrif Fel Cyfanrif

Dim xStr Fel Llinyn

Dim xArrName Fel Amrywiad

Dim MR, xRg Fel Ystod

Ar Ail-ddechrau Gwall Nesaf

Gosod MR = Ystod ("A1: N1")

xArrName = Arae ("hen", "newydd", "get") 'amgaewch enw pob colofn gyda dyfyniadau dwbl a'u gwahanu gan atalnod

xCount = MR.Cyfrif

xStr = xArrName(xFNum)

Ar gyfer xFFNum = xCyfrif I 1 Cam -1

Gosod xRg = Celloedd(1, xFFNum)

Ar gyfer xFNum = 0 I UBound(xArrName)

xStr = xArrName(xFNum)

Os yw xRg.Value = xStr Yna xRg.EntireColumn.Delete

xFNum nesaf

Digwyddiadau

Is-End

ateb

adroddiad

Paul Rod grisial

tua blwyddyn yn ôl

#32600

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Rwy'n meddwl bod angen newid llinell 12 i gael y cod i weithio. Llinell wreiddiol 12 "Set xRg = Cells(1, xFFNum)" llinell wedi'i haddasu 12 "Gosod xRg = MR(1, xFFNum)"
Is-ddileu ColofnSpecifc()
Dim xFNum, xFFNum, xCyfrif Fel Cyfanrif
Dim xStr Fel Llinyn
Dim xArrName Fel Amrywiad
Dim MR, xRg Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Gosod MR = Ystod ("A1: N1")
xArrName = Arae ("hen", "newydd", "get") 'amgaewch enw pob colofn gyda dyfyniadau dwbl a'u gwahanu gan atalnod
xCount = MR.Cyfrif
xStr = xArrName(xFNum)
Ar gyfer xFFNum = xCyfrif I 1 Cam -1
Gosod xRg = MR(1, xFFNum)
Ar gyfer xFNum = 0 I UBound(xArrName)
xStr = xArrName(xFNum)
Os yw xRg.Value = xStr Yna xRg.EntireColumn.Delete
xFNum nesaf
Digwyddiadau
Is-End

ateb

Rahul Mark

tua blwyddyn yn ôl

#32601

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Beth os yw'r penawdau'n dechrau o'r 4edd rhes

ateb

Jonathan

tua blwyddyn yn ôl

#35388

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Mae enghraifft VBA yn nodi y bydd y cod yn dileu pob colofn y mae ei benawdau YN CYNNWYS "hen." Nid yw hynny'n wir. Bydd y gweithredwr = ond yn dileu'r union gyfatebiaethau. Mae angen i chi ddefnyddio'r gweithredwr LIKE gyda cerdyn gwyllt.
Cod sefydlog: Is DileuSpecifcColumn()
Gosod MR = Ystod ("A1: D1")
Ar gyfer Pob cell Yn MR
Os yw cell.Value HOFFI "hen*" Yna cell.EntireColumn.Delete
Digwyddiadau
Is-End

ateb

grisial Jonathan

tua blwyddyn yn ôl

#35389

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Helo, Diolch am eich cywiro a rhannu.

ateb

adroddiad

Resnic

tua 9 mis yn ôl

#37833

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Helo, mae'r un peth yn rhagori gyda varios datos, digamos 4 colofn a 12 o ddarnau, mi fyddan nhw'n rhoi'r gorau i'r gwaith o baratoi'r ffeil, ac mae'r rhain wedi'u gwahanu oddi wrth un o'r planhigion, ac mae'r rhain yn gywir, yn cynnwys XNUMX colofnau a XNUMX darn, ac mae'r rhain yn cael eu hargymell. fel y mae'n well na'r arfer, mae'n inte tado varias cosas pero no encuentro la forma. Gracias de antemano

ateb

grisial Resnic

tua 9 mis yn ôl

#37838

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Heia,
Os ydych chi eisiau argraffu pob rhes mewn tudalen ar wahân yn y daflen waith, dyma awgrym i chi fewnosod toriadau tudalen bob 1 rhes ac yna eu hargraffu.
Efallai y bydd y dulliau a ddarperir yn yr erthygl hon yn gwneud ffafr i chi. Rhowch gynnig arni. Diolch.
Sut i Mewnosod Toriad Tudalen Bob X Rhes Yn Excel?[/url]
https://www.extendoffice.com/documents/excel/1774-excel-insert-page-break-every-row.html

ateb

adroddiad

Nid oes unrhyw sylwadau wedi'u postio yma eto

Gadewch eich sylwadau

Postio fel Gwestai

Mewngofnodi

Enw (Angenrheidiol)

E-bost (Angenrheidiol)

Graddiwch y swydd hon:

Ailosod

0 Cymeriadau

Cytunaf â'r telerau a chyflwr