чтобы копировалось, а не копировалось +1 при размножении ячейки

Artsem K Пользователь Сообщений: 90 Регистрация: 29.08.2016	#1 17.04.2019 07:32:50 см рис, спасибо Прикрепленные файлы Снимок.PNG (34.81 КБ)

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	#2 17.04.2019 07:46:22 не используйте автозаполнение, просто скопируйте ячейку, выделите нужный диапазон и вставьте Лень двигатель прогресса, доказано!!!

Sanja Модератор Сообщений: 16560 Регистрация: 10.01.2013	#3 17.04.2019 07:48:14 Или после автозаполнения отметьте 'Копировать ячейки' Согласие есть продукт при полном непротивлении сторон

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#4 17.04.2019 08:37:00 Artsem K, в первом сообщении нужно описывать проблему

Artsem K Пользователь Сообщений: 90 Регистрация: 29.08.2016	#5 17.04.2019 12:54:46 понимаете ли, мне такое действие нужно выполнить дохренадцать (десятков) раз. хотел бы нечто изменить в настройках, а потом просто перетягивать ячейки, чтобы копировалось.

Kompas13 Пользователь Сообщений: 20 Регистрация: 06.03.2019	#6 17.04.2019 13:12:14 Добрый день. Можно файл? Возможно что-то наколдую. Исходя из данных

Valo Пользователь Сообщений: 117 Регистрация: 27.06.2017	#7 17.04.2019 14:09:09 Если тянуть с нажатой клавишей Ctrl, то ячейки скопируются. Наша суть отражается в наших повторяющихся действиях. Отсюда следует, что совершенство есть не действие, а привычка. Аристотель.

Artsem K

Пользователь

Сообщений: 90 Регистрация: 29.08.2016

17.04.2019 17:00:17

Kompas13, пояснение
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=

Цитата
Valo написал: Valo

спасибо, мишка, получилось.

Прикрепленные файлы

T10YIE.csv (20.21 КБ)

Valo

Пользователь

Сообщений: 117 Регистрация: 27.06.2017

17.04.2019 18:43:56

Artsem K, может макросом будет нормально?
Его можно поместить в личную книгу макросов, чтобы он был доступен для любой книги и назначить сочетание клавиш для его выполнения.

Код

Sub Заполнить()
    Dim Строка As Long
    If Selection = "" Then Exit Sub
    Строка = Cells.SpecialCells(xlCellTypeLastCell).Row
    Selection.AutoFill Destination:=Range("A" & Selection.Row & ":A" & Строка), Type:=xlFillCopy
End Sub

Прикрепленные файлы

5.gif (9.47 КБ)

Изменено: Valo - 17.04.2019 18:54:10

Наша суть отражается в наших повторяющихся действиях. Отсюда следует, что совершенство есть не действие, а привычка. Аристотель.

Artsem K

Пользователь

Сообщений: 90 Регистрация: 29.08.2016

#10

18.04.2019 12:46:29

Цитата
Valo написал: Valo

спасибо, мишка, но я выше дал ссылку, по которой задача была прояснена:

у меня в экселе есть "плохие" значения, их надо выровнять с соседними (с одним из соседних).

а у вас как будто одно первое значение копируется на все остальные ячейки.

мне достаточно выходного файла, макросы и технические аспекты не интересуют.

думаю вручную сделать.

Artsem K Пользователь Сообщений: 90 Регистрация: 29.08.2016	#11 27.04.2019 15:21:44 да, вручную подровнял лишние значения с соседними. потом провел еще несколько преобразований, чтоб файл аппетитнее был для программы, питающейся таковыми.