Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 21.08.2018, 18:16   #1
Марилибоби
Новичок
 
Регистрация: 21.08.2018
Сообщений: 5
Репутация: 10
Восклицание как сделать в excel нумерацию строк с повторением

Хелп!) Как изменить цикл, который описан ниже так, что бы следующее число было через 2 строки (то есть нужно что бы список был таким:
1
1
1
2
2
2
3
3
3
......и т.д.)

Sub while_loop ()

Dim num As Integer
num = 1
While num <= 350
Cells (num, 1) = num
num = num + 1
Wend

End Sub
Марилибоби вне форума   Ответить с цитированием
Старый 21.08.2018, 18:44   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,517
Репутация: 5308
По умолчанию

так ?
Код:

Sub while_loop()

Dim num As Integer, nom_row As Integer
num = 1: nom_row = 1
While num <= 300
  Cells(nom_row, 1) = num
  Cells(nom_row + 1, 1) = num
  Cells(nom_row + 2, 1) = num
  nom_row = nom_row + 3
  num = num + 1
Wend

End Sub

Serge_Bliznykov вне форума   Ответить с цитированием
Старый 21.08.2018, 18:46   #3
Марилибоби
Новичок
 
Регистрация: 21.08.2018
Сообщений: 5
Репутация: 10
Хорошо

да да да да
огромное спасибо
Марилибоби вне форума   Ответить с цитированием
Старый 21.08.2018, 18:48   #4
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,517
Репутация: 5308
По умолчанию

Всегда пожалуйста!
Serge_Bliznykov вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделать в Word автоматическую нумерацию Krasi Помощь студентам 2 05.01.2016 16:52
Как сделать в Excel таблицу из из 3 строк и 15 столбцов ZasZas13 Microsoft Office Excel 8 21.12.2011 19:45
Как сделать нумерацию записей, полученных запросом Speeker БД в Delphi 3 30.11.2011 12:09
Как сделать чтоб listbox показывал нумерацию? blackstersl Общие вопросы Delphi 7 01.02.2009 15:28
как сделать нумерацию попорядку после автофильтра SnowManTomsk Microsoft Office Excel 3 14.03.2008 21:55


10:23.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru