Как текст из ячеек столбца В1-ВХ перенести в ячейку С1? - Страница 2

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_, DrMini

Как текст из ячеек столбца В1-ВХ перенести в ячейку С1?

Сергей

Дата: Воскресенье, 24.07.2011, 00:20 | Сообщение № 21

Группа: Гости

Quote (Serge_007)

Правой кнопкой мышки по ярлыку листа - Исходный текст.

Ага, спасибо!

Тут вот еще один вопрос возник (пост выше), когда на реальном количестве попробовал sad

Ответить

Serge_007

Дата: Воскресенье, 24.07.2011, 00:20 | Сообщение № 22

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2750 ±

Замечаний: ±

Excel 2016

Quote (Сергей)

А можно сделать так...

Сергей, всё можно.
Но можно сразу оформить все "хотелки"?
И выложить уже итоговую просьбу?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Сергей

Дата: Воскресенье, 24.07.2011, 00:25 | Сообщение № 23

Группа: Гости

Quote (Serge_007)

Но можно сразу оформить все "хотелки"?
И выложить уже итоговую просьбу?

А всё

Честно-честно smile

Мне больше ничего в этом файле и не надо.
Мне надо будет взять получившиеся значения столбца В в текстовом виде и раскидать их по другим документам согласна столбца А.

Ответить

Саня

Дата: Воскресенье, 24.07.2011, 10:11 | Сообщение № 24

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

копируешь столбцы "A:C", вставляешь на другой лист, удаляешь столбец "B" и сортируешь по 3-му (который уже 2-ой), лишнее удаляешь....
или используешь это:

К сообщению приложен файл: 5921422.xls (43.0 Kb)

Ответить

Сергей

Дата: Воскресенье, 24.07.2011, 19:44 | Сообщение № 25

Группа: Гости

Господа, спасибо вам большое!

Ответить

Гость

Дата: Воскресенье, 17.06.2012, 15:38 | Сообщение № 26

Группа: Гости

Добрый день, а можно скрипт написать для операции наоборот ?
У меня задача раскидать номера телефонов из ячеек (разделены запятыми) каждый в отдельную строку

Т.е. имеем
1 строка 585858
2 строка 838383, 646464
3 строка 445678
4 строка 589590, 243535, 229898

на выходе надо
1 строка 585858
2 строка 838383
3 строка 646464
4 строка 445678
5 строка 589590
6 строка 243535
7 строка 229898

Заранее признателен!

Ответить

Gustav

Дата: Воскресенье, 17.06.2012, 16:45 | Сообщение № 27

Группа: Админы

Ранг: Участник клуба

Сообщений: 2851

Репутация: 1195 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Quote (Гость)

имеем
1 строка 585858
2 строка 838383, 646464
3 строка 445678
4 строка 589590, 243535, 229898

на выходе надо
1 строка 585858
2 строка 838383
3 строка 646464
4 строка 445678
5 строка 589590
6 строка 243535
7 строка 229898

Перед запуском выделите ячейки, которые надо разобрать.
[vba]

Code

Sub test()
       Dim str As String
       Dim cell As Range
       Dim arr As Variant

       For Each cell In Selection.Cells
           str = str & cell.Value & ","
       Next cell

       str = Left(str, Len(str) - 1)
       str = Replace(str, " ", "")

       arr = Split(str, ",")
       arr = Application.WorksheetFunction.Transpose(arr)

       Range(Selection.Cells(1, 1), Selection.Cells(UBound(arr), 1)) = arr
End Sub

[/vba]

P.S. После некоторых раздумий родился вариант более симпатичный, который на больших объемах данных будет существенно быстрее - за счет отказа от цикла по ячейкам и считывания сразу всех значений ячеек диапазона в массив одной операцией:
[vba]

Code

Sub test_v2()
     Dim str As String
     Dim arr As Variant

     arr = Selection.Cells
     arr = WorksheetFunction.Transpose(arr)

     str = Join(arr, ",")
     str = Replace(str, " ", "")

     arr = Split(str, ",")
     arr = WorksheetFunction.Transpose(arr)

     Range(Selection.Cells(1, 1), Selection.Cells(UBound(arr), 1)) = arr
End Sub

[/vba]

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Воскресенье, 17.06.2012, 21:47

Ответить

Сообщение

Quote (Гость)

Перед запуском выделите ячейки, которые надо разобрать.
[vba]

Code

[/vba]

Автор - Gustav
Дата добавления - 17.06.2012 в 16:45

Гость

Дата: Понедельник, 18.06.2012, 00:32 | Сообщение № 28

Группа: Гости

Спасибо ОГРОМНОЕ !!!

Ответить

Гость

Дата: Понедельник, 18.06.2012, 01:18 | Сообщение № 29

Группа: Гости

Quote (Gustav)

Sub test_v2()
    Dim str As String
    Dim arr As Variant

    arr = Selection.Cells
    arr = WorksheetFunction.Transpose(arr)

    str = Join(arr, ",")
    str = Replace(str, " ", "")

    arr = Split(str, ",")
    arr = WorksheetFunction.Transpose(arr)

    Range(Selection.Cells(1, 1), Selection.Cells(UBound(arr), 1)) = arr
End Sub

В 2003 должно работать?

Ответить

Gustav

Дата: Понедельник, 18.06.2012, 09:14 | Сообщение № 30

Группа: Админы

Ранг: Участник клуба

Сообщений: 2851

Репутация: 1195 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Quote (Гость)

В 2003 должно работать?

Просто обязано! Боюсь, что будет работать и в 2000, и даже в 97 smile

МОИ: Ник, Tip box: 41001663842605

Ответить

SEregan

Дата: Вторник, 20.05.2014, 17:23 | Сообщение № 31

Группа: Гости

подскажите как мне сделать следующую задачу: есть 4 колонки и n-ое количество строк, 1 2 3 колонки фамилия, имя, отчество соответственно, 4ая колонка --- email.
задача в том чтобы соединить ФИО в одну колонку, а строки где нету emaila -- удалить (некоторые строки не имеют emaila).
на выходе должно получиться 2-е колонки с | ФИО | Email |

Ответить

Pelena

Дата: Вторник, 20.05.2014, 17:34 | Сообщение № 32

Группа: Админы

Ранг: Местный житель

Сообщений: 19569

Репутация: 4646 ±

Замечаний: ±

Excel 365 & Mac Excel

SEregan, читаем Правила форума, создаём свою тему

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Как текст из ячеек столбца В1-ВХ перенести в ячейку С1?

Страница 2 из 2
«
1
2