Блог

Мне нужно, чтобы мой файл был таким:

на экране я выбираю количество строк/столбцов-10

мой идентификатор запроса как разделить мои данные, как в примере, используя определенное количество строк/столбцов

Я изменил один из своих макросов, которые я использую изо дня в день. Вы можете поиграть с этим.
p.s. Активная ячейка должна быть первой ячейкой ваших данных.

 Sub split_by_ten() If MsgBox("Are you sure?", vbOKCancel) = vbCancel Then Exit Sub Else Application.ScreenUpdating = False  Dim i, j  i = ActiveCell.Row  j = 3  Do Until Cells(i, 1) = ""  Range(Cells(i, 1), Cells(i   9, 1)).Select  Selection.Copy  Cells(3, j).Select  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,  SkipBlanks:=False, Transpose:=False  i = i   10  j = j   1  Loop  Application.ScreenUpdating = True  MsgBox "done !" End If End Sub