Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как размножить сокращённые числа ?
 
#1
25.08.2012 02:10:25
Здравствуйте!  
Пожалуста подскажите, как в Excel-е размножить сокращённые числа в одной ячейке, например: С15-С26 и разбить их следующим образом С15,С16,С17,С18,С19,С20,С21,С22,С23,С24,С25,С26  
Заране спасибо!
 
 
 
#2
25.08.2012 02:16:14
Что такое "сокращённые числа"?!
 
 
 
#3
25.08.2012 02:28:45
{quote}{login=Serge 007}{date=25.08.2012 02:16}{thema=}{post}Что такое "сокращённые числа"?!{/post}{/quote}Од., Дв., Тр... :-)
 
 
 
#4
25.08.2012 02:32:40
О, Де, Труа...  
 
Это типа по-французски? :)
 
 
 
#5
25.08.2012 02:38:00
В списках присутствуют последовательные числа (это наиноменонания мест для електронных компонентов на печатных платах ) Например С1,С5,С7,С10-С15,С21 и тд. , то-есть те которые С10-С15 это С10,С11,С12,С13,С14,С15
 
 
 
#6
25.08.2012 02:45:51
Отличное объяснение.  
Ждите скорого решения
 
 
 
#7
25.08.2012 02:57:24
VVBaulin, кажется, я Вас понял, но набросайте небольшой пример: имеется ЭТО нужно получить ВОТ ЭТО.  
Понял примерно так: в ячейке А1 имеем "С1-С3". Нужно в соседних ячейках получить:  
В ячейке В1: "С1"  
В ячейке С1: "С2"  
В ячейке D1: "C3"  
Так?
 
 
 
#8
25.08.2012 02:59:33
Сегодня. Ищите тему с датами. ikki давал макрос  ..бесплатно.  
 
 
---------  
27277
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#9
25.08.2012 03:06:36
Все должно быть в одной ячейке,    
До - С1,С5,С7,С10-С15,С21    
После - С1,С5,С7,С10,С11,С12,С13,С14,С15,С21    
Я прикрепил пример Excel.
 
 
 
#10
25.08.2012 13:49:58
Function VVBaulin$(s$)  
 Dim x, i%, ss$, v1$, v2$, j%, se$  
 s = Replace(Replace(s, " ", ""), Chr(10), "")  
 x = Split(s, ",")  
 For i = 0 To UBound(x)  
   If InStr(x(i), "-") Then  
     v1 = "": v2 = ""  
     For j = InStr(x(i), "-") - 1 To 1 Step -1  
       If IsNumeric(Mid(x(i), j, 1)) Then v1 = Mid(x(i), j, 1) & v1 Else Exit For  
     Next  
     se = Mid(x(i), 1, j)  
     For j = Len(x(i)) To InStr(x(i), "-") Step -1  
       If IsNumeric(Mid(x(i), j, 1)) Then v2 = Mid(x(i), j, 1) & v2 Else Exit For  
     Next  
     For j = CInt(v1) To CInt(v2)  
       ss = ss & "," & se & j  
     Next  
   Else  
     ss = ss & "," & x(i)  
   End If  
 Next  
 VVBaulin = Mid(ss, 2)  
End Function
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#11
25.08.2012 15:05:11
Вот это Макруха!  
Большое-Большое Спасибо ikki !!!
 
 
 
Страницы: 1
Читают тему
Наверх