Добрый день.

Помогите, ПОЖАЛУЙСТА, сделать задание в эксель.
Файл приложил, особенно интересует задание 2 и задание 3.
Очень горит, должен сегодня до 16:00 сдать

Читал правила....вот что успел сделать на текущий момент...
второе задание доделаю...

первое задание на воображение...

но вот VBA для меня - темный лес...

Народ, помогите разобраться в VBA коде

авторSub test() Задаем процедуру

Dim wsh As Worksheet, wsr As Worksheet, analitika1 As String, analitika2 As String, mass, i As Long, j As Long, k As Long, strCount As Long Задаем переменные

Set wsh = Sheets("задание 3")
Set wsr = Sheets("задание 3.1")
analitika1 = wsh.Range("C5").Value Присваиваем переменной analitika1 значение из ячейки С5???
analitika2 = wsh.Range("C6").Value Аналогично

mass = wsh.Range("A8").CurrentRegion.Value
strCount = UBound(mass, 1) - 1

For j = 4 To UBound(mass, 2)
For i = 2 To UBound(mass, 1)
For k = 1 To strCount + 1
If k = 1 Then
wsr.Cells((j - 4) * strCount + (i - 1), k) = analitika1
ElseIf k = 2 Then
wsr.Cells((j - 4) * strCount + (i - 1), k) = analitika2
ElseIf k = strCount Then
wsr.Cells((j - 4) * strCount + (i - 1), k) = mass(i, j)
ElseIf k = strCount + 1 Then
wsr.Cells((j - 4) * strCount + (i - 1), k) = mass(1, j)
Else
wsr.Cells((j - 4) * strCount + (i - 1), k) = mass(i, k - 2)
End If
Next
Next
Next

End Sub

Окей, не ясно, что делает цикл...

авторSub test() Задаем процедуру

Dim wsh As Worksheet, wsr As Worksheet, analitika1 As String, analitika2 As String, mass, i As Long, j As Long, k As Long, strCount As Long Задаем переменные

Set wsh = Sheets("задание 3")
Set wsr = Sheets("задание 3.1")
analitika1 = wsh.Range("C5").Value Присваиваем переменной analitika1 значение из ячейки С5???
analitika2 = wsh.Range("C6").Value Аналогично

mass = wsh.Range("A8").CurrentRegion.Value
strCount = UBound(mass, 1) - 1

For j = 4 To UBound(mass, 2)
For i = 2 To UBound(mass, 1)
For k = 1 To strCount + 1
If k = 1 Then
wsr.Cells((j - 4) * strCount + (i - 1), k) = analitika1
ElseIf k = 2 Then
wsr.Cells((j - 4) * strCount + (i - 1), k) = analitika2
ElseIf k = strCount Then
wsr.Cells((j - 4) * strCount + (i - 1), k) = mass(i, j)
ElseIf k = strCount + 1 Then
wsr.Cells((j - 4) * strCount + (i - 1), k) = mass(1, j)
Else
wsr.Cells((j - 4) * strCount + (i - 1), k) = mass(i, k - 2)
End If
Next
Next
Next

End Sub

авторзаполняет ячейки различными значениями
боюсь такой ответ не прокатит, когда меня будут спрашивать (