Moderatori: Anthony47, Flash30005
Sub AMille()
Dim cShN As Long, fStep As Long, iPos As Range
Dim I As Long, stCnt As Long
'
Set iPos = Sheets("IDati").Range("A1") '<<< Inizio dei dati da splittare
fStep = 1000 '<<< Quante righe per ogni foglio
'
cShN = Sheets.Count
Application.Goto iPos
For I = 1 To iPos.Offset(100000, 0).End(xlUp).Row Step fStep
Sheets.Add after:=Sheets(cShN + stCnt)
iPos.Offset(stCnt * fStep).Resize(fStep, 1).Copy Destination:=Sheets(cShN + stCnt + 1).Range("A1")
stCnt = stCnt + 1
Range("C1").Value = Evaluate("TEXTJOIN("", "",TRUE,A1:A" & fStep + 10 & ")")
Next I
Application.CutCopyMode = False
MsgBox ("Completato, " & stCnt & " nuovi fogli")
End Sub
' stCnt = stCnt + 1
Sheets(cShN + stCnt + 1).Range("C1").Value = "''" & Evaluate("TEXTJOIN(""', '"",TRUE,A1:A" & fStep + 10 & ")") & "'"
stCnt = stCnt + 1
Sub AMille()
Dim cShN As Long, fStep As Long, iPos As Range
Dim I As Long, stCnt As Long
'
Set iPos = Sheets("Foglio1").Range("A1") '<<< Inizio dei dati da splittare
fStep = 1000 '<<< Quante righe per ogni foglio
'
cShN = Sheets.Count
Application.Goto iPos
For I = 1 To iPos.Offset(100000, 0).End(xlUp).Row Step fStep
Sheets.Add after:=Sheets(cShN + stCnt)
iPos.Offset(stCnt * fStep).Resize(fStep, 1).Copy Destination:=Sheets(cShN + stCnt + 1).Range("A1")
' stCnt = stCnt + 1
' Range("C1").Value = Evaluate("TEXTJOIN("", "",TRUE,A1:A" & fStep + 10 & ")")
Sheets(cShN + stCnt + 1).Range("C1").Value = "'" & Evaluate("TEXTJOIN(""', '"",TRUE,A1:A" & fStep + 10 & ")") & "'"
stCnt = stCnt + 1
Next I
Application.CutCopyMode = False
MsgBox ("Completato, " & stCnt & " nuovi fogli")
End Sub
Range("C1").Formula = "=""'""&TEXTJOIN("", '"",TRUE,A1:A" & fStep + 10 & ")&""'"""
Range("C1").Formula = "=""'""&TEXTJOIN(""', '"",TRUE,A1:A" & fStep + 10 & ")&""'"""
Torna a Applicazioni Office Windows
Come evidenziare aree separate di un foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 18 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Ricky0185 e 8 ospiti