15 lines
330 B
QBasic
15 lines
330 B
QBasic
Attribute VB_Name = "DUPLICATION"
|
|
Sub DUPLICATION()
|
|
With Sheets("SHEET1")
|
|
dl = .Cells(Rows.Count, 1).End(xlUp).Row
|
|
Set ws = Sheets("SHEET2")
|
|
NB = 6
|
|
k = 1
|
|
For i = 1 To dl
|
|
.Cells(i, 1).Copy ws.Cells(k, 1).Resize(NB)
|
|
k = k + NB
|
|
Next i
|
|
End With
|
|
End Sub
|
|
|