Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA копирование ячейки с условием
 
#1
03.03.2020 21:02:41
Добрый день! Коллеги, прошу помощи в решении задачи на VBA. Требуется скопировать ячейку n раз вниз через каждые m строк.
 
 
 
#2
03.03.2020 21:34:43
Код
Sub Макрос1()
For i = 1 To [b3]
Cells(([b4] + 1) * i + 2, 10) = [j2]
Next
End Sub
 
 
 
#3
03.03.2020 21:45:52
Настя_Nastya, большое спасибо! Вы не могли бы объяснить что в этой строке
Цитата
Настя_Nastya написал:
Cells(([b4] + 1) * i + 2, 10) = [j2]
означает +1, +2 и 10?

Кажется понял, 2 это строка, 10 это столбец, а +1 это +1
Изменено: Murderface_ - 03.03.2020 22:04:12
 
 
 
#4
03.03.2020 22:00:07
Еще вариант:
Код
Sub КопированиеАктивнойЯчейки()
'aequit 03.03.2020
    Dim i&, r As Range, n&, m&
    n = Application.InputBox("Сколько раз скопировать ячейку?", "Запрос данных", "", Type:=1)
    m = Application.InputBox("Через сколько строк скопировать ячейку?", "Запрос данных", "", Type:=1)
    Set r = ActiveCell
    For i = m To n * (m + 1) Step m + 1
        r.Copy Cells(r.Row + i + 1, r.Column)
    Next i
End Sub
 
 
 
#5
03.03.2020 22:03:39
aequit, спасибо! Но почему то долго выполняется при копировании например на несколько тысяч раз.
 
 
 
#6
03.03.2020 22:10:02
+1 это на какую строку после заполненной копировать (у Вас через 6, значит 6 +1 - то есть на каждую седьмую)
+2 с какой строки начать, у Вас значение во второй строке, значит +2
+10 - это номер столбца в котором нужно копировать (J)
лучше, конечно, все в переменные внести, но это я уже Вам оставила - на сладкое))) главное суть
Изменено: Настя_Nastya - 03.03.2020 22:11:45
 
 
 
#7
03.03.2020 22:11:41
Настя_Nastya, да, все очень доходчиво объяснили. Благодарю  :)  
 
 
 
#8
03.03.2020 22:16:10
Цитата
Murderface_ написал:
долго выполняется
Любое массовое чтение-запись с листа-на лист довольно длительная операция. К тому же, в моём варианте копируется не только значение, но и форматирование ячейки. Если оно не нужно, замените строку r.Copy Cells(r.Row + i + 1, r.Column) на Cells(r.Row + i + 1, r.Column) = r Увидите разницу.
 
 
 
#9
03.03.2020 22:18:57
aequit, спасибо! Возьму на заметку  :)  
 
 
 
Страницы: 1
Наверх