Доброго времени суток! Есть скрипт, который меняет значение между выделенными ячейками Увожаемые форумчане, помогите пожалуйста скорректировать код, так, чтобы можно было менять несколько значений в одной строке на несколько в другой: Sub ReValues () If Selection.Count <> 2 Then Exit Sub For Each cell In Selection n = n+1 If n=1 Then Val1 = cell.Value Adr1 = cell.Adress Else Val2 = cell.Value Adr2 = cell.Adress End If Next Range (Adr1) = Val2 Range (Adr2) = Val1 End Sub
Доброго времени суток! Есть скрипт, который меняет значение между выделенными ячейками Увожаемые форумчане, помогите пожалуйста скорректировать код, так, чтобы можно было менять несколько значений в одной строке на несколько в другой: Sub ReValues () If Selection.Count <> 2 Then Exit Sub For Each cell In Selection n = n+1 If n=1 Then Val1 = cell.Value Adr1 = cell.Adress Else Val2 = cell.Value Adr2 = cell.Adress End If Next Range (Adr1) = Val2 Range (Adr2) = Val1 End Subtak_sebe_Dima
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
