Как сделать макрос вставки "только значений".

Костя

Гость

13.02.2010 15:12:54

Друзья,

Есть такой простенький макрос. Как изменить его, чтобы он вставлял только значения ячеек а не формулы?

Sub Button1_Click()
Dim Rng As Range
Dim rCell As Range
Dim LastRow As Long
Set Rng = Selection
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each rCell In Rng
If Not IsEmpty(rCell) Then
rCell.Copy Cells(LastRow + 1, 1)
LastRow = LastRow + 1
End If
Next
End Sub

McCinly Пользователь Сообщений: 278 Регистрация: 01.01.1970	#2 13.02.2010 15:26:28 Sub Button1_Click() Dim Rng As Range Dim rCell As Range Dim LastRow As Long Set Rng = Selection Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ skipBlanks:=False, Transpose:=False End Sub

McCinly Пользователь Сообщений: 278 Регистрация: 01.01.1970	#3 13.02.2010 15:27:35 Sub Button1_Click() Dim Rng As Range Set Rng = Selection Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ skipBlanks:=False, Transpose:=False End Sub Даже так

Guest

Гость

13.02.2010 15:36:54

{quote}{login=McCinly}{date=13.02.2010 03:27}{thema=}{post}Sub Button1_Click()
Dim Rng As Range
Set Rng = Selection
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ skipBlanks:=False, Transpose:=False
End Sub

Даже так{/post}{/quote}

спасибо, но вот эта строчка не проходит
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ skipBlanks:=False, Transpose:=False

McCinly Пользователь Сообщений: 278 Регистрация: 01.01.1970	#5 13.02.2010 15:44:13 Подчеркивание это перенос строки, его надо убрать. Выделяете ячейки для копирования потом ctrl-c, ставите куда надо жмете кнопку, вставляются значения.

Guest

Гость

13.02.2010 15:49:48

{quote}{login=McCinly}{date=13.02.2010 03:44}{thema=}{post}Подчеркивание это перенос строки, его надо убрать.

Выделяете ячейки для копирования потом ctrl-c, ставите куда надо жмете кнопку, вставляются значения.{/post}{/quote}

да нет... я не это имел ввиду )). Вы взгляните на верхний скрипт... он вот отсюда
http://www.planetaexcel.ru/forum.php?thread_id=13439&forum_id=129&page_forum=lastpage&allnum_forum=0#post98825

Guest Гость	#7 13.02.2010 15:56:39 {quote}{login=The_Prist}{date=13.02.2010 03:52}{thema=}{post}Sub Button1_Click() Dim rCell As Range Dim LastRow As Long For Each rCell In Selection If Not IsEmpty(rCell) Then LastRow = Cells(Rows.Count, 1).End(xlUp).Row+1 rCell.Copy Cells(LastRow, 1).PasteSpecial Paste:=xlPasteValues End If Next End Sub{/post}{/quote} супер! надеюсь что это будет еще кому-то полезно кроме меня! спасибо!

Читают тему