Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
перенос данных по количеству строк
 
Добрый день!
Помогите, пожалуйста, решить задачу)
Необходимо перенести данные из файла "данные для переноса" указанные в двух столбцах "EAN" и "кратность" в новый файл, при этом повторить каждое значение этих столбцов в том количестве строк, которые указаны в столбце "количество строк".
Прикладываю файл того, что должно получиться.
Есть ли какая-то функция/настраиваемая формула для переноса данных по заданному количеству строк?
Спасибо!  
 
Нужно выделить область, 3 столбца. И запустить макрос.
Код
Sub MultShK()
    Dim arr As Variant
    arr = Selection
    If Not IsArray(arr) Then
        MsgBox "Выделите область.", vbExclamation
        Exit Sub
    End If
    
    Dim y As Long
    y = Application.Sum(Selection.Columns(3))
    If y = 0 Then Exit Sub
    
    Dim brr As Variant
    ReDim brr(1 To y, 1 To 2)
    Dim u As Long
    Dim n As Long
    Dim i As Long
    For y = 1 To UBound(arr, 1)
        If IsNumeric(arr(y, 3)) Then
            n = arr(y, 3)
        Else
            n = 0
        End If
        For i = 1 To n
            u = u + 1
            brr(u, 1) = arr(y, 1)
            brr(u, 2) = arr(y, 2)
        Next
    Next
    
    With Workbooks.Add(1).Sheets(1).Cells(1, 1).Resize(UBound(brr, 1), UBound(brr, 2))
        .Columns(1).NumberFormat = "@"
        .Value = brr
        .Columns(1).AutoFit
    End With
End Sub
Изменено: МатросНаЗебре - 8 апр 2021 12:50:15
 
Ещё вариант, см. файл
 
Спасибо большое! Все получилось!  :)  
Страницы: 1
Читают тему (гостей: 1)
Наверх