Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как автоматически размножить строки со сдвигом вниз?
 
Ребят,привет!
Нужна помощь, никак не могу сообразить и найти формулу((
Необходимо первый столбец с текстом умножить на второй столбец с цифрами и автоматически продублировать строки из первого столбца вниз.
Во вложении пример, на первой вкладке сама таблица, во второй как должно получиться,
плиз помогите, возможно это и просто, ток не получается у меня...
 
кросс http://www.cyberforum.ru/ms-excel/thread1408247.html
 
Кросс вроде не запрещен, или я ошибаюсь?
 
Не запрещен, но ссылку давать желательно

вариант 2 (ставил целью уйти от второго цикла предложенного Казанским)
Код
Sub ggg()
v = Selection.Value
ReDim w(1 To Application.Sum(Selection.Columns(2)), 1 To 2)
For i = 1 To UBound(w)
    If i > ii Then x = x + 1: ii = ii + (v(x, 2))
    w(i, 1) = v(x, 1): w(i, 2) = 1
Next
Selection.Resize(UBound(w)).Value = w
End Sub
 
Спасибо, то что нужно!)
 
B.Key, столкнулся с такой сложностью, в моей таблице еще должен быть 3 столбец, к сожалению с макросами не дружу и как переделать не понимаю((
если Вас не затруднит,пожалуйста посмотрите еще раз, пример во вложении..
 
Код
Sub ggg()
v = Selection.Value
ReDim w(1 To Abs(Application.Sum(Selection.Columns(3))), 1 To 3)
For i = 1 To UBound(w)
    If i > ii Then x = x + 1: ii = ii + Abs(v(x, 3))
    w(i, 1) = v(x, 1): w(i, 3) = -1: w(i, 2) = v(x, 2)
Next
Selection.Resize(UBound(w)).Value = w
End Sub
 
Спасибо огромное!!!
Очень выручили!!!
 
да не за что, надеюсь следующего вопроса не будет, что часть значений отрицательная, а часть положительная ;)
Страницы: 1
Читают тему (гостей: 1)