DigDB.xlam
+
Sub Merge()
Dim ws As Worksheet
ActiveSheet.UsedRange.Offset(0).Clear
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then
ws.UsedRange.Copy
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next
End Sub
timmy: Ako ti je ovo resenje onda nisi dobro postavio pitanje.
Pozdrav
Mozhda nije uradjeno sve u jednom koraku, ali postupak mozhe da se iskoristi kada se ima proflem sa velikim brojem file-ova ili kada se ima problem sa velikim brojem worksweet-ovima......