Копирование только формул

@AlbinaIs · Регистрация: 07.10.2013

Author24 — интернет-сервис помощи студентам

Добрый день!
Помогите, пожалуйста!
Часто приходится сталкиваться со след.проблемой:
1. Необходимо скопировать ТОЛЬКО(!) формулы из столбца D в столбец E, пропуская значения.
В столбце D на самом деле очень много формул.
2. Вторая задача обратная:
Необходимо вставить значения из столбца J в столбец D, не портя формул в столбце D, т.е. вставить значения, пропуская ячейки с формулами.

Fairuza · 11.02.2015, 13:26

AlbinaIs, возможно не по теме, но судя по файлу, может не стоит так заморачиваться с формулами, а использовать промежуточные итоги

@AlbinaIs · 11.02.2015, 13:52 **[ТС]**

Fairuza, Промежуточные итоги не подойдут, в столбце формул очень много.
Задача в том, чтобы оставить те формулы, которые уже есть, т.е. ячейки с формулами менять нельзя.

@BigDaddy5514 · 11.02.2015, 15:00

файл прикреплен
а вот текст макроса:

Visual Basic

Sub zzz()
    
i = 2
j = 0
 
Do While (Cells(i + j, 4)) <> ""
    
If Cells(i + j, 4).HasFormula = True Then
    Cells(i + j, 4).Select
    Selection.Copy
    Cells(i + j, 5).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End If
    
If Cells(i + j, 10) <> "" Then
    Cells(i + j, 10).Select
    Selection.Copy
    Cells(i + j, 5).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End If
    
 
Application.CutCopyMode = False
    
j = j + 1
 
Loop
 
End Sub

@BigDaddy5514 · 11.02.2015, 15:46

вот он файл

@AlbinaIs · 17.02.2015, 14:20 **[ТС]**

Спасибо за ответы!BigDaddy5514, Fairuza,
С макросами, к сожалению, не работала(
самостоятельно, я думаю, не разберусь.

@Казанский · 17.02.2015, 14:44

Да чего тут сложного

Макрос по 1 задаче на самом деле в одну строку:

Visual Basic

1	for each a in selection.specialcells(xlcelltypeformulas).areas:a.copy a.offset(,1):next

Скопируйте ее, потом выделите столбец, из которого копируются формулы, Alt+F11, Ctrl+G, Ctrl+V, Enter.
Формулы скопированы в соседний столбец.

2. Без макроса!
Выделить столбец (в примере J), копировать.
Выделить 1-ю ячейку столбца, куда вставлять (D1), правый клик - специальная вставка, вставить: значения, галка "пропускать пустые ячейки" - ОК.

Fairuza 6024 / 3216 / 720 Регистрация: 23.11.2010 Сообщений: 10,743
	11.02.2015, 13:26	2
	AlbinaIs, возможно не по теме, но судя по файлу, может не стоит так заморачиваться с формулами, а использовать промежуточные итоги 0

@AlbinaIs 0 / 0 / 0 Регистрация: 07.10.2013 Сообщений: 11
	11.02.2015, 13:52 [ТС]	3
	Fairuza, Промежуточные итоги не подойдут, в столбце формул очень много. Задача в том, чтобы оставить те формулы, которые уже есть, т.е. ячейки с формулами менять нельзя. 0

@AlbinaIs 0 / 0 / 0 Регистрация: 07.10.2013 Сообщений: 11
	17.02.2015, 14:20 [ТС]	6
	Спасибо за ответы!BigDaddy5514, Fairuza, С макросами, к сожалению, не работала( самостоятельно, я думаю, не разберусь. 0

	17.02.2015, 14:44