ник: pashulka
Re: Выбор и вставка нескольких ячеек Попробуйте использовать что-то вроде нижеопубликованного кода, только обратите внимание на то, что столбец "A" используется исключительно в качестве примера.
Private Sub Test()
If TypeOf Selection Is Range Then
Dim iColumn As Range, iCell As Range
Set iColumn = Intersect(Columns(1), Selection)
If Not iColumn Is Nothing Then
Workbooks.Add xlWBATWorksheet
For Each iCell In iColumn
Range("A1:B1").Offset(iCount&).Value = _
iCell.Resize(1, 2).Value: iCount& = iCount& + 1
Next
End If
End If
End Sub