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
2016-12-23-10:04
#3271
Í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: 8 years, 1 month telt el-
delila.