Подскажите, пожалуйста, как вставить подписи данных итоговых значений в линейчатой гистограмме с накоплением. С столбчатой все получилось, изменив тип диаграммы ряда «Итог» на график.
Есть таблица в которой нужно группировать данные по 4 уровням. Начала группировать вручную но на 2000 строке (всего 9400) поняла, что без макроса не обойдусь. Нашла вот такой, вот здесь http://www.planetaexcel.ru/techniques/9/47/,
Код
Sub Multilevel_Group()
Dim level As Single, i As Single
Dim start As Single, LastRow As Single
Const FIRST_ROW = 2 'первая строка списка
Const FIRST_COLUMN = 1 'первый столбец списка
Const NUMBER_OF_LEVELS = 3 'количество уровней
Set ws = ActiveSheet
ws.UsedRange.ClearOutline 'убираем все группировки на листе
LastRow = WorksheetFunction.Match("Конец", ws.Columns(FIRST_COLUMN), 0) 'определяем номер последней строки
'проходим во вложенном цикле по уровням и группируем
For level = 1 To NUMBER_OF_LEVELS
start = 0
For i = FIRST_ROW To LastRow
'если нашли начало группы - запоминаем номер строки
If ws.Cells(i, level+FIRST_COLUMN-1) <> "" And _
WorksheetFunction.CountA(ws.Cells(i + 1, FIRST_COLUMN).Resize(1, level)) = 0 Then start = i
'если нашли конец группы - группируем
If WorksheetFunction.CountA(ws.Cells(i + 1, FIRST_COLUMN).Resize(1, level)) > 0 And start > 0 Then
ws.Rows(start + 1 & ":" & i).Group
start = 0
End If
Next i
Next level
End Sub
но почему-то выдает ошибку. Подскажите, что я делаю не так.
Мне стыдно,что я научилась только копировать макросы, а написать самой трудновато. Немножко потрудившись, вот что получилось. Работает, но мня не устраивает то что надо выделять диапазон перед выполнением макроса. Диапазонов у меня много и они разбросаны. Как сделать так, чтоб он работал в столбце I и столбце J пока не разобралась. Еще нужно учесть, что в этих столбцах будут данные, которые уже прошли через макрос
Код
Sub удалить_неразрывный_пробел()
Dim rCell As Range
For Each rCell In Selection
rCell = Replace(rCell, Chr(160), "")
rCell.TextToColumns
Next
End Sub
Как удалить пробелы внутри числа (неразрывный пробел) с помощью макроса. Сейчас использую «Найти и Заменить», так как формулу =СЖПРОБЕЛЫ(ПОДСТАВИТЬ(J5;СИМВОЛ(160);"";1))*1 использовать в моем случае не удобно.