Thread: Converting a simple macro to applescript

Hi,

I have a very simple excel macro that save me a lot of time each day, and I would like to convert it to AppleScript so I can use them in Excel 2008 for Mac.

I am apparantly technologically challenged, and although I somehow managed to create a working macro some time ago, I can't seem to figure out how to convert it to applescript.. Can you wonderful people out there help me?

The macro is for putting several columns into one, and it looks like this:

Code:

Sub ToOneColumn()
    Dim i As Long, k As Long, j As Integer
    Application.ScreenUpdating = False
    Columns(1).Insert
    i = 0
    k = 1
    While Not IsEmpty(Cells(k, 2))
        j = 2
        While Not IsEmpty(Cells(k, j))
            i = i + 1
            Cells(i, 1) = Cells(k, j)
            Cells(k, j).Clear
            j = j + 1
        Wend
        k = k + 1
    Wend
    Application.ScreenUpdating = True
End Sub