Страницы: 1
RSS
Как умножить элементы 2-х массивов, а результаты вывести в третий
 
Здравствуйте!
Помогите решить задачу:
Имеется два массива данных в столбце А и В. В массиве возможны пустые строки, нули  или текст.
Нужно перемножить массивы построчно и записать результат в третий массив для дальнейших расчетов. И вывести его в столбец С, чтобы посмотреть как прошло вычисление. Как можно такое организовать?
 
см.вложение
с Вашими данными - результаты умножения неутешительны(((
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Решение с помощью макроса. Без каких-либо циклов, проверок и сравнений:
Код
Sub MyMultiply()
    Dim x As Range: Application.ScreenUpdating = False
    Set x = Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
    x.Offset(, 1).Value = x.Value
    x.Offset(, -1).Copy
    x.Offset(, 1).PasteSpecial xlPasteValues, xlMultiply
    On Error Resume Next 'На случай, если нет ячеек с текстом
    x.Offset(, 1).SpecialCells(2, 2).ClearContents
    On Error GoTo 0
End Sub
Пример во вложении. Откройте файл и выполните макрос "MyMultiply".
Чем шире угол зрения, тем он тупее.
 
Если массив нужен
=IFERROR(A1:A75*SUBSTITUTE(B1:B75;".";MID(1/2;2;1));"")

Если нет, то просто =IFERROR(A1*SUBSTITUTE(B1;".";MID(1/2;2;1));"") и протянуть.
По вопросам из тем форума, личку не читаю.
 
название темы:
как умножить элементы 2-х массивов, а результаты вывести в третий
Изменено: Ігор Гончаренко - 16.10.2019 10:10:34
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Благодарю!
 
maerkovp.o, здравствуйте!
Решение макросом
Альтернативное название темы: Перемножить 2 столбца со смешанными данными
Изменено: Jack Famous - 16.10.2019 12:39:08
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Страницы: 1
Наверх