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

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.
tab kte 201905

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!
gwaelod officetab
sylwadau (12)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
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.
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
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.
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.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a yw'n bosibl gwneud hyn gydag enwau colofnau lluosog?
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
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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os yw'r penawdau'n dechrau o'r 4edd rhes
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

Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch am eich cywiro a rhannu. 
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
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
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL