Всем доброго времени суток!
Подскажите пжлта...ммммм....как бы это написать..вообщем у меня все данные импортируются из txt, поэтому с помощью макроса навожу красоту (рисую таблицу)...
На одном листе: идет шапка.....затем таблица где загружается неизвестное кол-во строк от 1 до бесконечности.....чтобы он таблицу рисовал под это кол-во строк я сделала...а как задать, что после таблицы этой идет строчка "Дополнительные инструкци:" (запись эта стандартная и не меняется) и её нужно обьеденить со следующей строчкой и нарисовать границы....а так как не известно на какой строчке кончится таблица....
k = 1 -этот код не помог...может поправите тут ошибки)
While k < i
k = k + 1
Set r = Range("A" & k, "D" & k + 1)
If r.Value Like "Дополнительные инструкции:" Then
r.HorizontalAlignment = xlLeft
r.VerticalAlignment = xlCenter
r.WrapText = True
r.Orientation = 0
r.AddIndent = False
r.IndentLevel = 0
r.ShrinkToFit = False
r.ReadingOrder = xlContext
r.MergeCells = True
r.Borders(xlDiagonalDown).LineStyle = xlNone
r.Borders(xlDiagonalUp).LineStyle = xlNone
With r.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With r.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With r.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With r.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If

Необходимо чтобы пользователь запустил отчет, и он уже вывел всю эту красоту, для этого нужно в макросе прописать. И кол-во строк в таблице для каждого клиента разное, поэтому необходимо определить конец этой таблицы и тогда нарисовать "Дополнительные интрукции:"...обьеденить ячейки......)

Ну как бы я и спрашиваю как определить последнюю строчку таблицы, затем найти запись Доп.инструкции и разукрасить её.....) (только не после запуска макроса, а до чтобы определял)

ну как, данные выгружаются в блокнот (я же писала) из блокнота в ексель...и сколько там строк выгрузится не известно! В екселе я обьеденяю ячейки и рисую границы...