Цикл для сбора меток и формул в динамических столбцах

Пример кода:

Sheet1 имеет формат данных Sheet3 имеет основной желаемый результат

https://drive.google.com/open?id=1aXn230d-7zh68w6FJN0qpZ6R0rI31HSE

Код для сбора этикеток:

Sub GetData()

Dim ArrPK() As String, SearchString As String
Dim SerialNo As Range, aCell As Range
Dim ws As Worksheet
Dim PkCounter As Long
Dim LstBox As msforms.ListBox

Set ws = ThisWorkbook.Sheets("Sheet1")
SearchString = "Serial#"
Set LstBox = UserForm1.ListBox1

PkCounter = 1

With ws
    Set SerialNo = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)

    For Each aCell In SerialNo
        If aCell.Value2 = SearchString Then
            ReDim Preserve ArrPK(1 To 5, 1 To PkCounter)
            ArrPK(1, PkCounter) = aCell.Offset(0, 1) 'Serial#
            ArrPK(2, PkCounter) = aCell.Offset(1, 1) 'Firmware#
            ArrPK(3, PkCounter) = aCell.Offset(3, 1) 'Capacity
            ArrPK(4, PkCounter) = aCell.Offset(3, 3) 'Technology
            ArrPK(5, PkCounter) = aCell.Offset(3, 11) 'Battery#
       'Collected information labels, now run calculations...
            PkCounter = PkCounter + 1
        End If
    Next
End With
End Sub

Цель: (1) Цикл для сбора данных, связанных с метками а также вычислений из динамических размеров столбцов (средние, минимальные, максимальные, счетчики, суммы и т. д.). (2) Получите ВСЕ данные о дате и ВСЕ данные о состоянии точек зарядки (столбцы B и N) в два столбца для построения графика.

Вряд ли кто-нибудь будет скачивать файл с поддержкой макросов. Ваши шансы на помощь были бы выше, если бы вы разместили скриншоты.

Tim Williams 13.09.2018 21:48

Лол, я пробовал это, и люди просили файл. Могу сохранить без макроса.

AKow 13.09.2018 22:01
0
2
33
0

Другие вопросы по теме