Moderatori: Anthony47, Flash30005
Sub boh()
Dim Start As Range, oRan As Range
Dim wArr, I As Long, J As Long, K As Long
Dim oArr(), iOar As Long
'
Set Start = Range("C4") '<<< Dove cominciano i dati di partenza
Set oRan = Range("H4") '<<< Dove scrivere i risultati
'
wArr = Range(Start, Start.End(xlDown)).Resize(, 5).Value
ReDim oArr(1 To UBound(wArr), 1 To 10)
For I = 1 To UBound(wArr)
iOar = 1
For J = 1 To UBound(wArr, 2) - 1
For k = J + 1 To UBound(wArr, 2)
oArr(I, iOar) = wArr(I, J) - wArr(I, k)
iOar = iOar + 1
Next k
Next J
Next I
oRan.Resize(UBound(wArr), 10) = oArr
End Sub
Io avrei usato ABS:solo una aggiunta che nella sottrazione deve prendere il numero + grande e sottrarre il + piccolo
oArr(I, iOar) = Abs(wArr(I, J) - wArr(I, K))
alla riga abs potresti aggiungere il valore di riga di colonna A?
oArr(I, iOar) = Abs(wArr(I, J) - wArr(I, K)) + Start.Cells(I, 1).Row
Torna a Applicazioni Office Windows
Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Macro per aprire file salvato su sharepoint Onedrive Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 2 |
Come interrompere macro sndPlaySound Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 8 ospiti