Копирование ячеек

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Копирование ячеек - Мир MS Excel

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование ячеек (Формулы/Formulas)

Копирование ячеек

Dmitry1992_92

Дата: Пятница, 09.02.2018, 08:37 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

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

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

Excel 2010

Здравствуйте! Сейчас использую следующий код:

[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Cancel = True
With Sheets(14)
Lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(Lr, 1).Value = Target.Value
End With
ElseIf Target.Row = 1 Then
Cancel = True
With Sheets(14)
Lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(Lr, 1).Value = Target.Value
End With
End If
End Sub

[/vba]

т.е. копируются ячейки из 1 столбца и из 1-й строки по двойному нажатию и перемещаются в таблицу которая находится на 14-й странице. Вопрос: можно ли сделать так чтобы копировались любые ячейки из любых столбцов и строк, которые находятся на странице? Просто у меня таблица большая и не хочется писать код для каждого столбца и строки отдельно.

Ответить

Pelena

Дата: Пятница, 09.02.2018, 11:36 | Сообщение № 2

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

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

Сообщений: 19176

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

Замечаний: ±

Excel 365 & Mac Excel

Файл с примером помог бы в понимании проблемы.
И название темы надо немного конкретизировать

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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование ячеек (Формулы/Formulas)

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