Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » articles-in-english » rows-columns-practical-examples-excel-vba

Rows, Columns - practical examples Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Work with rows and columns in Excel - first, last, condition, delete, insert, mark, ...

List of practical examples

MS Excel 2010 - tip logo

Number of rows, columns

The total number of rows in a workbook

NumbersRows = Rows.Count MsgBox NumbersRows

The total number of columns in a workbook

NumbersColumns = Columns.Count MsgBox NumbersColumns

The first empty row

Using the cycle:

For RowsNmb = 1 To 65536 If Cells(RowsNmb, 1) = "" Then 'find columns A FirstEmptyRow = RowsNmb Exit For End If Next RowsNmb MsgBox "The first empty row: " & FirstEmptyRow End Sub

Better VBA code without cycle:

LastFullRow = Range("A1").End(xlDown).Row ' find columns A FirstEmptyRow = LastFullRow + 1 MsgBox "The first empty row: " & FirstEmptyRow

Is filled the first two rows? If not (check):

If Range("A1") = "" Then FirstEmptyRow = 1 MsgBox FirstEmptyRow ElseIf Range("A2") = "" Then FirstEmptyRow = 2 MsgBox FirstEmptyRow Else FirstEmptyRow = Range("A1").End(xlDown).Row + 1 MsgBox FirstEmptyRow End If

The last full row

We count from the end.

LastFullRow = Cells(Rows.Count, "B").End(xlUp).Row ' find columns B MsgBox "Last full row have Number: " & LastFullRow

Note: Check the last cell in the row.

Find the first empty column

FirstEmptyColumn = Range("A1").End(xlToRight).Column ' row 1 FirstEmptyColumn = FirstEmptyColumn + 1 MsgBox "First empty column is: " & FirstEmptyColumn

The last full column

LastFullColumn = Cells(2, Columns.Count).End(xlToLeft).Column ' row 2 MsgBox "The last full column is: " & LastFullColumn

Finding the last full cells

Dim PosledniSloupec As Integer Dim PosledniRadek As Long If WorksheetFunction.CountA(Cells) > 0 Then PosledniRadek = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row PosledniSloupec = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column MsgBox ("The last full cells row is: " & PosledniRadek & " column is: " & PosledniSloupec) Else MsgBox ("Blank sheet") End If

Marking rows with the required condition

Dim PosledniRadek As Long, i As Long Dim OznacOblast As Range With Sheets("Sheet1") PosledniRadek = .Range("A" & .rows.Count).End(xlUp).Row For i = 1 To PosledniRadek If Len(Trim(.Range("A" & i).Value)) <> 0 Then If OznacOblast Is Nothing Then Set OznacOblast = .rows(i) Else Set OznacOblast = Union(OznacOblast, .rows(i)) End If End If Next If Not OznacOblast Is Nothing Then ' This area can be copied ... 'OznacOblast.Copy Sheets("List2").Rows(1) OznacOblast.Select End If End With

Marking column with the required condition

In preparation.

Deleting empty rows

Blank lines, is deleted.

' area for deletion ' For i = 30 To 27 Step -1 If StrComp("", Cells(i, "A").Value) = 0 Then MsgBox i Rows(i).Delete End If Next i

Finish

Additional codes in preparation

Článek byl aktualizován: 08.02.2015 19:31

Donate

For further development of this web site.

Thank you for donations.


Pavel Lasák - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2000 (od 2004 ne této doméně) - Roku 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 také na on-line videích pro SEDUO. Školím a konzultuji, učím na MUNI. Hlavně tvořím tento web. Je zde k dispozici přes 1.000 návodu, tipů a triků včetně stovek různých šablon, sešitů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


Komentáře zatím nejsou

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







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2017 | 3654

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.