Skip i'r prif gynnwys

Sut i Mewnosod Nifer Penodol o Golofnau ar Gyfnodau Sefydlog yn Excel?

Yn eich defnydd dyddiol o Excel, efallai y byddwch chi'n mynd i sefyllfa y mae angen i chi ei gwneud ychwanegu mwy o golofnau rhwng y colofnau presennol. Gallwch, wrth gwrs, fewnosod y colofnau fesul un gan ddefnyddio'r swyddogaeth Mewnosod. Ond pan fyddwch chi'n wynebu data mawr ac angen mewnosod tair colofn ar ôl pob eiliad neu nfed golofn, mae'n debyg nad yw'r swyddogaeth Mewnosod yn effeithiol. Felly sut allwch chi orffen y dasg yn gyflym? Yn y tiwtorial hwn, byddwn yn siarad am ddau ddull hawdd i ddatrys y broblem.

Mewnosod nifer penodol o golofnau gwag yn yr ystod ddata ar gyfnodau penodol gyda chod VBA

Mewnosodwch nifer penodol o golofnau gwag yn yr ystod ddata ar gyfnodau sefydlog gyda nodwedd anhygoel


Mewnosod nifer penodol o golofnau gwag yn yr ystod ddata ar gyfnodau penodol gyda chod VBA

Gallwn ddefnyddio'r isod Cod VBA i fewnosod nifer penodol o golofnau gwag ar ôl pob nfed colofn. Gwnewch fel a ganlyn.

1. Gwasgwch y Alt + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau a gludwch y macro canlynol yn y Modiwlau Ffenestr.

Cod VBA: Mewnosod nifer penodol o golofnau i mewn i ddata ar gyfnodau penodol

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Gwasgwch y F5 allwedd i redeg y cod hwn. Mae blwch prydlon yn ymddangos i'ch atgoffa i ddewis y ystod data lle rydych chi am fewnosod colofnau gwag.
doc mewnosod-colofnau-ar-ysbeidiau 1

4. Cliciwch ar y OK botwm. Mae blwch prydlon arall yn ymddangos, rhowch nifer y cyfyngau colofnau yn y Rhowch gyfwng colofn blwch.
doc mewnosod-colofnau-ar-ysbeidiau 2

5. Parhewch i glicio ar y OK botwm. Mae'r trydydd blwch prydlon yn ymddangos, nodwch nifer y colofnau rydych chi am eu mewnosod ar bob egwyl yn y blwch.
doc mewnosod-colofnau-ar-ysbeidiau 3

6. Cliciwch ar y OK botwm i gael y canlyniad.
doc mewnosod-colofnau-ar-ysbeidiau 4


Mewnosodwch nifer penodol o golofnau gwag yn yr ystod ddata ar gyfnodau sefydlog gyda nodwedd anhygoel

Os nad ydych am ddefnyddio'r dull cod VBA, mae'r Mewnosod Rhesi a Cholofnau Gwag nodwedd o Kutools ar gyfer Excel yw'r ateb perffaith i chi. Gyda'r nodwedd hon, gallwch chi fewnosod y nifer penodol o golofnau yn yr ystod ddata ar gyfnodau penodol mewn dim ond ychydig o gliciau.

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

1. Dewiswch yr ystod ddata bresennol yn gyntaf. Yna cliciwch Kutools > Mewnosod > Mewnosod Rhesi a Cholofnau Gwag.
doc mewnosod-colofnau-ar-ysbeidiau 5

2. Mae'r Mewnosod Rhesi a Cholofnau Gwag blwch deialog pops up. Gallwch weld yr ystod data a ddewisoch yng ngham 1 yn cael ei harddangos yn y blwch Ystod. Dewiswch y Colofnau gwag opsiwn yn y Teipiwch y math adran. A nodi nifer y cyfyngau colofnau ac colofnau rydych chi am eu mewnosod ar bob egwyl. Yma rwy'n mewnbynnu 1 a 3 ar wahân.
doc mewnosod-colofnau-ar-ysbeidiau 6

3. Cliciwch ar y OK botwm i orffen y gosodiad a chael y canlyniad.
doc mewnosod-colofnau-ar-ysbeidiau 7

Nodyn: Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn unol â'r camau uchod.


Gweithrediadau Eraill (Erthyglau)

Sut i Mewnosod Llinell yn Sy'n Seiliedig ar y Dyddiad Cyfredol yn Gyflym yn Excel?
Gan dybio bod yna ddalen sy'n cynnwys rhes gyda dyddiadau, a nawr rydw i eisiau mewnosod llinell i'r dyddiad cyfredol a fydd yn newid yn awtomatig wrth agor y llyfr gwaith bob dydd. A oes tric y gall ei ddatrys yn Excel?

Sut i Mewnosod Rhes Wag Isod Bob Amser Yn lle Uchod Yn Excel?
Fel y gwyddom i gyd, wrth fewnosod rhes wag mewn taflen waith, bydd y rhes wag bob amser yn cael ei mewnosod uwchben y rhes neu'r gell a ddewiswyd. Ond, weithiau, efallai y bydd angen i chi fewnosod y rhes o dan y gell neu'r rhes a ddewiswyd. Sut allech chi ddatrys y swydd hon yn Excel?

Sut i Mewnosod Rhes Newydd Wag Yn Awtomatig Trwy Fotwm Gorchymyn Yn Excel?
Mewn llawer o achosion, efallai y bydd angen i chi fewnosod rhes newydd wag i safle penodol o'ch taflen waith. Yn yr erthygl hon, byddwn yn dangos i chi sut i fewnosod rhes newydd wag yn awtomatig trwy glicio ar Botwm Gorchymyn yn Excel.

Sut i Mewnosod Rhes Wag Ar ôl Testun Penodol yn Excel?
Os ydych chi am fewnosod rhesi gwag ar ôl testun penodol fel y dangosir y llun isod, sut i ddelio ag ef yn gyflym ac yn hawdd heb eu mewnosod â llaw fesul un?


  • 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 a Cadw Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi Dyblyg a Swm / Cyfartaledd... 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 ...
  • Fformiwlâu Hoff a Mewnosod yn Gyflym, Meysydd, Siartiau a Lluniau; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • 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...
  • Grwpio Tabl Pivot yn ôl rhif wythnos, diwrnod o'r wythnos a mwy ... Dangos Celloedd Datgloi, wedi'u Cloi yn ôl gwahanol liwiau; Amlygu Celloedd sydd â Fformiwla / Enw...
tab kte 201905
  • 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
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations