| | Post: 3 | Registrato il: 20/03/2017
| Utente Junior | 2013 | | OFFLINE | |
|
07/04/2017 16:33 | |
Buon Pomeriggio, ho un desiderio... di trasformare dei dati incolonnati come l'esempio:
3 4 6
4 3 5
1 4 6
2 6 7
Nella seguente matrice:
0 0 0 3 3 3 0
0 0 4 4 4 0 0
0 0 0 1 1 1 0
0 0 0 0 0 2 2
Vi spiego... I numeri della prima colonna sono quelli da inserire nella matrice partendo dalla posizione indicata nella seconda colonna e terminando nella posizione indicata nella terza colonna. Tutto il resto della matrice deve essere 0. Questo incollato è un esempio, avrei bisogno di apllicare una macro ai miei dati selezionandoli di volta in volta. Mi potete aiutare?? Grazie! |
|
| | Post: 1.974 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
07/04/2017 17:37 | |
ciao
senza utilzzare VBA
ammettiamo i tuoi dati in colonna A valore , B posizione partenza, C pos arrivo su 7 colonne
in D la seguente formula
=TESTO(RIPETI(A1;C1-B1+1)*10^(7-C1);"0 0 0 0 0 0 0")
fatto questo copio la colonna e la incollo su un'altra colonna a piacimento , solo valori
lascio attivato
dalla Ridbon seleziono dati e testo in colonna e il gioco e fatto
allego il file di prova
ciao
Ciao da locate
excel 2007 / 13 |
| | Post: 1.145 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
07/04/2017 17:43 | |
Ciao
mi ci sono sbattuto
e la posto
=SE(E(RIF.COLONNA($A$1)+RIF.COLONNA(A$1)-1>=$C2;RIF.COLONNA($A$1)+RIF.COLONNA(A$1)-1<=$D2);$B2;0)
in G2
tira a dx e in basso
non ci sono limiti di righe o colonne. [Modificato da federico460 07/04/2017 17:45] |
| | Post: 1.975 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
08/04/2017 00:35 | |
ciao
tanto per passare il tempo
ti posto una sub() o Macro da come avevi chiesto
sempre con i tuoi dati in colonna A,B,C
Option Explicit
Sub InMatrice()
Dim i As Long, k As Long
Dim Matrice() As String
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Matrice = Split(Format(Application.Rept(Cells(i, 1), Cells(i, 3) - Cells(i, 2) + 1) _
* Application.Power(10, 7 - Cells(i, 3)), "0 0 0 0 0 0 0"), " ")
For k = LBound(Matrice) To UBound(Matrice)
Cells(i, k + 11) = Matrice(k)
Next k
Next i
End Sub
Ciao da locate
excel 2007 / 13 |
| | Post: 3 | Registrato il: 20/03/2017
| Utente Junior | 2013 | | OFFLINE | |
|
10/04/2017 10:41 | |
Grazie, provo e vi faccio sapere |
| | Post: 4 | Registrato il: 20/03/2017
| Utente Junior | 2013 | | OFFLINE | |
|
10/04/2017 13:00 | |
|
| | Post: 1.149 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
10/04/2017 13:32 | |
ciao
Simona
certo che funziona
che strada hai scelto
formule o macro?
|
|
|