Práce v listu - řádky sloupce - VBA Excel

Úvodem

Pro přehlednost v hledání a orientaci v tomto článku jsou kapitoly seřazeny dle obsahu:

• Přidat / Vložit
  • Řádky
  • Sloupce
• Smazat, odstranit jen formáty, text
  • Řádky
  • Sloupce
• Zobrazit / skrýt
  • Řádky
  • Sloupce
• Výška a šířka
  • Řádky
  • Sloupce
• Označovat vybírat
  • Řádky
  • Sloupce
• Upravit řádky sloupce
  • Řádky
  • Sloupce
• Informace
• posuny / změny
• Tipy triky
• Související články
• Ke stažení

Přidat / Vložit

Jak přidávat řádky a sloupce využitím Excel VBA, opět několik příkladů.

Řádky vložit (přidat)

Jeden přes Range, Rows, Cells

Range("A9").EntireRow.Insert Rows("9").EntireRow.Insert Cells(9, 1).EntireRow.Insert

Více řádků

Rows("12:13").EntireRow.Insert Range("A9:A10").EntireRow.Insert

Jak vkládat jinak

Rows(8).Insert Shift:=xlDown, _ CopyOrigin:=xlFormatFromLeftOrAbove

Sloupce vkládat, přidávat

Jeden sloupec vložení

Range("D4").EntireColumn.Insert Columns("E").EntireColumn.Insert Cells(9, 6).EntireColumn.Insert

Vložení více sloupců

Range("G:I").EntireColumn.Insert

Jak vkládat sloupce jinak, lépe

Columns("H:H").Insert Shift:=xlToRight, _ CopyOrigin:=xlFormatFromLeftOrAbove '' ještě bude více rozpracováno

Tip

Pozor co máte v paměti (Ctrl + C) z předchozích akcí! Hlavně při testování! Tip klávesa Esc přes spuštěním VBA kódu.

Smazat, odstranit

Smazat sloupec nebo řádek, můžete tak, že ho odstraníte, smažete obsah nebo formáty.

• .Delete
• .Clear
• .ClearContents
• .ClearFormats

Řádky

Jak mazat řádky

Range("A40:A41").EntireRow.Delete Rows(6).Delete Rows(2:3).Delete Rows(2).Delete Shift:=xlShiftUp Selection.EntireRow.Delete

Mazání formátu atd.

'' maže jen data Rows(2).ClearContents Rows(2).Clear '' maže jen formáty Rows(2).ClearFormats

Sloupce

Mazání sloupců

Range("F2").EntireColumn.Delete Columns(7).EntireColumn.Delete Selection.EntireRow.Delete

Neodstraňovat sloupec jen texty nebo formáty

Columns(13).ClearContents Columns(13).Clear Columns(13).ClearFormats

Zobrazit / skrýt

Jak na skrývání a zobrazování řádků.

Řádky

Jak zobrazovat a skrývat řádky:

Rows("5:6").EntireColumn.Hidden = True Rows("5:6").EntireColumn.Hidden = False

Sloupec

Jak zobrazovat a skrývat sloupce:

Columns("B:D").EntireColumn.Hidden = True Columns("B:D").EntireColumn.Hidden = False

Tip

Možno vložit i do jednoho kódu kdy se zobrazí skryjí. Pozor skrývat lze jen když je list (sešit) odemknut.

Výška a šířka

Jak na výšku a šířku sloupců.

Řádky

Jak na výšku řádků. Případně jak zjistit aktuální výšku vybraného řádku:

Rows(3).RowHeight = 25 Rows(2).AutoFit RangeHeight = ActiveSheet.Range("B1").Height

Sloupce

Jak na šířku sloupců, případně jak zjistit šířku aktuálního sloupce:

Columns("B").ColumnWidth = 25 Columns(2).AutoFit RangeWidth = ActiveSheet.Range("B1").Width

Označovat vybírat řádky a sloupce

Řádky

Jak označit vybraný řádek

Rows(66).Select Range("B66").EntireRow.Select ActiveCell.EntireRow.Select

Jiný list

Worksheets(3).Activate Worksheets(3).Rows(6).Select ' Možno využít i název listu, kodové označení listu

Sloupce

Jak na sloupce a jejich označování

Columns(6).Select Range("A2").EntireColumn.Select ActiveCell.EntireColumn.Select Worksheets(3).Activate Worksheets(3).Columns(6).Select ' Možno využít i název listu, kodové označení listu

• Řádky
• Sloupce

Upravit řádky sloupce

Například podbarvení řádku, a další

Řádky

V ukázce je pouze podbarvení řádku, podobně lze upravit písmo, ohraničení atd.

Rows(68).Interior.Color = vbYellow '' Lze využít i RGB model pozadí, měnit písma atd.

Ukázka jak zabarvit sudý a lichá řádek, barva je jen pro ukázku, pro své praktické potřeby si zvolte svou z RGB palety.

' Tip testovat v prázdném listě ' Ať si nepřebarvíte poznámky Dim Rng As Range Dim i As Long Set Rng = Range(Cells(1, 1), Cells(15, 5)) For i = 1 To Rng.Rows.Count If i Mod 2 = 0 Then Rng.Rows(i).Interior.Color = RGB(255, 0, 255) Else Rng.Rows(i).Interior.Color = RGB(255, 255, 0) End If Next i

Sloupce

Jak zabarvit sloupec

Columns(2).Interior.Color = vbYellow '' Lze využít i RGB model pozadí, měnit písma atd.

Ukázka jak zabarvit sudý a lichá sloupec, barva je jen pro ukázku, pro své praktické potřeby si zvolte svou z RGB palety

' Tip testovat v prázdném listě Dim Rng As Range Dim i As Long Set Rng = Range(Cells(1, 1), Cells(5, 5)) For i = 1 To Rng.Columns.Count If i Mod 2 = 0 Then Rng.Columns(i).Interior.Color = RGB(255, 0, 0) Else Rng.Columns(i).Interior.Color = RGB(0, 255, 0) End If Next i

Informace

Jak na počet řádků

Dim Rng As Range Set Rng = Range(Cells(1, 1), Cells(15, 5)) MsgBox (Rng.Rows.Count)

Jak na počet sloupců

Dim Rng As Range Set Rng = Range(Cells(1, 1), Cells(15, 5)) MsgBox (Rng.Columns.Count)

Poznámky pod čarou

MsgBox ActiveCell.Address MsgBox Cells(5, 2).Row

Posuny

Jak u označování řádku a sloupců využít POSUN - Offset

' označit řádek o jeden níže Range("H108").EntireRow.Offset(1, 0).Select

Sloupce

Range("H108").EntireColumn.Offset(0, 1).Select ' lze místo SELECT použít i Insert .... ' Range("H108").EntireColumn.Offset(0, 1).Insert

Tipy triky

Přidávat a mazat řádky sloupce po označení lze Ctrl + +, nebo Ctrl + -

Označovat řádky a sloupce Ctrl + mezerník a Shift + Mezerník

Související články

Pokud se chcete o řídcích a loupcích dozvědět více. Můžete pokračovat například:

• Řádky a sloupce - užitečné kódy Excel VBA
• Přečti údaj z v buňky
• Oblasti, buňky, označování

Ke stažení

Soubor ke stažení zdarma je v přípravě.

Tipy triky

Závěrem, napadá vás co lze do článku doplnit? Máte nějaký trik co používate? Můžete zmínit v komentařích ať podklady upravím.

Článek byl aktualizován: 19.09.2020 11:06

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.