Как я могу сохранить каждую пятую строку в Excel

У меня есть набор данных в excel с 3084 строками. Мне нужно удалить 4 строки, а затем сохранить одну: удаление вторника, среды, четверга, пятницы, но сохранение понедельника для создания еженедельно, а не ежедневно набор данных.

  • Примечание: данные совпадает с датой ни дня недели так что я не могу просто отфильтровать вторники и так далее [дата появляется как 14-Jun-00]).

там любой способ сделать это без необходимости вручную пройти и удалить четыре строки за раз?

30
задан Raystafarian
06.05.2023 22:42 Количество просмотров материала 3374
Распечатать страницу

2 ответа

выберите соседний столбец и напишите =MOD(ROW(A1),5) в первом ряду. Это заполнит все строки в этом столбце числами 0-4. Затем просто отфильтруйте строки, которые вы хотите удалить:

Data > Filter > AutoFilter

Edit: так как это повторяющаяся дата, вы, вероятно, могли бы также просто использовать подстановочный знак при фильтрации, т. е. 14-*

8
отвечен micke 2023-05-08 06:30

вы также можете попробовать решение VBA-может потребоваться внести незначительные изменения на основе вашей проблемы, но это дает общее представление. Эта подпрограмма предполагает, что активирована первая ячейка в первой строке, а затем выполняется подпрограмма.

Sub sbDelete4Keep1()

    Dim rngProcess As Range
    Dim lCntr As Long
    Set rngProcess = ActiveCell
    lCntr = 1
    While Not IsEmpty(rngProcess.Offset(1, 0))
        Range(rngProcess, rngProcess.Offset(3, 0)).EntireRow.Delete
        Set rngProcess = ActiveCell.Offset(lCntr, 0)
        lCntr = lCntr + 1
    Wend

End Sub
0
отвечен Mozan Sykol 2023-05-08 08:47

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх