ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / дублировать каждую строку 5раз
6 сообщений из 6, страница 1 из 1
дублировать каждую строку 5раз
    #39270368
Фотография dartvaider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dartvaider
Участник
Добрый день помогите пожалуйста написать макрос как дублировать каждую строку 5 раз со здвигом вниз?
т.е. есть данные
1
2
3
необходимо продублировать 10 раз
1
1
1
1
1
2
2
2
2
2
3
3
3
3
3
...
Рейтинг: 0 / 0
08.07.2016, 10:58
| Ответить | Цитировать | Написать  
дублировать каждую строку 5раз
    #39270406
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
dartvaiderпомогите пожалуйста написать макрос
запусти запись макроса, сделай руками, останови, изучи код и поправь под себя.
dartvaiderдублировать каждую строку 5 раз
dartvaiderпродублировать 10 раз
ты уж определись, что ли...
...
Рейтинг: 0 / 0
08.07.2016, 11:33
| Ответить | Цитировать | Написать  
дублировать каждую строку 5раз
    #39270425
Фотография dartvaider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dartvaider
Участник
Akina,

N раз в цикле, макрос цикл не показывает
...
Рейтинг: 0 / 0
08.07.2016, 11:45
| Ответить | Цитировать | Написать  
дублировать каждую строку 5раз
    #39270427
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
dartvaider,

for to next пробовал?
...
Рейтинг: 0 / 0
08.07.2016, 11:47
| Ответить | Цитировать | Написать  
дублировать каждую строку 5раз
    #39271021
Фотография i45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
i45
Участник
dartvaiderДобрый день помогите пожалуйста написать макрос как дублировать каждую строку 5 раз со здвигом вниз?
т.е. есть данные
1
2
3
...

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
Public Sub RepeatMe()

    Dim intMult As Integer
    Dim i As Integer
    Dim iTopR As Integer
    Dim iBtmR As Integer
    Dim oMySht As Worksheet
    Dim oMyDic As New Dictionary
    Dim varKey As Variant
    Dim j As Integer
    Dim iMyShift As Integer
    
    Set oMySht = ThisWorkbook.Worksheets("Sheet1")
    
    oMySht.Range("C:C").ClearContents
    intMult = oMySht.Range("A1").Value
    iTopR = 1
    iBtmR = oMySht.Range("B1").End(xlDown).Row

    For i = iTopR To iBtmR
        oMyDic.Add i, oMySht.Range("B" & i).Value
    Next i
    
    For Each varKey In oMyDic.Keys
        For j = 1 To intMult
            oMySht.Range("C" & iTopR + iMyShift).Offset(j - 1, 0).Value = varKey
        Next j
        iMyShift = iMyShift + intMult
    Next varKey
    
    oMySht.Columns("B:B").Delete
End Sub

Private Sub CommandButton1_Click()
    RepeatMe
End Sub

...
Рейтинг: 0 / 0
09.07.2016, 07:22
| Ответить | Цитировать | Написать  
дублировать каждую строку 5раз
    #39271024
Фотография i45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
i45
Участник
dartvaider,

Одну строку поправил.

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
*** Не забудь поставить ссылку на Microsoft Scripting Runtime. Но можно переделелать и без нее, будет еще проще.

Public Sub RepeatMe()

    Dim intMult As Integer
    Dim i As Integer
    Dim iTopR As Integer
    Dim iBtmR As Integer
    Dim oMySht As Worksheet
    Dim oMyDic As New Dictionary
    Dim varKey As Variant
    Dim j As Integer
    Dim iMyShift As Integer
    
    Set oMySht = ThisWorkbook.Worksheets("Sheet1")
    
    oMySht.Range("C:C").ClearContents
    intMult = oMySht.Range("A1").Value
    iTopR = 1
    iBtmR = oMySht.Range("B1").End(xlDown).Row

    For i = iTopR To iBtmR
        oMyDic.Add i, oMySht.Range("B" & i).Value
    Next i
    
    For Each varKey In oMyDic.Keys
        For j = 1 To intMult
            oMySht.Range("C" & iTopR + iMyShift).Offset(j - 1, 0).Value = oMyDic.Item(varKey)
        Next j
        iMyShift = iMyShift + intMult
    Next varKey
    
    oMySht.Columns("B:B").Delete
End Sub

Private Sub CommandButton1_Click()
    RepeatMe
End Sub

...
Рейтинг: 0 / 0
09.07.2016, 07:33
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / дублировать каждую строку 5раз
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39270368&tid=2155488]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 65ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 314ms
total:  462ms
созд. / загр.: 462ms
x
x
Закрыть


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