[Spirosgr]

Καλησπέρα.
Αν κατάλαβα καλά,θέλουμε να υπολογίσουμε την απόλυτη τιμή |Χ-1|+|Χ-2|...|Χ-100|
όπου ο Χ θα παίρνει διαδοχικά τιμές 1,2,...100
και για κάθε μια από τις τιμές αυτές, θέλουμε το αποτέλεσμα σε στήλες
από την a=1 και δεξιά (a,b,c....) από το κελί a1,b1,c1... και κάτω.

Μπορείς να χρησιμοποιήσεις τον πιο κάτω κώδικα:

Sub ColumnFill_X()
    Dim x As Integer    'Ο x θα πάρει την τιμή της στήλης
    Dim irow As Integer    'Το irow θα πάρει την τιμή της γραμμής
    Dim iResult As Double    ' Είναι το αποτέλεσμα

    Application.ScreenUpdating = False

    For x = 1 To 100
        For irow = 1 To 100
            iResult = 0
            iResult = x - irow
            Sh1.Cells(irow, x).NumberFormat = "General"
            Sh1.Cells(irow, x).Value = Abs(iResult)
        Next irow
        Sh1.Cells(irow, x).FormulaR1C1 = "=SUM(R[-100]C:R[-1]C)"
    Next x
End Sub

Η γραμμή:
Sh1.Cells(irow, x).FormulaR1C1 = "=SUM(R[-100]C:R[-1]C)"
δίνει το άθροισμα στήλης και είναι προαιρετικό, αν θέλει να την εντάξει κανείς στην ρουτίνα.