Makro til formatering

I denne video vises det hvordan en Makro kan anvendes til at lave en bestemt formattering.
45

http://www.youtube.com/watch?v=nzQnX8QiTjU&feature=related

Makro til tilretning af importeret fil

Det kan nogle gange give problemer at importere filer til Excel, denne video viser hvordan man kan løse problemet med en makro. 

46
http://www.youtube.com/watch?v=hJJiyh43Yq0

Hvis man ikke synes at det er sjovt at sidde og taste ctrl + a, så kan man lave denne makro. Her behøver man kun at taste ctrl + a en gang for hver 1000 linie.
-----------------------------------------------------------------------------
Sub Makro7()

Dim i As Integer
'
For i = 1 To 1000

        ActiveCell.Offset(1, 0).Range("A1").Select
        Selection.Cut
        ActiveCell.Offset(-1, 0).Range("A1").Select
        ActiveSheet.Paste
        ActiveCell.Offset(1, 2).Range("A1").Select
        Selection.Cut
        ActiveCell.Offset(-1, 0).Range("A1").Select
        ActiveSheet.Paste
        ActiveCell.Offset(1, 2).Range("A1").Select
        Selection.Cut
        ActiveCell.Offset(-1, 0).Range("A1").Select
        ActiveSheet.Paste
        ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
        Selection.Delete Shift:=xlUp
        ActiveCell.Select
   
    Next
End Sub