Kezdőlap › Fórumok › Excel témák › Összefűz kritérium alapján › Hozzászólás: Összefűz kritérium alapján
2023-12-23-14:04
#10328
Szia!
Írtam egy makrót.
Sub osszefuzes()
Dim sor As Integer, szoveg As String
sor = 2
Do While Cells(sor, 1) <> ""
If Cells(sor, 1) <> Cells(sor - 1, 1) And Cells(sor, 1) <> Cells(sor + 1, 1) Then
Cells(sor, 3) = Cells(sor, 2): sor = sor + 1
End If
If Cells(sor + 1, 1) = Cells(sor, 1) Then
If szoveg = "" Then szoveg = Cells(sor, 2)
szoveg = szoveg & "]-[" & Cells(sor + 1, 2)
Else
Cells(sor, 3) = szoveg
szoveg = ""
End If
sor = sor + 1
Loop
End Sub
Alt+F11-re bejön a VB szerkesztő. Itt beszúrás (insert), modul (module). A jobb oldalon kapott üres felületre bemásolod a makrót. Makróbarátként kell elmentened a füzetet.
A jobb áttekinthetőség kedvéért minden azonosítónál csak az alsó sorba írattam ki az eredményt.
Indítás a füzetben: az Alt+F8-ra megjelenő ablakban indítod az osszefuzes nevűt.
Üdv,
Delila