Лучший способ переписать логику цикла массива?

Justin Roberts спросил: 26 декабря 2017 в 07:51 в: arrays
For i = 0 To n    If i <= 48 Then 'left section of first page        signatureSheet.Cells(i + 2, 1) = i + 1
        signatureSheet.Cells(i + 2, 2) = empname(i)
        signatureSheet.Cells(i + 2, 4) = personnum(i)    ElseIf i <= 97 Or i <= 197 Or i <= 297 Or i <= 397 Then 'right section of first        signatureSheet.Cells(i - 47, 5) = i + 1
        signatureSheet.Cells(i - 47, 6) = empname(i)
        signatureSheet.Cells(i - 47, 8) = personnum(i)    ElseIf i <= 147 Or i <= 247 Or i <= 347 Or i <= 497 Then        signatureSheet.Cells(i - 47, 1) = i + 1
        signatureSheet.Cells(i - 47, 2) = empname(i)
        signatureSheet.Cells(i - 47, 4) = personnum(i)    End IfNext i

Это вставляет первые 49 массива из A2: A50, следующие 49 из B2: B50, а остальные в единицах из пятидесяти в чередующихся столбцах из A51: A100, B51: B100 , A101: A150, B101: B150 и т. Д. Есть ли лучший способ переписать это идеально, чтобы он мог обрабатывать бесконечные размеры n?

0 ответов