Как проще всего сделать, чтоб минимум манипуляций

[claus]

програмно добавить строку и в ней пронумеровать непустые ячейки, типа вот так:

Код: Выделить всё

Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    ActiveCell.FormulaR1C1 = "1"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:AB1"), Type:=xlFillSeries

- только количество столбцев будет всегда разным, и этот пример не канает.

[KL]

програмно добавить строку и в ней пронумеровать непустые ячейки, типа вот так:

Код: Выделить всё

Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    ActiveCell.FormulaR1C1 = "1"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:AB1"), Type:=xlFillSeries

- только количество столбцев будет всегда разным, и этот пример не канает.

Задача не ясна. Повесь пример с начальной ситуацией и результатом.

[Alec]

Как-то так...

Код: Выделить всё

  NCol = 20'количество столбцов
  Rows(1).Insert xlDown
  Cells(1, 1) = 1
  Cells(1, 1).AutoFill Range(Cells(1, 1), Cells(1, NCol)), xlFillSeries


Записываем макрос и убираем по возможности Select, Selection, ActiveCell и тому подобное

[KL]

Еще так:

Код: Выделить всё

Sub test()
    ncol = 20
    Rows(1).EntireRow.Insert xlDown
    With Rows(1).Resize(, ncol): .Value = Evaluate("COLUMN(" & .Address & ")"): End With
End Sub

[claus]

Не, ну вобщем-то и так можно, только если "ncol = i", а "i = количеству столбцев". Тогда вопрос звучит по другому - как получить колличество непустых колонок?