Ciao a tutti..
scusate il disturbo, ma non ci vengo fuori...
ho un file con in prima colonna un numero progressivo non continuo da 1 a n,
la macro ce ho scritto formatta il file una volta importato, aggiunge una colonna vuota e crea una serie progressiva continua da 1 a n.
Lo scopo del gioco, in cui ho miseramente fallito, è confrontare la colonna B con la colonna A e traslare i dati in B man mano che si trovano le corrispondenze.
1,1,
2,3,
3,5,
4,8,
5,10,
ecc ecc
dovrebbe diventare
1,1,
2,
3,3,
4,
5,5,
6,
7,
8,8,
ecc ecc
il file è http://www.filedropper.com/test_2
oltre la colonna B ne esisto altre che vanno traslate assieme alla B...
se qualcuno ha qualche idea... please help me! ;-)
GRAZIE MILLE IN ANTICIPO!!
a fatica sono riuscito a scrivere:
Sub provaArianna()
'
' provaAri Macro
'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1))
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
' lastrow: numero di colonne, lastvalue: valore dell'ultima cella, nocord: numero di righe che risulteranno vuote
Dim lastrow As Long
Dim lastvalue As Long
Dim nocord As Long
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
lastvalue = Cells(Rows.Count, 2).End(xlUp).Value
Range("L1").Select
ActiveCell = lastrow
Range("L2").Select
ActiveCell = lastvalue
Range("L3").Select
ActiveCell.Formula = lastvalue - lastrow
nocord = Range("L3").Value
MsgBox "The number of traces are:" & lastrow
MsgBox "The value of last trace:" & lastvalue
MsgBox "Number of traces without coordinates" & nocord
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A1").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=Range("L2").Value, Trend:=False
' Commentare questo codice per impedire alla macro di cancellare la colonna con le informazioni sul numero di tracce ecc
Columns("L").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub