Копирование

[VVVasek]

Подскажите, как это сделать.
Мне нужно чтобы в Excel копировался столбец таблицы, имеющий последние значения в следующий столбец при нажатии, например, некой "кнопки".
В идеале, как показано на примере, столбец С должен полностью копироваться в столбец D, разумеется, с полным совпадением значений по ячейкам. И так далее, т.е. в следующий раз при нажатии этой "кнопки" столбец D должен будет скопироваться в Е.
Заранее огромное спасибо!

[Serge_Bliznykov]

пробуй:

Sub Кнопка1_Щелкнуть()
Dim LastRow%, LastCol%
 LastCol = ThisWorkbook.ActiveSheet.UsedRange.Column + ThisWorkbook.ActiveSheet.UsedRange.Columns.Count - 1
 LastRow = ThisWorkbook.ActiveSheet.UsedRange.Row + ThisWorkbook.ActiveSheet.UsedRange.Rows.Count - 1

 Range(Cells(1, LastCol), Cells(LastRow, LastCol)).Copy Cells(1, LastCol + 1)
 
End Sub

[slan]

Cells.SpecialCells(xlLastCell).Row
Cells.SpecialCells(xlLastCell).Colu mn

[Dvornick]

пробуй:

Код:

Sub Кнопка1_Щелкнуть()
Dim LastRow%, LastCol%
LastCol = ThisWorkbook.ActiveSheet.UsedRange. Column + ThisWorkbook.ActiveSheet.UsedRange. Columns.Count - 1
LastRow = ThisWorkbook.ActiveSheet.UsedRange. Row + ThisWorkbook.ActiveSheet.UsedRange. Rows.Count - 1

Range(Cells(1, LastCol), Cells(LastRow, LastCol)).Copy Cells(1, LastCol + 1)

End Sub

вот так, мне кажется, несколько короче

--------------------------------------------------------------------------------

Cells.SpecialCells(xlLastCell).Row
Cells.SpecialCells(xlLastCell).Colu mn

Ребят, спасибо, что ответили! Я коллега VVVasek, это наш общий вопрос. :-) Но не подскажите нам, нубам, что это за коды такие и где их прописывать? Представление об Excel лишь поверхностное, научились лишь строить таблицы и использовать некоторые формулы. О макросах, кодах и прочих прибамбасах пока представления не имеем.

[Dvornick]

Ещё одна оговорка, не знаю, учли ли вы это в ответе, но "кнопка" желательно чтобы была на листе Excel, там где я её захочу разместить, например, рядом с таблицей. Как создать эту кнопку и сделать, чтобы она выполняла данную операцию, при её нажатии?

[Serge_Bliznykov]

о... как всё запущено ;-(
может Вам книжки немножко почитать?
грубо говоря, кнопку можно добавить через:
меню Вид - Панели инструментов
далее либо "Форма"... либо "Элементы управления"...
элемент "кнопка" есть и там и там. Они отличаются, но для Вас это сейчас неважно - попробуйте одну и другую, выберите ту, что понравится/разберётесь...
Если из меню "Элементы управления" то - правой кнопкой мышки - "Исходный текст"
откроется окно редактора, в нём будет текст пустого макроса:

Private Sub CommandButton1_Click()

End Sub

вставьте туда вышеприведённый текст...
всё...
p.s. изменять размеры/позицию кнопки можно, если выбрать "режим конструктора" (это первая кнопочка на панельке "Элементы управления")

[Dvornick]

Здорово! Я себя программистом почувствовал!
Но получилось, не то, что хотелось. А именно просто создаётся новая колонка (например была таблица из трёх колонок, а стала из четырёх ... и т.д.). А мне требовалось другое : чтобы в УЖЕ ИМЕЮЩЕЙСЯ таблице с конкретным количеством колонок внтури неё копировался ТЕКСТ из последней заполненной колонки в следующую по порядку.

[VictorM]

Чтобы в УЖЕ ИМЕЮЩЕЙСЯ таблице с конкретным количеством колонок внтури неё копировался ТЕКСТ из последней заполненной колонки в следующую по порядку.

Мож я чё не понял, но только что проверил, код от Serge_Bliznykov работает именно так, как Вы говорите, т.е ТЕКСТ из последней заполненной колонки копируется полностью в следующую по порядку.

[Dvornick]

Мож я чё не понял, но только что проверил, код от Serge_Bliznykov работает именно так, как Вы говорите, т.е ТЕКСТ из последней заполненной колонки копируется полностью в следующую по порядку.

Блин, а что я тогда могу не так делать? Я просто бухаю эту кнопку на этот лист где есть таблица, причём не одна и при нажатии на кнопку создается новая пустая колонка, следом за последней
Может там что-то прописывать надо? Массив может прописать?

[Dvornick]

Ещё раз попробовал -никак! Делаю так: создаю через "эл упр" кнопку, помещаю её на любое место листа, правой кнопкой мыши по этой кнопке, выбираю "исх текст", в открывшемся окне между имеющихся двух строк вставляю это:

Dim LastRow%, LastCol%
LastCol = ThisWorkbook.ActiveSheet.UsedRange. Column + ThisWorkbook.ActiveSheet.UsedRange. Columns.Count - 1
LastRow = ThisWorkbook.ActiveSheet.UsedRange. Row + ThisWorkbook.ActiveSheet.UsedRange. Rows.Count - 1

Range(Cells(1, LastCol), Cells(LastRow, LastCol)).Copy Cells(1, LastCol + 1)

И нажимаю вверху на "кнопку play", закрываю окно... жму кнопку получаю описанный мной результат.