Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как добавить повторяющиеся значения? / 4 сообщений из 4, страница 1 из 1
20.03.2012, 15:53
    #37713726
cnet_12
cnet_12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить повторяющиеся значения?
Доброе время суток!
Подскажите, пожалуйста, имеется таблица со столбцами: 1-наименование, 2-число.
Как сделать так, что бы появился новый столбец со значениями наименование, повторяющимися заданное количество раз в новой строке. Количество указано в столбце "число". Пример:
Задано:
а 2
б 1
в 3
Должно получится:
а
а
б
в
в
в
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.03.2012, 16:16
    #37713793
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить повторяющиеся значения?
Вот тут 11938294 мы решали разными способами похожую задачу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.03.2012, 16:18
    #37713801
R Dmitry
R Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить повторяющиеся значения?
cnet_12,
Возможно и оптимальней
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Option Explicit
Sub TT()
Dim a, b, t, i&, j&, u&, x&
a = [a1].CurrentRegion.Value
ReDim b(1 To UBound(a))
For i = 1 To UBound(a)
u = UBound(b)
t = Split(a(i, 1), " ")
ReDim Preserve b(1 To UBound(b) + CLng(t(1)))
For j = 1 To CLng(t(1))
x = x + 1
b(x) = t(0)
Next
Next
[c1].Resize(UBound(b)) = Application.Transpose(b)
End Sub

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.03.2012, 16:28
    #37713833
R Dmitry
R Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как добавить повторяющиеся значения?
Очистил от мусора :)
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub TT()
Dim a, b, t, i&, j&, x&
a = [a1].CurrentRegion.Value
ReDim b(0)
For i = 1 To UBound(a)
t = Split(a(i, 1), " ")
ReDim Preserve b(1 To UBound(b) + CLng(t(1)))
For j = 1 To CLng(t(1))
    x = x + 1
    b(x) = t(0)
Next
Next
[c1].Resize(UBound(b)) = Application.Transpose(b)
End Sub

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как добавить повторяющиеся значения? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 705ms
Закрыть
start [/forum/moderation_log.php?user_name=%D0%9E%D0%B9%2C+%D0%BC%D0%B0%D0%BC%D0%B0...]:
 0ms
get settings:
 6ms
get forum list:
 8ms
get settings:
 4ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 178ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 461ms
total:  705ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]