Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
скопировать ячейки с заданным шагом
 
#1
10.04.2020 16:19:54
Помогите,пожалуйста, написать формулы для копирования ячеек:
1) каждую 8 ячейку(включая первую)
2) каждую 80 ячейку(включая первую)
Изменено: Marina98 - 10.04.2020 18:23:59
 
 
 
#2
10.04.2020 16:40:45
Покажите в файле нужный результат. И что для примера необходимо 8 тыс строк?
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#3
10.04.2020 16:51:39
В данном файле 8000 строк, мне необходимо получить 1000 строк(копировать каждую 8 ячейку) и 100 строк(копировать каждую 80)
 
 
 
#4
10.04.2020 17:31:38
название темы:
скопировать ячейки с заданным шагом
Marina98,
не включая первую, а начиная с первой
при описании задачи используйте точные и лаконичные фразы
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#5
10.04.2020 17:54:54
хорошо,спасибо,учту.Вы можете помочь составить формулы,пожалуйста?
 
 
 
#6
10.04.2020 18:02:08
Цитата
Marina98 написал:
В данном файле 8000 строк,
А помогающим СТОЛЬКО не нужно. Если бы в Вашем файле было 800 000 - Вы тоже показали бы файл целиком?
 
 
 
#7
10.04.2020 18:08:14
Какая разница сколько там строк?Программа же будет автоматически все делать. Я прошу помочь с формулами
Изменено: Marina98 - 10.04.2020 18:09:40
 
 
 
#8
10.04.2020 18:13:03
Есть разница - не нужно качать большой файл.
Как Вы не поймёте: для того, чтобы помочь Вам, совсем необязательно показывать все 8000 строк. Зачем потенциальным помощникам видеть их все?

Цитата
Marina98 написал:
Я прошу помочь с форумами
А я прошу впредь готовить НЕБОЛЬШОЙ пример.
 
 
 
#9
10.04.2020 18:21:54
Хорошо,я буду знать,впервые обращаюсь к форумам,поэтому не знаю всех тонкостей.Сейчас изменю
 
 
 
#10
10.04.2020 20:11:06
Макросом для первого пункта
Результат в столбце С
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim n As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Range("C1:C" & iLastRow).ClearContents
    n = 1
  For i = 1 To iLastRow Step 8
    Cells(n, "C") = Cells(i, "A")
    n = n + 1
  Next
End Sub
 
 
 
#11
10.04.2020 22:27:40
Цитата
Marina98 написал:
написать формулы для копирования ячеек:
Код
=ЕСЛИ(ОСТАТ(СТРОКА();8)>0;"";A1)
Код
=ЕСЛИ(ОСТАТ(СТРОКА();80)>0;"";A1)
 
 
 
#12
11.04.2020 09:32:11
Объясните,пожалуйста, формулы.
Я верно понимаю,что мне нужно вводить формулу в  каждой строке для поиска нужной ячейки?
Изменено: Marina98 - 11.04.2020 09:41:35
 
 
 
#13
11.04.2020 09:46:48
Marina98, если это формула Настя_Nastya, то вставить в первую ячейку и протянуть вниз до конца ваших 8000 строк (или сколько их там).
если же макрос Kuzmich, то он будет при запуске все делать сам -вам лишь его запустить...
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#14
11.04.2020 09:48:05
Всем огромное спасибо  
 
 
 
Страницы: 1
Наверх