Прошу помощи, в написании маленького скриптика, а именно: Если в столбце 8 в ячейке в строке, значение равно столбцу 10 в тойже строке, в ячейке, то скопировать из ячейки столбца 7 данной строки, значение в столбец 8 в ячейку этойже строки.
Прошу помощи, в написании маленького скриптика, а именно: Если в столбце 8 в ячейке в строке, значение равно столбцу 10 в тойже строке, в ячейке, то скопировать из ячейки столбца 7 данной строки, значение в столбец 8 в ячейку этойже строки.wwizard
Sub www() Application.ReferenceStyle = xlA1:[h1:h7] = [IF(h1:h7=j1:j7,g1:g7,h1:h7)] End Sub
[/vba]
[vba]
Код
Public Sub www() Dim a, i&, r As Range Set r = Sheets(1).[a1].CurrentRegion.Columns(1).Resize(, 11) a = r.Value For i = 1 To UBound(a) a(i, 8) = IIf(a(i, 8) = a(i, 10), a(i, 7), a(i, 8)) Next r = a End Sub
[/vba]
Ну если коротко, то так: [vba]
Код
Sub www() Application.ReferenceStyle = xlA1:[h1:h7] = [IF(h1:h7=j1:j7,g1:g7,h1:h7)] End Sub
[/vba]
[vba]
Код
Public Sub www() Dim a, i&, r As Range Set r = Sheets(1).[a1].CurrentRegion.Columns(1).Resize(, 11) a = r.Value For i = 1 To UBound(a) a(i, 8) = IIf(a(i, 8) = a(i, 10), a(i, 7), a(i, 8)) Next r = a End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
