Skip i'r prif gynnwys

Sut i ddewis pob nawfed golofn yn Excel?

Er enghraifft, mae gennych daflen waith fawr gyda channoedd o golofnau o ddata. Ac yn awr, mae angen i chi gopïo pob data 3edd golofn a'u pastio i daflen waith newydd arall. Bydd yn cymryd llawer o amser i ddewis pob nawfed golofn fesul un, ac a oes unrhyw ffordd hawdd i'w wneud?

Dewiswch bob nawfed golofn gyda VBA

Dewiswch bob nfed colofn gyda Kutools ar gyfer Excel


swigen dde glas saeth Dewiswch bob nawfed golofn gyda VBA

Nid yw'n ymddangos yn ffordd syml ac eithrio cod VBA i ddatrys y broblem hon. Gwnewch y camau canlynol:

1. Tynnwch sylw at yr ystod rydych chi am ei dewis bob nawfed golofn.

2.Click Datblygwr > Visual Basic neu wasg Alt + F11, Newydd Microsoft Visual Basic ar gyfer cymwysiadau ffenestr yn cael ei harddangos, cliciwch Mewnosod > Modiwlau i fewnbynnu'r cod canlynol i'r Modiwl:

 

Sub EveryOtherColumn()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter column interval", xTitleId, Type:=1)
For i = 1 To InputRng.Columns.Count Step xInterval + 1
    Set rng = InputRng.Cells(1, i)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireColumn.Select
End Sub

3. Yna cliciwch  botwm i redeg y cod, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis ystod i weithio gyda hi. Gweler y screenshot:

 

4. Cliciwch OK, ac yna nodwch nifer yr ysbeidiau yn y dialog naidlen arall. Yn yr achos hwn, nodwch 3 yn y blwch. Gweler y screenshot:

5. Cliciwch OK. Nawr mae'n dewis pob 3edd golofn yn y dewis. Gweler y screenshot:

Nodyn: Gallwch chi nodi'r rhif yn yr ail Kutoolsorexcel deialog i ddiwallu eich angen.

Ond weithiau, mae angen i chi ddewis dwy golofn gyda dwy egwyl. Ni all y cod uchod weithio, sut ddylech chi wneud?


Dewiswch bob nfed colofn gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Ei gael Nawr.

Gyda Kutools ar gyfer Excel, gallwch ddewis nifer benodol o golofnau ar gyfnodau penodol. Gwnewch y camau canlynol:

1.Click Kutools > Dewiswch Offer > Dewiswch Rhesi / Colofnau Cyfnod, gweler y screenshot:

2. Mae'r Dewiswch Rhesi / Colofnau Cyfnod bydd blwch deialog yn ymddangos. Yna cliciwch botwm i ddewis yr ystod sydd ei hangen arnoch chi, dewiswch colofnau o Dewiswch adran, a nodwch y rhif rydych chi ei eisiau yn y Cyfnod o ac colofnau rhestr ostwng, yma rydym yn dewis dwy golofn ym mhob colofn 3td. Gweler y screenshot:

3.Click OK. Bydd yn dewis dwy golofn gyda dwy egwyl yn y dewis. Gweler y screenshot:

Nodyn: Os gwiriwch Dewiswch golofnau cyfan yn y dialog naidlen, bydd yn dewis y colofnau cyfan yn y ddalen. Gweler y screenshot:


Erthyglau cymharol:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have one issue in excel, for example, in a row first five sells are numbered as 1,2,3, 4,5. in the second row also numbered as 1,2,3,4,5 in each sell. then to the third row need to paste the values of above two rows alternatively. means i need answer in each sells in third row 1,1,2,2,3,3,4,4,5,5. how can I do easily in excel? I am waiting for your response because I need to complete big datasheet.
This comment was minimized by the moderator on the site
i need to copy from f18 to h19, then f21 to h22, and it goes on till 500 values and before the value in h column need to add text also

like f18 = 345

in h19 I should get = tdg 345

for 500 values in h column.

please help me someone
This comment was minimized by the moderator on the site
This macro sucks dont waste your time
This comment was minimized by the moderator on the site
For some reason this does not work if only one row is selected.
This comment was minimized by the moderator on the site
Excel 2010 - Select interval column command does not work. There is no any raction after clicking - ok
This comment was minimized by the moderator on the site
I always get an error: invalid procedure... How can I solve it. I want to select every 4th column in my dataset
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations