Приветствую!
Изначально погнался за красотой таблицы теперь кусаю локти
Есть многоуровневая таблица ( в примере только два города в рабочей таблице их более 100). Хочу ее перевести в классическую таблицу.
Наткнулся на от Николая. Но он не совсем справляется. Для его работы разбиваю таблицу на области и каждую область прохожу макросом отдельно , тем самым создавая кучу новых листов. Можно ли как то доработать макрос чтобы он справился с моими заграмождениями( обработать все области сразу) ?
Заранее спасибо!
Макрос из примера:
Изначально погнался за красотой таблицы теперь кусаю локти
Есть многоуровневая таблица ( в примере только два города в рабочей таблице их более 100). Хочу ее перевести в классическую таблицу.
Наткнулся на от Николая. Но он не совсем справляется. Для его работы разбиваю таблицу на области и каждую область прохожу макросом отдельно , тем самым создавая кучу новых листов. Можно ли как то доработать макрос чтобы он справился с моими заграмождениями( обработать все области сразу) ?
Заранее спасибо!
Макрос из примера:
| Код |
|---|
Sub Redesigner() Dim i As Long
Dim hc As Integer, hr As Integer
Dim ns As Worksheet
hr = InputBox("Сколько строк с подписями сверху?")
hc = InputBox("Сколько столбцов с подписями слева?")
Application.ScreenUpdating = False
i = 1
Set inpdata = Selection
Set ns = Worksheets.Add
For r = (hr + 1) To inpdata.Rows.Count
For c = (hc + 1) To inpdata.Columns.Count
For j = 1 To hc
ns.Cells(i, j) = inpdata.Cells(r, j)
Next j
For k = 1 To hr
ns.Cells(i, j + k - 1) = inpdata.Cells(k, c)
Next k
ns.Cells(i, j + k - 1) = inpdata.Cells(r, c)
i = i + 1
Next c
Next r
End Sub |
Изменено: - 17.08.2018 13:47:11
