Лист Данные, в столбцах X, Y, Z находятся значения, в формате ХХ% YY% ZZ% Нужен макрос, который будет автоматически переносить эти значения в один столбец O, в формате XX,YY,ZZ
Пример: X Y Z 56% 25% 24% В столбец O копируется: 56,25,24
Пример в файле, Спасибо.
Здравствуйте, помогите пожалуйста решить задачу:
Лист Данные, в столбцах X, Y, Z находятся значения, в формате ХХ% YY% ZZ% Нужен макрос, который будет автоматически переносить эти значения в один столбец O, в формате XX,YY,ZZ
Пример: X Y Z 56% 25% 24% В столбец O копируется: 56,25,24
Спасибо огромное, очень круто! Единственное, если можно, сделайте пожалуйста исключение, если в X,Y,Z пусто, чтоб макрос не трогал O
Пример в файле, что бы после нажатия на кнопку, диапазон O2:O20 не пропал. Ещё уберите пожалуйста последнюю запятую, она ломает формулы, чтоб осталось две ХХ,ХХ,ХХ
Спасибо.
Спасибо огромное, очень круто! Единственное, если можно, сделайте пожалуйста исключение, если в X,Y,Z пусто, чтоб макрос не трогал O
Пример в файле, что бы после нажатия на кнопку, диапазон O2:O20 не пропал. Ещё уберите пожалуйста последнюю запятую, она ломает формулы, чтоб осталось две ХХ,ХХ,ХХ
Привет, Сергей. Я, конечно, знаю твоё отношение к кросспостерам, но чтобы из-за этого удалять готовое решение... - это перебор (имхо) А благодаря твоему непререкаемому авторитету эта тема может остаться без решения и здесь, и на Планете
Привет, Сергей. Я, конечно, знаю твоё отношение к кросспостерам, но чтобы из-за этого удалять готовое решение... - это перебор (имхо) А благодаря твоему непререкаемому авторитету эта тема может остаться без решения и здесь, и на Планете Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
[offtop]Привет, Леночек Ну мой авторитет ты явно преувеличиваешь, тем более после года отсутствия на форумах. Однако отношение к кросспостерам у меня с тех пор не изменилось. Кто им не дает кинуть ссылку на обсуждение на других форумах? Тут вопрос элементарного уважения к чужому труду, паче того бескорыстному.[/offtop] [p.s.]P.S. и да, я старый, вредный и ворчливый [/p.s.]
[offtop]Привет, Леночек Ну мой авторитет ты явно преувеличиваешь, тем более после года отсутствия на форумах. Однако отношение к кросспостерам у меня с тех пор не изменилось. Кто им не дает кинуть ссылку на обсуждение на других форумах? Тут вопрос элементарного уважения к чужому труду, паче того бескорыстному.[/offtop] [p.s.]P.S. и да, я старый, вредный и ворчливый [/p.s.]KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Сообщение отредактировал KuklP - Суббота, 11.04.2015, 15:12
Ладно, дабы тема не оставалась без решения... Попаразитировала на первом макросе от KuklP, получилось как-то так [vba]
Код
Public Sub www() Dim nrow&, a, b, i&, s$ nrow = [x65536].End(xlUp).Row a = Range("x2:z" & nrow).Value b = Range("O2:O" & nrow).Value For i = 1 To UBound(a) s = Replace(a(i, 1) & a(i, 2) & a(i, 3), "%", ",") If s <> "" Then b(i, 1) = Left(s, Len(s) - 1) End If Next Range("O2:O" & nrow) = b End Sub
[/vba]
Ладно, дабы тема не оставалась без решения... Попаразитировала на первом макросе от KuklP, получилось как-то так [vba]
Код
Public Sub www() Dim nrow&, a, b, i&, s$ nrow = [x65536].End(xlUp).Row a = Range("x2:z" & nrow).Value b = Range("O2:O" & nrow).Value For i = 1 To UBound(a) s = Replace(a(i, 1) & a(i, 2) & a(i, 3), "%", ",") If s <> "" Then b(i, 1) = Left(s, Len(s) - 1) End If Next Range("O2:O" & nrow) = b End Sub
Прошу прощения за незнание правила, по которому автор обязан указывать ссылку на другой ресурс. Я понимаю Вашу озабоченность тем что, игнорирование этого правила, может привести к бессмысленной трате времени. Прошу Вас заметить что, на Планете вопрос был практически закрыт, формула дана, но не являлась конечным решением, а просить дважды в одной теме я посчитал некорректным. Всем спасибо, решение найдено.
Прошу прощения за незнание правила, по которому автор обязан указывать ссылку на другой ресурс. Я понимаю Вашу озабоченность тем что, игнорирование этого правила, может привести к бессмысленной трате времени. Прошу Вас заметить что, на Планете вопрос был практически закрыт, формула дана, но не являлась конечным решением, а просить дважды в одной теме я посчитал некорректным. Всем спасибо, решение найдено.GreenDog