Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
dagobert
0 / 0 / 0
Регистрация: 16.07.2015
Сообщений: 6
1

Дублирование строк

16.07.2015, 03:45. Просмотров 897. Ответов 4
Метки нет (Все метки)

Добрый день! Я не очень силен в Vbasic и мне поставили непосильную задачу по форматирвоание таблиц. Подскажите, пожалуйста, как можно реализовать дублирование. Есть:
1
2
3

а нужно так:
1
1
2
2
Колличество строк больше, copy paste не получится, очень трудоемко.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.07.2015, 03:45
Ответы с готовыми решениями:

Автоматическое дублирование строк
Помогите решить проблему с Excell - нужен скрипт, макрос который должен...

Дублирование строк по количеству символов Excel
Доброго времени суток. Необходимо: 1. Дублирование строк по значению в ячейке...

Макрос по двум действиям: текст по столбцам и дублирование строк
Здравствуйте, уважаемые форумчане! Подскажите, пожалуйста. Как можно...

Макрос на дублирование строк в Excel с заменой некоторых значений
Всем привет! Есть изначальная табличка (она в приложении лист "исходник");...

Макрос на дублирование текста после каждых 5 строк для MS Word
Здравствуйте! Срочно понадобился такой вот макрос, сам в этом деле я "зелен"...

4
Sn1p3rOk
281 / 168 / 85
Регистрация: 19.04.2014
Сообщений: 1,098
Завершенные тесты: 2
16.07.2015, 05:09 2
Лучший ответ Сообщение было отмечено dagobert как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Duplicate()
    inpBox = InputBox("Введите букву столбца...", "Дублирование")
    zero = inpBox & "1"
    value = Range([zero], Cells(Rows.Count, inpBox).End(xlUp))
    
    For Each obj In value
        For i = 1 To 2
            j = j + 1
            Cells(j, inpBox) = obj
        Next
    Next
End Sub
Код не мой, я только немножко подправил.

Автор: Vlanib
1
Vlad999
2811 / 1727 / 515
Регистрация: 02.11.2012
Сообщений: 4,308
16.07.2015, 08:37 3
Sn1p3rOk, скорей всего нужно через вставку строк, предполагаю что у ТС в строчках есть данные.
про добавление строк гляньте http://www.cyberforum.ru/ms-excel/thread959157.html
0
Fairuza
Модератор
5206 / 2634 / 471
Регистрация: 23.11.2010
Сообщений: 8,690
16.07.2015, 08:40 4
Пронумеровать строки - скопировать все - вставить - отсортировать по номеру строки)
0
dagobert
0 / 0 / 0
Регистрация: 16.07.2015
Сообщений: 6
21.07.2015, 14:47  [ТС] 5
Всем огромное спасибо. Код на VB самое оно!
0
21.07.2015, 14:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.07.2015, 14:47

Как Excel документ, в котором 10000 строк, разбить по 10 строк и сохранить каждые 10 строк в отдельный файл
Здравствуйте. Подскажите как Excel документ в котором 10000 строк разбить по 10...

Дублирование ячеек
Есть макрос. Sub copyTable() Dim colRange As Variant ...

дублирование ячеек
Доброго времени суток! Столкнулся с такой проблемой: нужен макрос, который бы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru