devo eseguire su EXCEL la macro che copio di seguito.
La macro elimina le righe nelle quali coincide la parte iniziale, fino ai caratteri ".)".
Dovrei modificarla in modo che, prima di eliminare le righe, memorizzi la stringa che segue dopo ".)" nella riga che rimane.
Ad esempio, delle tre righe
accordo : (com.) concertación.
accordo : (com.) concierto.
accordo : (com.) iguala.
dovrà rimanere una sola riga:
accordo : (com.) concertación, concierto, iguala.
La macro è questa (l'ho provata, funziona):
- Codice: Seleziona tutto
Sub elimina_righe()
'
' elimina_righe Macro
'
Dim cell As Range, CellsToSuppr As Range, derLi As Long
Application.ScreenUpdating = False
derLi = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To derLi
If Left(Cells(i, 3), InStr(Cells(i, 3), ".)")) = Left(Cells(i + 1, 3), InStr(Cells(i + 1, 3), ".)")) Then
If CellsToSuppr Is Nothing Then
Set CellsToSuppr = Cells(i + 1, 3)
Else: Set CellsToSuppr = Union(CellsToSuppr, Cells(i + 1, 3))
End If
End If
Next i
If Not CellsToSuppr Is Nothing Then CellsToSuppr.EntireRow.Delete
End Sub
Qualcuno potrebbe aiutarmi a fare la modifica necessaria?
Grazie!