Telefonszámunk: 1-472-0679

Hozzászólás: cellaérték hasonlítása, sorbeszúrás, szummázás

Kezdőlap Fórumok Excel programozás cellaérték hasonlítása, sorbeszúrás, szummázás Hozzászólás: cellaérték hasonlítása, sorbeszúrás, szummázás

#3271
delila
Felhasználó

    Így oldanám meg (Horvimiétől kicsit eltérő módon):

    Sub Beszuras()
        Dim sor As Long, kezd As Long, f As Boolean
        
        sor = 1: f = False
        Do While Cells(sor, 1) > ""
            If Not f Then
                kezd = sor: f = True
            End If
            If Cells(sor + 1, 1) <> Cells(sor, 1) Then
                Rows(sor + 1).EntireRow.Insert
                Cells(sor + 1, 1) = "Összesen:"
                Cells(sor + 1, 2) = "=sum(B" & kezd & ":B" & sor & ")"
                Range(Cells(sor + 1, 1), Cells(sor + 1, 2)).Font.Bold = True
                sor = sor + 2
                f = False
            Else
                sor = sor + 1
            End If
        Loop
    End Sub
    • A hozzászólás módosításra került: 7 years, 2 months telt el-delila.