Помогите решить вопрос

webseon
На сайте с 12.12.2009
Offline
92
417

Всем привет, возникла проблема с одним делом, суть в том, что имеется имя например 1.jpg нужно в экселе чтобы скопировать столбцы вниз от этого имени и после копии получилось бы подобное: 2.jpg, 3.jpg и т.д. Т.е. нужно ввести какую-то формулу(если такая существует) чтобы менялась только цифра перед точкой, а расширение оставалось так как было. Помогите пожалуйста, может кто знает подобную формулу, или еще как с этим решить в программе эксель.

Мои контакты: webcorpseo@mail.ru / skype: live:seo-trade
Alipapa
На сайте с 01.02.2008
Offline
234
#1

Да в экселе проще пареной репы. Ввел 1. Ниже ввел 2. Схватил за правый низ и потащил. А расширение с точкой в соседнем столбце, в чем проблема?

Биржа фриланса - простая и удобная (http://kwork.ru/ref/2541)
webseon
На сайте с 12.12.2009
Offline
92
#2

так мне нужно чтобы в одном столбце это имя было с расширением

Samail
На сайте с 10.05.2007
Offline
369
#3

webseon, ставишь в первую ячейку 1. выполняешь прогрессию с шагом 1000000. Потом автозаменой заменяешь 000001 на .jpg

webseon
На сайте с 12.12.2009
Offline
92
#4

что-то не получается данным способом, возможно что-то не так понял...

dmkich
На сайте с 18.09.2009
Offline
68
#5

Я бы сделал два столбца, А с цифрами, В с ".jpg", а в С1 формула =A1&B1 и протянул сколько надо значений...

LinkBoss.net - Трастовые ссылки для увеличения трафика в 10 раз! (http://linkboss.net/)
Samail
На сайте с 10.05.2007
Offline
369
#6
webseon:
что-то не получается данным способом, возможно что-то не так понял...

Лень дословно описывать, вот макрос может понятнее будет:

Sub Макрос1()

'
' Макрос1 Макрос
'

'
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A1:A263").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1000000, Trend:=False
Range("A2").Select
ActiveCell.FormulaR1C1 = "1000001"
Cells.Replace What:="000001", Replacement:=".jpg", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Selection.Delete Shift:=xlUp
End Sub

Или сам макрос у себя выполни. В A263, 263 замени на нужное количество ячеек и всё.

webseon
На сайте с 12.12.2009
Offline
92
#7

все получилось)) благодарю всех кто отписался и помог мне

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий