di giorgioa » 12/10/15 10:47
Salve,
da un lavoro di Anthony47,
alla griglia, nel mio file, è stato dato nome Freq_Comb
e comprende celle: X6:GEF9 Foglio1
si potrebbe adattare questo codice a quanto chiesto?
se ho capito bene il funzionamento:
Sub myFab2()
Dim WArr, LC2 As Long, I As Long, myMatch, R As Long
'
For R = 2 To Cells(Rows.Count, 1).End(xlUp).Row
LC2 = Cells(R, Columns.Count).End(xlToLeft).Column
WArr = Range("A" & R).Resize(1, LC2).Value
Range("A" & R).Resize(1, LC2).ClearContents
For I = LBound(WArr, 2) To UBound(WArr, 2)
myMatch = Application.Match(WArr(1, I), Range("1:1"), 0)
If Not IsError(myMatch) Then
Cells(R, myMatch) = WArr(1, I)
End If
Next I
Next R
'
End Sub
Quindi i dati sarebbero, 4 per colonna, spostati/allineati da colonna X, y ecc di
quelli presenti nell'area menzionata
Mi andrebbe bene.
Ciao
NB per amministratore. Avevo postato il presente messaggio in un'altro topic