Indsæt i synlige celler

VBA-koden anbringes "under" ark1

Dim fra_Ark As Worksheet, fra_AntalRæk As Integer, fra_Ræk As Integer
Dim til_Ræk As Integer

Sub kopieringTilSynlige()
    Set fra_Ark = ActiveWorkbook.Sheets("Ark6")        '<---- tilpas arkNavn
    fra_AntalRæk = fra_Ark.Cells(Rows.Count, "A").End(xlUp).Row
   
    til_Ræk = 1
   
    For fra_Ræk = 1 To fra_AntalRæk
        If ActiveSheet.Rows(til_Ræk).Hidden = True Then
            Do
                til_Ræk = til_Ræk + 1
            Loop While ActiveSheet.Rows(til_Ræk).Hidden = True
        End If
       
        fra_Ark.Range(fra_Ræk & ":" & fra_Ræk).Copy
        ActiveSheet.Rows(til_Ræk).Select
        ActiveSheet.Paste
        til_Ræk = til_Ræk + 1
    Next fra_Ræk
End Sub

Hej,

Start med at markere de kolonnen med de data du vil kopiere fra.

Under knappen 'Søg og vælg' kan man vælge 'Gå til speciel'.
Herunder kan du vælge 'Kun synlige celler'. Det er nu kun synlige celler som er valgt, og du kan kopiere og sætte ind derefter.

Ovenstående er ihvertfald gældende i Excel 2010. Har du en anden version, kan det være at menuen er lidt anderledes.