none
Copiar Matriz en Hoja Excel

    問題

  • Buen dia (VB7)

    Necesito guardar valores de un rango de celdas (El rango es aleatorio, asi que pegare todas las simulaciones), calcular el promedio de cada rango y pegar, tanto el rango como el promedio, en una matriz(o si es mejor en 2, pues en 2). Despues de esto necesito pegar esa matriz en una hoja diferente de Excel.

    Tengo un codigo, y segun yo guarda el rango y el promedio (el pormedio lo guarda 8 veces("D56"), para que esten al mismo nivel), pero no se si cada vez que va por el trae uno diferente.

    Sub Pegar()
    Dim Resultados()
    For Var = 1 To 60000
        Resultados = Worksheets("Simulación").Range("D56:D63")
        For Vec = 1 To 8
            Matriz(2) = WorksheetFunction.Average(Worksheets("Simulación").Range("D56"))
            Next Vec
        Next Var
    
    End Sub
    2013年9月2日 下午 02:19