Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
power query Разделить столбец, и проставить данные, Разделить столбец, и проставить данные
 
#1
26.03.2024 15:34:26
Здравствуйте, помогите пожалуйста

Есть таблица с данными, в 1 столбце есть данные по времени и номеру карты, при удалении строк с пустыми знамениями в последн7ем столбце удаляются эти номера, а надо добавить столбец, удалить ячейки со временем т.д., потом продолжить номера карт до следующего значения
например 1971860 ставим во все ячейки вниз, доходим до 1971878 переключаемся на нее и тянем до следующего номера.

В примере первая таблица это исходная, а вторая как должно получится на выходе
Помогите пожалуйста, дату со временем я могу разделить, а вот как номера протягивать не сооброжу
 
 
 
#2
26.03.2024 19:06:23
Допиливайте сами дальше.
 
 
 
#3
27.03.2024 22:42:35
Тем у кого нет power query
Таблица находится на Лист_1

Код
Sub Limits()
Dim FoundLimit As Range
Dim FirstAdr As String
Dim BeginDiapazon As Long
Dim EndDiapazon As Long
Dim iLastRow As Long
Dim iLastRow_1 As Long
Dim j As Integer
Dim limitNomer As Long
    With ThisWorkbook.Worksheets("Лист_1")
      iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("G2:M" & iLastRow).ClearContents        ' очищаем
            iLastRow_1 = .Cells(.Rows.Count, "G").End(xlUp).Row + 1
    Set FoundLimit = .Columns("A").Find("Лимиты", , xlValues, xlWhole)
       If Not FoundLimit Is Nothing Then
             FirstAdr = FoundLimit.Address    'адрес первого вхождения
          Do
             limitNomer = FoundLimit.Offset(-1)
               BeginDiapazon = FoundLimit.Row + 1
             Set FoundLimit = .Columns("A").Find("Лимиты", After:=FoundLimit)
             If FoundLimit.Address <> FirstAdr Then
               EndDiapazon = FoundLimit.Row - 1
             Else
               EndDiapazon = iLastRow
             End If
        For j = BeginDiapazon To EndDiapazon    ' цикл по диапазону наименований
            If IsDate(Cells(j, 1)) Then
                .Cells(iLastRow_1, "G") = Int(.Cells(j, 1))   '
                .Cells(iLastRow_1, "H") = .Cells(j, 1) - Int(.Cells(j, 1))
                .Cells(iLastRow_1, "I") = .Cells(j, 2)
                .Cells(iLastRow_1, "J") = .Cells(j, 3)
                .Cells(iLastRow_1, "K") = .Cells(j, 4)
                .Cells(iLastRow_1, "L") = .Cells(j, 5) '
                .Cells(iLastRow_1, "M") = limitNomer                     '
                iLastRow_1 = iLastRow_1 + 1
            End If
        Next
          Loop While FoundLimit.Address <> FirstAdr
       End If
    End With
End Sub
 
 
 
Страницы: 1
Наверх