Разделите листы между разными людьми

Question

Итак, у меня есть несколько листов с информацией о них.Мне нужно равномерно распределить эти листы между несколькими людьми.Но мне нужно разделить его на длину списка.Например: на листе 1 15 строк. На листе 2 41 строка. На листе 3 32 строки.округление до целого числа будет 17 на человека.так что я ищу это делить на лист и строку.Пример: Человек 1 получит строки 1-15 листа 1 и 2 и строки 2 и листа 2 Человек 2 получит строки 3-20 листа 2 и т. Д.

Staff = InputBox("How many people will this be divided among?", "Split")
ReDim Person(1 To Staff)
ReDim SNarray(1 To Sheets.Count)
For i = 1 To Sheets.Count
    SNarray(i) = Sheets(i).Name
Next
ReDim RowCounts(1 To Sheets.Count)
For i = 1 To Sheets.Count
    Sheets(SNarray(i)).Activate
    RowCounts(i) = Cells(Rows.Count, 1).End(xlUp).Row
Next
For i = 1 To Sheets.Count
    Total = Total + RowCounts(i)
Next
Total = (Total - 2) / Staff
Total = Int(Total)

Answer 1

Попробуйте

Sub test()
    Dim Ws As Worksheet
    Dim r As Long, i As Integer, Staff As Integer

    Staff = InputBox("How many people will this be divided among?", "Split")

    For i = 1 To Staff
        Set Ws = Sheets(i)
        With Ws
            r = .Range("a" & Rows.Count).End(xlUp).Row
            Total = Total + r - 1
        End With
    Next
    Total = Total / Staff
    Total = Int(Total)
    MsgBox Total
End Sub