Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / дублировать каждую строку 5раз / 6 сообщений из 6, страница 1 из 1
08.07.2016, 10:58
    #39270368
dartvaider
dartvaider
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
дублировать каждую строку 5раз
Добрый день помогите пожалуйста написать макрос как дублировать каждую строку 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, 11:33
    #39270406
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
дублировать каждую строку 5раз
dartvaiderпомогите пожалуйста написать макрос
запусти запись макроса, сделай руками, останови, изучи код и поправь под себя.
dartvaiderдублировать каждую строку 5 раз
dartvaiderпродублировать 10 раз
ты уж определись, что ли...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2016, 11:45
    #39270425
dartvaider
dartvaider
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
дублировать каждую строку 5раз
Akina,

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

for to next пробовал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2016, 07:22
    #39271021
i45
i45
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
дублировать каждую строку 5раз
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:33
    #39271024
i45
i45
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
дублировать каждую строку 5раз
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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / дублировать каждую строку 5раз / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 400ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2155488]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 29ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 292ms
total:  400ms
x
x
Закрыть


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