Генерирование таблицы Виженера (tabula recta)

[Justteddy]

Здравствуйте. Задание у меня следующее: Необходимо забить в ячейки excel все английские символы и знаки (с 32 по 127 таблицы ASCII), при чем забить по принципу таблицы виженера, то есть каждая новая строка алфавита сдвигается влево, а первые символы переносятся в конец.
Я пробовал получается так, что пол таблицы правильно генерируется, а половина нет.
Кто сталкивался или знает как нужно там организовать циклы помогите пожалуйста! вот исходники:


Private Sub CommandButton1_Click()
Dim i, j, n, p, x As Integer

'Создание шапки таблицы
j = 2
For i = 32 To 127
Cells(1, j) = Chr(i)
Cells(j, 1) = Chr(i)
j = j + 1
Next i


'Заполнение содержимым

For j = 2 To 97

p = j - 1
x = 97
n = 2
For i = 32 To 127
If p >= 2 Then
Cells(j, x) = Chr(Abs(i - j))
x = x - 1
Cells(j, n) = Chr(i)
n = n + 1
Else
Cells(j, p) = Chr(i)
End If
Next i
Next j
End Sub

[MCH]

так что ли?

Sub Vigenere()
Dim i&, j&
For j = 1 To 96
    For i = 1 To 96
        Cells(j, i) = Chr((i + j - 2) Mod 96 + 32)
Next i, j
End Sub

[Justteddy]

Здорово! Спасибо, только вот вопрос:
Что если в Excel у меня первый стобец и первая строка это шапка таблицы, и в нее забивать значения нельзя, как это написать?

[Justteddy]

Все, вопрос снят, разобрался! Спасибо огромное!