Moderatori: Anthony47, Flash30005
Se e' un problema semplice allora perche' chiedi a noi??Credo sia un problema semplice....
Sub splitter()
Dim I As Long, J As Long, myBlock As Long, LastA As Long
'
myBlock = 100
'
Sheets(1).Select
LastA = Cells(Rows.Count, "A").End(xlUp).Row
If Worksheets.Count < Int(LastA / myBlock + 2) Then
Sheets.Add After:=Sheets(Sheets.Count), Count:=(LastA / myBlock + 2 - Sheets.Count)
End If
'
For I = 1 To LastA Step myBlock
Sheets(J + 2).Range("A:A").ClearContents
Sheets(J + 2).Range("A1").Resize(myBlock, 1).Value = Range("A1").Offset(J * myBlock, 0).Resize(myBlock, 1).Value
J = J + 1
Next I
End Sub
No, non mi arrabbio...ma se ti dicessi che le colonne che utilizzo sono 2 ? Ti arrabbi molto?
Sheets(J + 2).Range("A1").Resize(myBlock, 1).Value = Sheets(1).Range("A1").Offset(J * myBlock, 0).Resize(myBlock, 1).Value
Torna a Applicazioni Office Windows
Scelta da elenco a discesa che ne apre un altro Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 12 |
formattare una colonnacon numeri senza virgolaSalve Autore: giorgioa |
Forum: Applicazioni Office Windows Risposte: 5 |
Come nascondere I Numeri non Appartenenti Al Mese Deside Autore: Maury170419 |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 29 ospiti