Здравствуйте. Помогите пожалуйста. Есть Н-ое количество строк со значениями. Файлик прикрепил. Желтым в файле выделены столбцы, с которыми работаем. Коричневые ячейки = ИТОГ.
Нужно заполнить столбец "Y2" следующим образом:
Код
Y2=(A2+B2+C2+D2+E2+G2+H2+I2)
ИЗ A2,B2,C2,D2,E2,G2,H2,I2Доступно только для пользователей [p.s.]Важно, чтобы не было двойных пробелов, тк в некоторых ячейках может быть "пусто".
И еще нужно заполнить значение"Z2" следующим образом:
Код
Z2=A2+B2+C2+D2+E2+G2+H2+I2
Важно, чтобы не было двойных пробелов, тк в некоторых ячейках может быть "пусто". Тут по сути тоже самое, только "плюсуем" все значения, а не только до запятой.
Здравствуйте. Помогите пожалуйста. Есть Н-ое количество строк со значениями. Файлик прикрепил. Желтым в файле выделены столбцы, с которыми работаем. Коричневые ячейки = ИТОГ.
Нужно заполнить столбец "Y2" следующим образом:
Код
Y2=(A2+B2+C2+D2+E2+G2+H2+I2)
ИЗ A2,B2,C2,D2,E2,G2,H2,I2Доступно только для пользователей [p.s.]Важно, чтобы не было двойных пробелов, тк в некоторых ячейках может быть "пусто".
И еще нужно заполнить значение"Z2" следующим образом:
Код
Z2=A2+B2+C2+D2+E2+G2+H2+I2
Важно, чтобы не было двойных пробелов, тк в некоторых ячейках может быть "пусто". Тут по сути тоже самое, только "плюсуем" все значения, а не только до запятой.JIexa_74
Function concat_val(rng As Range, Optional first_part As Boolean = False) Dim res$, tmp res = "" For Each area In rng.Areas For Each cell In area txt = Trim(cell.Value) If first_part Then tmp = Split(cell.Value, ",") If UBound(tmp) > 0 Then txt = tmp(0) End If If txt <> "" Then res = res & " " & txt End If Next Next area concat_val = Trim(res) End Function
[/vba]
JIexa_74, можно через udf: [vba]
Код
Function concat_val(rng As Range, Optional first_part As Boolean = False) Dim res$, tmp res = "" For Each area In rng.Areas For Each cell In area txt = Trim(cell.Value) If first_part Then tmp = Split(cell.Value, ",") If UBound(tmp) > 0 Then txt = tmp(0) End If If txt <> "" Then res = res & " " & txt End If Next Next area concat_val = Trim(res) End Function