» Poradna » Programy

Excel VBA vymazanie prazdnych buniek

 |   | 

Nazdar.
Potrebujem poradit s nasledovnou vecou. Mam dost rozsiahly excelovsky subor v ktorom su udaje rozmiestnene tak ze takmer medzi kazdym riadkom je niekolko medzier. Dokazem tieto medzery odstranit pomocou cyklov ale trva to dost dlho.
Preto by som potreboval vediet ci existuje nejaky prikaz ktory mi da priamo hodnotu poslednej prazdnej buky (bez toho aby ju musel hladat pomocou cyklu).
Dik.

Mohlo by vás také zajímat

Odpovědi na otázku

 |   | 

Ve VBA nalezeni posledniho neprazdneho radku:

last = Sheets("Dane").Cells(Rows.Count, "A").End(xlUp).Row

nebo:

With ws ' list
Set rg = .Range(.Range("A1"), .Cells(Rows.Count, "A").End(xlUp))
      If rg.Rows.Count = Rows.Count Then Set rg = .Range("A1")
End With

odstranit prazdne radky a sloupce (nasel jsem to, ale uz nevim kde):

Option Explicit

Sub DeleteEmptyRows(DeleteRange As Range)
' Deletes all empty rows in DeleteRange
' Example: DeleteEmptyRows Selection
' Example: DeleteEmptyRows Range("1:100")
Dim rCount As Long, r As Long
If DeleteRange Is Nothing Then Exit Sub
If DeleteRange.Areas.Count > 1 Then Exit Sub
With DeleteRange
rCount = .Rows.Count
For r = rCount To 1 Step -1
If Application.CountA(.Rows(r)) = 0 Then
.Rows(r).Delete
End If
Next r
End With
End Sub

Sub DeleteEmptyColumns(DeleteRange As Range)
' Deletes all empty columns in DeleteRange
' Example: DeleteEmptyColumns Selection
' Example: DeleteEmptyColumns Range("A:Z")
Dim cCount As Integer, c As Integer
If DeleteRange Is Nothing Then Exit Sub
If DeleteRange.Areas.Count > 1 Then Exit Sub
With DeleteRange
cCount = .Columns.Count
For c = cCount To 1 Step -1
If Application.CountA(.Columns(c)) = 0 Then
.Columns(c).Delete
End If
Next c
End With
End Sub
Sub delete_rows_columns()

DeleteEmptyRows Selection 'Range("1:20")
DeleteEmptyColumns Selection 'Range("A:L")
Range("A1").Select

End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět


Určitě si přečtěte

Týden Živě: On fakt dnes ještě někdo stahuje filmy z Ulož.to?

Týden Živě: On fakt dnes ještě někdo stahuje filmy z Ulož.to?

** Kauza Ulož.to a proč my dva už (moc) newarezíme ** Windows 10X existují, ale nabízí se otázka proč ** Nissan ukázal vizi kanceláře v podobě karavanu

Jakub Čížek, Vladislav Kluska | 125

Jakub ČížekVladislav Kluska
Týden ŽivěVideo
Jak v prohlížeči vypnout oznámení zasílaná webovými stránkami

Jak v prohlížeči vypnout oznámení zasílaná webovými stránkami

** Obtěžují vás neustálé dotazy webů, zda chcete zobrazovat oznámení? ** Můžete je zakázat, a to jak kompletně, tak i pro jednotlivé stránky ** Připravili jsme návody pro Chrome, Firefox, Edge a Operu

Karel Kilián | 11

Karel Kilián
Jak na InternetTipyProhlížeče
Google chystá funkci, která z chytrého Gmailu udělá hloupý Gmail
Lukáš Václavík
SoukromíGmailGoogle
Co je to UWB? Nová technologie zastoupí Wi-Fi, Bluetooth i NFC a slibuje velké věci

Co je to UWB? Nová technologie zastoupí Wi-Fi, Bluetooth i NFC a slibuje velké věci

** V nových mobilech se začíná objevovat tajemná zkratka UWB ** Jde o další technologii, jak navzájem propojit různá zařízení ** Oproti Wi-Fi a Bluetooth má řadu výhod

Lukáš Václavík | 36

Lukáš Václavík
UWBIoTTechnologie

Aktuální číslo časopisu Computer

Jak prodloužit výdrž notebooku

Velké testy: gamepady a inkoustové tiskárny

Důkladný test Sony Playstation 5