Hitta tomma rader & kolumner

Hitta första tomma raden & Kolumnen

I detta tips demonstreras en teknik för att hitta den första tomma raden eller tomma kolumnen i ett arbetsblad.

Även om det finns mellanrum mellan cellerna med data markeras den första cellen i den tomma raden eller kolumnen efter det sista cellområde.

Option Explicit

Sub Hitta_Nasta_Tomrad()
'© 2002 Alla rättigheter XL-Dennis
Dim rnOmrade As Range
Dim lnNastarad As Long
Dim i As Integer

Set rnOmrade = ActiveSheet.UsedRange.Columns(1).Cells
'Här dimensioneras cellområdet om mht antal använda rader.
Set rnOmrade = rnOmrade.Resize(rnOmrade.Rows.Count + 1, 1)

lnNastarad = rnOmrade.Rows(rnOmrade.Rows.Count).Row

For i = rnOmrade.Rows(rnOmrade.Rows.Count).Row To 1 Step -1
         If Application.CountA(rnOmrade(i).EntireRow) = 0 Then
             lnNastarad = i
         Else
            Exit For
         End If
Next i

Range("A" & lnNastarad).Select
End Sub

Sub Hitta_Nasta_TomKolumn()
'© 2002 Alla rättigheter XL-Dennis
Dim rnOmrade As Range
Dim iNastaKolumn As Long
Dim i As Integer

Set rnOmrade = ActiveSheet.UsedRange.Rows(1).Cells
'Här dimensioneras cellområdet om mht antal använda kolumner.
Set rnOmrade = rnOmrade.Resize(1, rnOmrade.Columns.Count + 1)

iNastaKolumn = rnOmrade.Columns(rnOmrade.Columns.Count).Column

For i = rnOmrade.Columns(rnOmrade.Columns.Count).Column To 1 Step -1
          If Application.CountA(rnOmrade(i).EntireColumn) = 0 Then
              iNastaKolumn = i
          Else
              Exit For
          End If
Next i

Cells(1, iNastaKolumn).Select
End Sub