Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Макрос переименования ячеек по условию?
 
#1
07.10.2012 23:37:22
В макросах я полный ноль, но знаю, что так можно сделать. Подскажите пожалуйста!  
 
Есть таблица, в первом столбце идут артикулы товара, например SKU012230 и т.д. они повторяются, разные артикулы по разному количеству раз.  
 
Надо сделать макрос, который будет одинаковым артикулам дописывать окончание "-1","-2","-3" и т.д. Это надо для того, чтобы у повторяющихся артикулов было уникальное имя, и в то же время было видно что за товар.  
 
Excel 2007, кто поможет?
 
 
 
#2
07.10.2012 23:39:21
Сейчас Вам напишут - сможете переделать под СВОЮ таблицу с данными?
 
 
 
#3
07.10.2012 23:43:04
Это как? Я немного не понял вопроса.
 
 
 
#4
07.10.2012 23:46:31
Вы пишете: "В макросах я полный ноль", вместе с тем, просите макрос, не предоставив свою таблицу. Ну, напишут Вам макрос под таблицу, со структурой "от фонаря", - сможете переделать под свои нужды?
 
 
 
#5
07.10.2012 23:46:42
Возможно смогу
 
 
 
#6
07.10.2012 23:49:23
Вот пример таблицы
 
 
 
#7
08.10.2012 00:12:52
Другое дело :-)
 
 
 
#8
08.10.2012 00:37:07
Юрий, на словаре попроще:  
 
Sub tt()  
Dim LastRow As Long, i As Long  
LastRow = Cells(Rows.Count, 1).End(xlUp).Row  
With CreateObject("scripting.dictionary")  
   For i = 2 To LastRow  
   .Item(Cells(i, 1).Value) = .Item(Cells(i, 1).Value) + 1  
   Cells(i, 1) = Cells(i, 1) & "-" & .Item(Cells(i, 1).Value)  
   Next  
End With  
End Sub
 
 
 
#9
08.10.2012 00:39:10
{quote}{login=Hugo}{date=08.10.2012 12:37}{thema=}{post}Юрий, на словаре попроще{/post}{/quote}Я догадываюсь, но... пока сложнее :-)
 
 
 
#10
08.10.2012 01:18:27
Супер! Спасибо огромное)))
 
 
 
#11
08.10.2012 11:09:31
Согласен с Hugo, словарь рулит ))  
Sub test()  
   Dim tempVal As String, r As Range  
   With CreateObject("Scripting.Dictionary")  
       For Each r In Range([A2], Cells(Rows.Count, 1).End(xlUp))
           tempVal = r.Value  
           .Item(tempVal) = .Item(tempVal) + 1  
           r.Value = tempVal & " - " & .Item(tempVal)  
       Next r  
   End With  
End Sub
Редко но метко ...
 
 
 
Страницы: 1
Читают тему
Наверх