VPF::Нужна помощь с макросом для Excel

anna91

Дата 10.1.2012, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.1.2012

Репутация: нет
Всего: нет

Помогите, пожалуйста!
Нужен макрос следующего плана
В столбце А есть какие-то цифры
В столбце В есть тоже какие-то цифры (их должно быть столько же сколько и в столбце А)
В столбец С нужно вывести числа из столбца А, столько раз, сколько указано в столбце В

Пример:
2__ 3__ 2
1__ 1__ 2
3__ 1__ 2
______ 1
______ 3

Данкинг

Дата 10.1.2012, 14:55 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Код


Sub aaa()
 Dim str, vv
 strr = ""
 vv = Val(ActiveSheet.Cells(1, 2).Value)
 For j = 1 To vv
  strr = strr + CStr(ActiveSheet.Cells(1, 1).Value)
 Next
 ActiveSheet.Cells(1, 3).Value = strr
End Sub

--------------------

There's nothing left but silent epitaphs.

anna91

Дата 11.1.2012, 04:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.1.2012

Репутация: нет
Всего: нет

Спасибо большое smile

Не совсем то что нужно, но я уже переделала как мне надо и все работает smile

Код


Sub aaa()
 Columns("c:c").Select
 Selection.ClearContents
 Dim strr, vv
 strr = ""
 k = 0
 For i = 1 To 250
 vv = Val(ActiveSheet.Cells(i, 2).Value)
 For j = 1 To vv
  strr = CStr(ActiveSheet.Cells(i, 1).Value)
  ActiveSheet.Cells(j + k, 3).Value = strr
 Next
  k = k + j - 1
 Next
End Sub

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »