|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.08.2013, 12:21 | #1 |
Регистрация: 06.05.2013
Сообщений: 8
|
Копирование значений из других ячеек в одну
Такая проблема:
в ячейке А1 написано: Сидоров в ячейке А2 написано: Петр Иванович в ячейке А3 написано: Слесарь 4-го разряда Как сделать так чтобы нажав комбинацию клавиш на ячейке А1, значение из ячейки А2 скопировалось в конец значения ячейки А1, а значение из ячейки А3 переместилось в ячейку А2 Т.е. получилось так: в ячейке А1 написано: Сидоров Петр Иванович в ячейке А2 написано: Слесарь 4-го разряда |
05.08.2013, 12:56 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
08.08.2013, 11:53 | #3 |
Регистрация: 06.05.2013
Сообщений: 8
|
Спасибо макрос класный практически то что надо, но мне нужно чтобы он работал сверху вниз (по строкам) а он как я понял (я долго разбирался) работает слева направо по столбцам можно както его поправить чтобы он работал так как я написал в примере.
|
08.08.2013, 12:16 | #4 |
Регистрация: 06.05.2013
Сообщений: 8
|
Все я понял как так сделать:
Sub Move2Left() With ActiveCell If .Row <> 1 Then Exit Sub If .Offset(2, 0) = "" Then Exit Sub Cells(1, .Column) = Cells(1, .Column) & " " & Cells(2, .Column) Cells(2, .Column) = Cells(3, .Column) Cells(3, .Column).ClearContents End With End Sub Но теперь как сделать чтоб он работал по всему листу а не только в строке 1,2,3 или хотябы в столбце А1,2,3... и т.д Последний раз редактировалось Sergey19; 08.08.2013 в 12:21. Причина: дописать захотел |
08.08.2013, 12:17 | #5 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
извините, что-то я не внимательно задачу прочитал...
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
08.08.2013, 12:22 | #6 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
а по всему листу - это, извините, в какую сторону вправо или вниз? (экстрасенс из меня никакой, пытался мысленно вызвать изображение Вашего листа, настроился, представил себе компьютер, экран монитора, закрыл глаза... а начали мелькать смутные силуэты обнаженных теток...)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
08.08.2013, 12:38 | #7 |
Регистрация: 06.05.2013
Сообщений: 8
|
нет у мея есть файл такого формата:
в ячейке А1: Сидоров в ячейке А2: Петр Иванович в ячейке А3: слесарь 4 разряда Затем еще в ячейке А5: Иванов в ячейке А6: Сергей Владимирович в ячейке А7: электрогазосварщик 4 разряда и т.д надо все это обработать, а вручную займет оч много времени там около 1000 позиций, поэтому с макросом заморочился |
08.08.2013, 13:02 | #8 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Расширение зависимости значений ячеек от ниспадающих ячеек | Mevok | Microsoft Office Excel | 8 | 08.06.2013 16:25 |
копирование значений ячеек с разных листов в один | moose123 | Microsoft Office Excel | 8 | 30.04.2013 13:04 |
автозаполнение данных в текст бокс из других ячеек | ahrejiok | Microsoft Office Excel | 3 | 15.01.2012 13:12 |
Копирование значений поля со сдвигом на одну строку. | kulon | БД в Delphi | 1 | 28.04.2011 15:48 |
копирование ячеек из книг в одну(общую) | DEsh | Microsoft Office Excel | 3 | 12.11.2010 12:38 |