Объединить 2 макроса в 1

[1134]

Здравствуйте, у меня есть 2 макроса в Excel: первый разбивает текст по столбцам, второй преобразует получившуюся таблицу и рисует графики. Помогите пожалуйста превратить их в один. Макросы лежат в приложенном файле. Спасибо за помощь!

[Hugo121]

Чтоб не ломать построенное, добавьте в начало 4-е строки (новый макрос, после Option Compare Text):

Option Compare Text

Sub Go_Macro()
postolbcam
Main
End Sub

[1134]

Спасибо, сработало! Правда думает долго, как бы его ускорить?

[Hugo121]

Я проверить не могу с 2000, но может вот тут подкрутить:

   with   ActiveSheet.Shapes.AddChart
    .ChartType = xlLine
    .SetSourceData Source:=ActiveSheet.Range("B1:J63")
...
end with

Хотя здесь не основная потеря времени..

[1134]

Попробовал, видимого ускорения нет. Макрос стал заметно задумчивее при добавлении в него части работающей с графиками, до этого летал:

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=ActiveSheet.Range("B1:J63")
ActiveChart.SeriesCollection(5).Axi sGroup = 2
ActiveChart.SeriesCollection(3).Axi sGroup = 2
ActiveChart.SeriesCollection(1).Axi sGroup = 2
ActiveChart.SeriesCollection(7).Axi sGroup = 2
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRot ated)
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = _
"Iaeiieaiiua iieacaoaee, oun.i3"
ActiveChart.SetElement (msoElementSecondaryValueAxisTitleR otated)
ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Text = _
"Aeiaie?aneea iieacaoaee, i3/noo"

ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=ActiveSheet.Range("B1:B63,K 1:K63,L1:L63")
ActiveChart.ChartType = xlLine
ActiveChart.SeriesCollection(2).Axi sGroup = 2
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRot ated)
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = _
"Iaaiai?iiinou, a.aa."
ActiveChart.SetElement (msoElementSecondaryValueAxisTitleR otated)
ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Text = _
"Caaieiia aaaeaiea, aoi."

[Hugo121]

Основная потеря времени на
newarr = ArrAutofilterEx(arr, "1=" & v)
Там далее вложенные функции и т.д....