Заполнение ячеек содержимым других ячеек (Excel)
Имеется такая задача
На листе xlsx-файла второй столбец пустой, а остальные заполнены содержимым (в каждой ячейке - своим). Мне необходимо чтобы при выделении любой ячейки (кроме принадлежащих ко второму столбцу) ее содержимое копировалось в свободную ячейку второго столбца в нисходящем порядке (кликов предполагается много). Так же есть и другие листы с заполненными ячейками. Необходимо чтобы клики на их ячейки копировали их содержание во второй столбец первого листа на общих основаниях согласно единой последовательности кликов. Задача вызвана потребностью организовать быстрый разбор файлов из папки загрузок в папки файлохранилища. Если можно прошу помочь с макросом |
ruslaw, попробуйте код ниже.
В тексте коде нужно поменять две вещи: Заменить "Лист1" на реальное название вашего листа, и заменить " | " на реальный разделитель (т.е. если в одну ячейку скопировано несколько значений, они будут разделены знаком | и пробелами, если это не требуется, замените на пустую строку "". Код нужно скопировать в модуль каждого листа, с которым работаете (в редакторе щелкнуть на иконке листа, с которым работаете). На других листах второй столбец также игнорируется, если это не нужно, удалите в экземпляре кода с этого листа Or Target.Column = 2 Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) |
Вложений: 1
Спасибо.
Но у меня такая проблема: В первой колонке в ячейках стоят имена файлов. И мне надо во вторую колонку поместить полные имена папок, расположенные в других ячейках, чтобы потом приготовить из этих двух колонок код для перемещения файлов в нужные мне папки. Ваш код помещает эти имена папок в ячейку второй колонки с тем же номером, что и у исходной (выделенной) ячейки, просто дублирует содержимое по горизонтали. А мне нужно чтобы какую бы ячейку я ни выделил (кроме 1 и 2 столбцов) она дублировалась бы в верхнюю свободную ячейку второго столбца. Так я получу соответствие имен файлов в первом столбце и папок во втором, куда я хочу переместить файлы, указанные в ячейках первого. |
ruslaw, попробуйте так:
Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) |
Огромнейшее спасибо! Все отлично работает!
|
Еще просьба.
Можно ли сделать такой макрос который к каждой ячейке добавлял бы комментарий с тем же содержанием что и в этой ячейке. Так я смог бы видеть содержание ячеек с длинным содержимым, не нажимая на них. |
Время: 06:26. |
Время: 06:26.
© OSzone.net 2001-