Thread: Problem copying array values to worksheet cells

Hi to all,

I have a program where i need to assing array values to worksheet cells.The code is in Excel VBA.
I don't why it is taking lot of time to update 1 row of data.
When i checked the Taskmanager it is taking 50% of Excel.exe.


The sample code is

Code:

With Worksheets("AAA")
    For intCnt = 1 To UBound(myarray)
        For intC = 1 To myrange.Columns.count
            Select Case myrange.Cells(1, intC)
                Case "A"
                    .Cells(intR, intC).Value = intCnt
                Case "B"
                    .Cells(intR, intC).Value = myarray(intCnt).ResName
                Case "C"
                    .Cells(intR, intC).Value = myarray(intCnt).Weeknum
            End Select
        Next
        intR = intR + 1
    Next
 End With

Please let me know how can i handle this in excel vba.

As I said in my reply to your PM, please read the Forum Rules - you must use Code tags when posting code here.

Have you set ll your variables & how?