Questo è VBA, o una macro che potete eseguire sul vostro foglio. Dovete premere alt+F11 per far apparire il prompt di Visual Basic for Application, andare nella vostra cartella di lavoro e right click - insert - module e incollarvi questo codice. Potete poi eseguire il modulo dall'interno di VBA premendo F5. Questa macro si chiama “test”
Sub test()
'define variables
Dim RowNum as long, LastRow As long
'turn off screen updating
Application.ScreenUpdating = False
'start below titles and make full selection of data
RowNum = 2
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
Range("A2", Cells(LastRow, 4)).Select
'For loop for all rows in selection with cells
For Each Row In Selection
With Cells
'if customer name matches
If Cells(RowNum, 1) = Cells(RowNum + 1, 1) Then
'and if customer year matches
If Cells(RowNum, 4) = Cells(RowNum + 1, 4) Then
'move attribute 2 up next to attribute 1 and delete empty line
Cells(RowNum + 1, 3).Copy Destination:=Cells(RowNum, 3)
Rows(RowNum + 1).EntireRow.Delete
End If
End If
End With
'increase rownum for next test
RowNum = RowNum + 1
Next Row
'turn on screen updating
Application.ScreenUpdating = True
End Sub
Questa eseguirà un foglio elettronico ordinato e combinerà righe consecutive che corrispondono sia al cliente che all'anno e cancellerà la riga ora vuota. Il foglio di calcolo deve essere ordinato nel modo in cui lo avete presentato, clienti e anni in ordine crescente, questa particolare macro non guarderà oltre le righe consecutive.
Modifica - è del tutto possibile che il mio with statement sia completamente inutile, ma non fa male a nessuno.
REVISITED 02/28/14
Qualcuno ha usato questa risposta in un'altra domanda e quando sono tornato indietro ho pensato che questo VBA fosse povero. L'ho rifatto -
Sub CombineRowsRevisited()
Dim c As Range
Dim i As Integer
For Each c In Range("A2", Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 1))
If c = c.Offset(1) And c.Offset(,4) = c.Offset(1,4) Then
c.Offset(,3) = c.Offset(1,3)
c.Offset(1).EntireRow.Delete
End If
Next
End Sub
Revisited 05/04/16
Chiesto di nuovo Come combinare valori da più righe in una sola riga? Ho un modulo, ma ho bisogno di spiegare le variabili e di nuovo, è piuttosto povero.
Sub CombineRowsRevisitedAgain()
Dim myCell As Range
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each myCell In Range(Cells("A2"), Cells(lastRow, 1))
If (myCell = myCell.Offset(1)) And (myCell.Offset(0, 4) = myCell.Offset(1, 4)) Then
myCell.Offset(0, 3) = myCell.Offset(1, 3)
myCell.Offset(1).EntireRow.Delete
End If
Next
End Sub
Tuttavia, a seconda del problema, potrebbe essere meglio step -1 su un numero di riga in modo che nulla venga saltato.
Sub CombineRowsRevisitedStep()
Dim currentRow As Long
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For currentRow = lastRow To 2 Step -1
If Cells(currentRow, 1) = Cells(currentRow - 1, 1) And _
Cells(currentRow, 4) = Cells(currentRow - 1, 4) Then
Cells(currentRow - 1, 3) = Cells(currentRow, 3)
Rows(currentRow).EntireRow.Delete
End If
Next
End Sub