В столбце подряд в каждой ячейке находятся значения через запятую. Можно с помощью формулы разбить значения таким образом, чтобы каждое значения помещалось в отдельную ячейку или нужно писать макрос?
Добрый день!
В столбце подряд в каждой ячейке находятся значения через запятую. Можно с помощью формулы разбить значения таким образом, чтобы каждое значения помещалось в отдельную ячейку или нужно писать макрос?hatter
Попробуйте сделать так: 1) с помощью Найти/Заменить замените запятые на пробелы 2) выделите диапазон А2:А6 (по Вашему примеру), можно и больше, с запасом 3) на вкладке Главная найдите кнопку Заполнить и выберите вариант Выровнять
Попробуйте сделать так: 1) с помощью Найти/Заменить замените запятые на пробелы 2) выделите диапазон А2:А6 (по Вашему примеру), можно и больше, с запасом 3) на вкладке Главная найдите кнопку Заполнить и выберите вариант ВыровнятьPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Лен, это прокатит только в том случае, если у слов примерно одинаковая длина. А если вот так: а,п,ррррррррррр, то уже нет. Правда, если в первом пункте заменить не на пробел, а на кучу пробелов (штук 50, например), то нормально.
Лен, это прокатит только в том случае, если у слов примерно одинаковая длина. А если вот так: а,п,ррррррррррр, то уже нет. Правда, если в первом пункте заменить не на пробел, а на кучу пробелов (штук 50, например), то нормально._Boroda_
Если макросом - то можно как во вложении, на кнопке. В столбце "B" нужные данные для разделки, в столбце "А" выводит результат.
[vba]
Код
Sub Separator() Application.ScreenUpdating = False: With ThisWorkbook.Sheets(1)
Dim X As Long: Dim Y As Long: Y = 2 Dim strX As String
If .Cells(.Rows.Count, 2).End(xlUp).Row < 2 Then MsgBox ("Error! Check the data"): Exit Sub
For X = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row strX = .Cells(X, 2).Value Do While InStr(1, strX, ",") > 0 .Cells(Y, 1).Value = Left(strX, InStr(1, strX, ",") - 1) strX = Right(strX, Len(strX) - InStr(1, strX, ",")) Y = Y + 1 Loop .Cells(Y, 1).Value = strX: Y = Y + 1 Next X
End With: Application.ScreenUpdating = True End Sub
[/vba]
hatter, здравствуйте.
Если макросом - то можно как во вложении, на кнопке. В столбце "B" нужные данные для разделки, в столбце "А" выводит результат.
[vba]
Код
Sub Separator() Application.ScreenUpdating = False: With ThisWorkbook.Sheets(1)
Dim X As Long: Dim Y As Long: Y = 2 Dim strX As String
If .Cells(.Rows.Count, 2).End(xlUp).Row < 2 Then MsgBox ("Error! Check the data"): Exit Sub
For X = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row strX = .Cells(X, 2).Value Do While InStr(1, strX, ",") > 0 .Cells(Y, 1).Value = Left(strX, InStr(1, strX, ",") - 1) strX = Right(strX, Len(strX) - InStr(1, strX, ",")) Y = Y + 1 Loop .Cells(Y, 1).Value = strX: Y = Y + 1 Next X
End With: Application.ScreenUpdating = True End Sub
Добрый день ! Подскажите где найти формулу такого плана. В столбце идут друг за другом значения (цифровые). В следующем столбце напротив некоторых значений поставлена цифра 1. Нужна формула, чтобы посчитать сумму тех значений в первом столбце, напротив которых проставлена цифра 1 во втором столбце. Спасибо! [moder]Вот тут. Тема закрыта
Спасибо! Очень помогли!
Добрый день ! Подскажите где найти формулу такого плана. В столбце идут друг за другом значения (цифровые). В следующем столбце напротив некоторых значений поставлена цифра 1. Нужна формула, чтобы посчитать сумму тех значений в первом столбце, напротив которых проставлена цифра 1 во втором столбце. Спасибо! [moder]Вот тут. Тема закрыта
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
