Вставка строки с некоторыми данными из предыдущей

[Error31]

Условие:
есть некая таблица в Excel местами заполненная одинаковыми данными (столбцы с 1 по 4)
Задача:
необходимо добавить строку и скопировать в не значения из ряда ячеек предыдущей строки (в столбцах с 1 по 4 и текоторых других). Место вставки строки - следующая после строки на которой стоит курсор.
=======
Как добать строку - понятно, но вот каким образом задать копируемые ячейки?

[Viper]

По моему автору стоит перестать волноваться и попробовать более понятно сформулировать вопрос

[Bagathur]

Не понял, что именно ты хочешь, но попробуй последовать излюбленному совету ГСерга - запиши макрос, который делает то что тебе надо, и посмотри в нём код.

[Error31]

Хреновый из меня рассказчик поэтому смотрите образец таблицы.
Код того, что надо сделать выглядит "примерно" так:

Application.CutCopyMode = False
Selection.EntireRow.Insert
Range("A4:C4").Select
Selection.Copy
Range("A5").Select
ActiveSheet.Paste
Range("F4").Select
Application.CutCopyMode = False ' ?что это такое я не знаю?
Selection.Copy
Range("F5").Select
ActiveSheet.Paste

Всё бы ничего только строка может быть не только четвертой, но и любой другой. Отсюда и вопрос - как определить номер той строки из которой нужно скопировать данные, если все что о ней известно это то, что она предшествует вставленной.

Надеюсь на этот раз понятно?

[HandKot]

примерно так

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

Public Sub InsertAndFill()
    Dim i As Integer
   
    'берм адрес выделенной ячейки
    i = Selection.Row
   
    'всавляем строку
    Rows(CStr(i + 1)).Select
    Selection.EntireRow.Insert
   
    Range("A" & CStr(i) & ":C" & CStr(i)).Select
    Selection.Copy
    Range("A" & CStr(i + 1)).Select
    ActiveSheet.Paste
   
    Range("F" & CStr(i)).Select
    Selection.Copy
    Range("F" & CStr(i + 1)).Select
    ActiveSheet.Paste
 
End Sub



[Error31]

Спасибо большое вроде работает!

[Nicky]

примерно так

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

Public Sub InsertAndFill()
    Dim i As Integer
   
    'берм адрес выделенной ячейки
    i = Selection.Row
   
    'всавляем строку
    Rows(CStr(i + 1)).Select
    Selection.EntireRow.Insert
   
    Range("A" & CStr(i) & ":C" & CStr(i)).Select
    Selection.Copy
    Range("A" & CStr(i + 1)).Select
    ActiveSheet.Paste
   
    Range("F" & CStr(i)).Select
    Selection.Copy
    Range("F" & CStr(i + 1)).Select
    ActiveSheet.Paste
 
End Sub


Чтобы скопировать, не обязательно выделять

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


  '...
  'Range("A" & CStr(i) & ":C" & CStr(i)).Select
  'Selection.Copy
  Range("A" & CStr(i) & ":C" & CStr(i)).Copy
  '...


[uhm]

Чтобы вставить, тоже Только использовать надо .PasteSpecial

[Nicky]

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

Public Sub InsertAndFill()
  With Selection
    Rows(.Row + 1).EntireRow.Insert
   
    Range("A" & .Row & ":C" & .Row).Copy
    Range("A" & .Row + 1).PasteSpecial xlPasteAll
   
    Range("F" & .Row).Copy
    Range("F" & .Row + 1).PasteSpecial xlPasteAll
  End With
  Application.CutCopyMode = False
End Sub