Получение текущего положения курсора в Excel и перенос данных макросом

@run82 · Регистрация: 27.02.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Знающие люди, подскажите, пожалуйста, как с помощью макроса получить активное положение курсора(ячейки) в Excel и начиная с этой ячейки перенести всю информацию с одного листа на другой лист? Допустим необходимо от текущего положения курсора на листе 1 последовательно перенести значения ячеек этой сроки на лист 2.

Добавлено через 20 минут
Поправочка. Лучше копировать, а не переносить. ))

@sku144 · 28.09.2015, 20:49

маловато деталей, поэтому вот вам топорный код, который будет копировать всю строку правее выделенной ячейки (включая выделение) всегда в первую ячейку второго листа

Visual Basic

x = ActiveCell.Column
Rows(ActiveCell.Row).Copy Destination:=Sheet2.Cells(1, 1)
Sheet2.Select
Range(Cells(1, 1), Cells(1, x - 1)).Delete Shift:=xlToLeft

@run82 · 28.09.2015, 21:01 **[ТС]**

Согласен, давайте предметно.
Лист1 содержит
Ячейки A1 B1 C1 D1 E1, положение курсора на листе1 ячейка B1, необходимо скопировать значения всех ячеек(ячейки B1 C1 D1 E1) начиная от текущего положения курсора(ячейка B1) на лист2 в ячейки B1 C1 D1 E1 соответственно.

@sku144 · 28.09.2015, 22:42

если данные в строке идут непрерывно (т.е. между данными в строке не будет пустых ячеек (колонок)) то вполне подойдет вот такая конструкция

Visual Basic

1	Range(ActiveCell, ActiveCell.End(xlToRight)).Copy Destination:=Sheet2.Range(ActiveCell.Address)

@run82 · 29.09.2015, 08:13 **[ТС]**

Спасибо. А если необходимо будет копировать не последовательно, как изменится код? Допустим сначала надо скопировать B1, потом E1, потом C1.

@sku144 · 29.09.2015, 12:07

Ну опять же данных катастрофически мало. Я вам могу сейчас написать код, чтобы было так как вы захотели в последнем посте, но он будет работать сугубо для "B1 - E1 - C1" где вместо 1 будет номер строки активной ячейки. Невозможно сделать универсальный код, исходя из пары постов типа "а вот так? а если так? и еще вот так". Нагуглите аббревиатуру TMTOWTDI. Не факт, что каждый ваш следующий вопрос будет расширять логику предыдущего данного кода. Например в первом своем посте я копировал строку и удалял потом ненужное, во втором - копировал часть строки, код ниже - для копирования отдельных диапазонов. Собрать все это в один универсальный, я боюсь, не получится. Либо вы четко формулируете задачу, либо довольствуетесь множеством разных кусков кода с разным подходом.

Вот код для "надо скопировать B1, потом E1, потом C1"

Visual Basic

1
2
3

Cells(ActiveCell.Row, 2).Copy Destination:=Sheet2.Cells(ActiveCell.Row, 2)
Cells(ActiveCell.Row, 5).Copy Destination:=Sheet2.Cells(ActiveCell.Row, 5)
Cells(ActiveCell.Row, 3).Copy Destination:=Sheet2.Cells(ActiveCell.Row, 3)

@run82 5 / 5 / 0 Регистрация: 27.02.2013 Сообщений: 115
		1
	Получение текущего положения курсора в Excel и перенос данных макросом 28.09.2015, 20:32. Показов 11868. Ответов 5 Метки нет (Все метки) Доброго времени суток! Знающие люди, подскажите, пожалуйста, как с помощью макроса получить активное положение курсора(ячейки) в Excel и начиная с этой ячейки перенести всю информацию с одного листа на другой лист? Допустим необходимо от текущего положения курсора на листе 1 последовательно перенести значения ячеек этой сроки на лист 2. Добавлено через 20 минут Поправочка. Лучше копировать, а не переносить. )) 0

@run82 5 / 5 / 0 Регистрация: 27.02.2013 Сообщений: 115
	28.09.2015, 21:01 [ТС]	3
	Согласен, давайте предметно. Лист1 содержит Ячейки A1 B1 C1 D1 E1, положение курсора на листе1 ячейка B1, необходимо скопировать значения всех ячеек(ячейки B1 C1 D1 E1) начиная от текущего положения курсора(ячейка B1) на лист2 в ячейки B1 C1 D1 E1 соответственно. 0

@run82 5 / 5 / 0 Регистрация: 27.02.2013 Сообщений: 115
	29.09.2015, 08:13 [ТС]	5
	Спасибо. А если необходимо будет копировать не последовательно, как изменится код? Допустим сначала надо скопировать B1, потом E1, потом C1. 0

	29.09.2015, 12:07

Получение текущего положения курсора в Excel и перенос данных макросом

Решение