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

@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), правый клик - специальная вставка, вставить: значения, галка "пропускать пустые ячейки" - ОК.

Новые блоги и статьи
Как программировать под HCL Notes и создавать свои продукты на ее основе InfoMaster 11.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой мощную платформу для разработки корпоративных приложений, которая сочетает в себе функции электронной почты, календаря,. . .	Как работать с SVN (Subversion) InfoMaster 11.01.2025 Введение Система контроля версий является неотъемлемой частью современного процесса разработки программного обеспечения. Она обеспечивает управление изменениями в коде, позволяет отслеживать. . .	Использование GraphQL в JavaScript InfoMaster 11.01.2025 Введение в GraphQL и его преимущества В современной разработке веб-приложений эффективный обмен данными между клиентом и сервером играет ключевую роль. GraphQL представляет собой язык запросов и. . .	Администрирование Git, продвинутые техники работы с Git InfoMaster 11.01.2025 Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .	Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .
Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .	Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .	Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .

Fairuza 6023 / 3217 / 719 Регистрация: 23.11.2010 Сообщений: 10,749
	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