Ինչպե՞ս զետեղել սյունակների որոշակի քանակ ֆիքսված ընդմիջումներով Excel-ում:

Excel-ի ամենօրյա օգտագործման ժամանակ դուք կարող եք բախվել այնպիսի իրավիճակի, որը ձեզ անհրաժեշտ է ավելացրեք ավելի շատ սյունակներ առկա սյունակների միջև. Դուք, իհարկե, կարող եք տեղադրել սյունակները մեկ առ մեկ՝ օգտագործելով Insert ֆունկցիան: Բայց երբ դուք բախվում եք մեծ տվյալների և պետք է յուրաքանչյուր երկրորդ կամ n-րդ սյունակից հետո երեք սյունակ տեղադրեք, Ներդիր ֆունկցիան, ըստ երևույթին, արդյունավետ չէ: Այսպիսով, ինչպե՞ս կարող եք արագ ավարտել առաջադրանքը: Այս ձեռնարկում մենք կխոսենք խնդիրը լուծելու երկու հեշտ մեթոդների մասին:

Տեղադրեք որոշակի քանակությամբ դատարկ սյունակներ տվյալների տիրույթում ֆիքսված ընդմիջումներով VBA կոդով

Տեղադրեք որոշակի քանակությամբ դատարկ սյունակներ տվյալների տիրույթում ֆիքսված ընդմիջումներով զարմանալի հատկանիշով

Մենք կարող ենք օգտագործել ստորև VBA կոդ յուրաքանչյուր n-րդ սյունակից հետո որոշակի թվով դատարկ սյունակներ տեղադրելու համար: Խնդրում ենք անել հետևյալը.

1. Սեղմեք Alt + F11 Excel- ի ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ և տեղադրեք հետևյալ մակրոը Մոդուլներ Պատուհանը:

VBA կոդ. ֆիքսված պարբերականությամբ տվյալների մեջ տեղադրեք սյունակների որոշակի քանակ

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. Սեղմեք F5 այս կոդը գործարկելու բանալին: Պարզվում է հուշման տուփ, որը հիշեցնում է ձեզ ընտրել տվյալների տիրույթ որոնցում ցանկանում եք տեղադրել դատարկ սյունակներ:

4. Սեղմեք OK կոճակը։ Մեկ այլ հուշման տուփ դուրս է գալիս, խնդրում ենք մուտքագրել սյունակների միջակայքերի քանակը է Մուտքագրեք սյունակի միջակայքը տուփ:

5. Շարունակեք սեղմել OK կոճակը։ Երրորդ հուշման տուփը դուրս է գալիս, խնդրում ենք նշել սյունակների քանակը, որոնք ցանկանում եք տեղադրել յուրաքանչյուր ընդմիջումով վանդակում:

6. Սեղմեք OK կոճակը՝ արդյունքը ստանալու համար:

Եթե ​​դուք չեք ցանկանում օգտագործել VBA կոդի մեթոդը, ապա Տեղադրեք դատարկ շարքեր և սյունակներ առանձնահատկությունը Excel- ի համար նախատեսված գործիքներ կատարյալ լուծում է ձեզ համար: Այս հատկանիշով դուք կարող եք որոշակի քանակությամբ սյունակներ տեղադրել տվյալների տիրույթում ֆիքսված ընդմիջումներով ընդամենը մի քանի կտտոցով:

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում ենք նախ ներբեռնել և տեղադրել այն:

1. Նախ ընտրեք առկա տվյալների տիրույթը: Այնուհետեւ սեղմեք Կուտոլս > Տեղադրել > Տեղադրեք դատարկ շարքեր և սյունակներ.

2. The Տեղադրեք դատարկ շարքեր և սյունակներ երկխոսության տուփը հայտնվում է: Դուք կարող եք տեսնել 1-ին քայլում ձեր ընտրած տվյալների տիրույթը, որը ցուցադրվում է Range վանդակում: Ընտրեք Դատարկ սյուններ տարբերակը Տեղադրեք տիպը Բաժին. Եվ նշեք սյունակների միջակայքերի քանակը և սյունակներ, որոնք ցանկանում եք տեղադրել յուրաքանչյուր ընդմիջումով. Այստեղ ես առանձին մուտքագրում եմ 1-ը և 3-ը:

3. Սեղմեք OK կոճակը՝ կարգավորումն ավարտելու և արդյունքը ստանալու համար:

ՆշումԵթե ​​ցանկանում եք ունենալ այս կոմունալ ծրագրի անվճար փորձարկումը (30 օր), խնդրում ենք սեղմել՝ այն ներբեռնելու համար, այնուհետև գնացեք՝ կիրառելու գործողությունը վերը նշված քայլերի համաձայն:

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները և տվյալների պահում; Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերն ու գումարը / միջինը... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Սիրված և արագ ներդիր բանաձևեր, Ընդգրկույթներ, գծապատկերներ և նկարներ; Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Առանցք սեղանի խմբավորում ըստ շաբաթվա համարը, շաբաթվա օրը և ավելին ... Showույց տալ ապակողպված, կողպված բջիջները տարբեր գույներով; Նշեք այն բջիջները, որոնք ունեն բանաձև / անուն...

Կարդալ ավելին... Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում... Գնեք ... 

---

Office Tab - բերում է ներդիրավորված ինտերֆեյս Office- ին և շատ ավելի դյուրինացնում ձեր աշխատանքը

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում... Գնեք ...