Здравствуйте.Даны 2 таблицы.В первую таблицу вводятся исходные данные номер позиции диагонали откуда она начинается .Во второй таблице ищется номер.И при нахождения этого номера выстраивается диагональ и в диагонали меняются только числа 0 на 2 .Еденицы не меняются. И при удаления чисел в таблице №1 все возвращалось все как было .То есть в таблице №2 число 2 менялось на 0.Заранее спасибо за ответ
Я извиняюсь. Не правильно вопрос наверное поставил.Мне пользователь Inexsu код написал.Который отлично работает.Но что надо в коде изменить ,чтоб он выделял бы не строку ,а диагональ. Вот код
Код
Option Explicit
Sub Менять_InExSu()
Dim r As Range
Dim i As Long, x As Long, el As Long
With ActiveSheet
'определяю диапазон
Set r = Range(.Cells(4, 13), Cells(16, 18))
'и произвожу в нём замену
r.Replace 2, 1
'определяю диапазон
Set r = Range(.Cells(3, 13), .Cells(3, 18))
For i = 4 To 11 'номера строк в примере
el = .Cells(i, 5)
If el > 0 Then _
r.Offset(el, 0).Replace 1, 2 'заменяю в диапазоне
Next
End With
End Sub