[lxa85]

Julian, лист пустой. Прикрепите другой документ, правильный.

[Julian]

lxa85 , спасибо.
Уже не надо, исправил код.

[Drongo]

Решение для потомков будет озвучено?

[Julian]

Если конечно потомки пожелают

[Drongo]

Вообще-то это правила хорошего тона, нашёл решение - поделись с другими. Согласитесь, неприятно ввест запрос в поисковую систему и найдя аналогичную тему с вопросом, тут же прочитать: спасибо я нашёл сам решение. Не стесняйтесь, здесь все свои.

[Julian]

Уважаемый Drongo, правила это не законы. Я не собираюсь с кем-то делится, если меня даже никто не попросил об этом. Тем более что эту тему я создал для того чтобы помогли мне.
По поводу спасибо я нашел сам решение. Не вижу ничего неприятного. Повторюсь тему создал для того чтобы помогли мне. Я отписался что нашел, потому что не мог удалить эту тему, чтобы люди которые хотят помочь не тратили время зря. Да и тот кому надо как говорится найдет решение.
Вообще-то в правила хорошего тона не входит навязывать своё мнение!

Код:

Sub Procedure_1()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim c() As Double
Dim R() As Double
Dim Rv As Excel.Range
Dim Cv As Excel.Range
   Set Rv = Range("C5:I11")
   Set Cv = Range("C1:I1")
   n = Cv.Columns.Count
ReDim R(1 To n, 1 To n)
ReDim c(1 To n)
 
  For i = 1 To n Step 1
     c(i) = Cv.Cells(1, i).Value
     Next i
     
For i = 1 To n Step 1
   For j = 1 To n Step 1
       If i <= (j + 1) Then
       R(i, j) = Abs(c(i) - 5 * c(j))
       ElseIf i > (j + 1) Then
              R(i, j) = c(i - j) + 4 * Sin(c(i)) - 7 * c(j)
       End If
       Next j
Next i

 For i = 1 To n
   For j = 1 To n
      Rv.Cells(i, j).Value = R(i, j)
    Next j
    Next i
    
End Sub

[Drongo]

Благодарю.