Копиирование файлов с одного листа на другой

@olga8774 · Регистрация: 26.03.2016

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

Visual Basic

1 2	Set mRng = Workssheets("Лист1").Range("A2:F2") mRng.Copy Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

Вот так копирую записи с одного листа на второй, но мне нужендругой порядок, сначало ячейка b например, затем d, потом f, потом пустую ячейку, и толькозатем а (это как пример, хочу понять сам принцип, как копировать не по порядку данные) , помогите пожалуйста.

@Hugo121 · 11.04.2016, 09:14

1. причём тут файлы?
2. хотите копировать по одной ячейке не по порядку - копируйте, что мешает?
3. всегда надёжнее копировать реальный код из редактора - всем будет легче.

@olga8774 · 11.04.2016, 09:22 **[ТС]**

Visual Basic

Private Sub mCopyData()
    Dim mRng As Range
 
    Set mRng = Worksheets("Лист1").Range("A2:F2")
    If Application.CountA(mRng) = 0 Then
        MsgBox "Пусто!!!"
        Exit Sub
    Else
        mRng.Copy Sheets("Служебные записки").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    End If
End Sub

вот так

Visual Basic

1	Set mRng = Worksheets("Лист1").Range("A2:F2")

Как задать область что бы сначала ячейка b копировала в ячейку А второго листа, а в ячейку B - ячекй D с первого листа

~~Shersh~~ · 11.04.2016, 09:33

Может так? -

Visual Basic

Private Sub mCopyData()
    Dim mRng As Range,nRng As Range,r as long
 
    Set mRng = Worksheets("Лист1").Range("A2:F2")
    If Application.CountA(mRng) = 0 Then
        MsgBox "Пусто!!!"
        Exit Sub
    Else
        set  nRng=Sheets("Служебные записки").Cells(Rows.Count, 1).End(xlUp).entirerow
        mRng(2).Copy nRng(1) 'ячейка b копировала в ячейку А второго листа
        mRng(4).Copy nRng(2) 'а в ячейку B - ячекй D с первого листа
        'и т.д.
    End If
End Sub

@olga8774 · 11.04.2016, 09:35 **[ТС]**

И так каждую ячейку мне копировать например мне еще нужно D ячеку копировать на место B и т.д. они у мекня все в разнобой

Добавлено через 34 секунды
А с копированием файла я замурилась.... извините... как поменть имя темы?

~~Shersh~~ · 11.04.2016, 09:36

Сообщение от olga8774

И так каждую ячейку мне копировать

А куда деваться при таких данных?

@olga8774 · 11.04.2016, 09:42 **[ТС]**

я просто думала можно сделать более красиво (

~~Shersh~~ · 11.04.2016, 09:49

А есть ли резон использовать COPY?
Попробуйте просто присваивание -

Visual Basic

1 2	nRng(1)=mRng(2) 'ячейка b копировала в ячейку А второго листа nRng(2)=mRng(4) 'а в ячейку B - ячекй D с первого листа

При необходимости задайте нужный формат целевым столбцам (на Sheets("Служебные записки")) заранее.

@olga8774 · 11.04.2016, 11:00 **[ТС]**

Shersh,

Сообщение от Shersh

При необходимости задайте нужный формат целевым столбцам (на Sheets("Служебные записки")) заранее.

Вот это не очень понятно
Весь же мой код остается таким же

Visual Basic

1
2
3

mRng(2).Copy nRng(1) 'ячейка b копировала в ячейку А второго листа
        mRng(4).Copy nRng(2) 'а в ячейку B - ячекй D с первого листа
        'и т.д.

просто это добавляю или не так?

Добавлено через 1 минуту

Сообщение от Shersh

А есть ли резон использовать COPY?

Есть я потом ячейки обнуляю и в них ничео нет после использование макроса

Новые блоги и статьи
Использование связки C# и PHP в корпоративной разработке и микросервисной архитектуре InfoMaster 16.01.2025 Введение в интеграцию C# и PHP В современной корпоративной разработке все чаще возникает потребность в создании гибких и масштабируемых решений, способных эффективно решать широкий спектр. . .	Как использовать Kerio дома для управления сетью и пользователями InfoMaster 16.01.2025 Использование технологий для улучшения повседневной жизни стало неотъемлемой частью современного быта. Одной из таких технологий является Kerio — мощный инструмент для управления сетью и. . .	Есть ли будущее у DVD и Blu-ray? InfoMaster 16.01.2025 В эпоху стремительного развития цифровых технологий и повсеместного распространения потоковых сервисов вопрос о будущем физических носителей информации становится все более актуальным. Особенно остро. . .	Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .
Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .

@Hugo121 6978 / 2879 / 552 Регистрация: 19.10.2012 Сообщений: 8,768
	11.04.2016, 09:14	2
	1. причём тут файлы? 2. хотите копировать по одной ячейке не по порядку - копируйте, что мешает? 3. всегда надёжнее копировать реальный код из редактора - всем будет легче. 1

@olga8774 0 / 0 / 0 Регистрация: 26.03.2016 Сообщений: 42
	11.04.2016, 09:35 [ТС]	5
	И так каждую ячейку мне копировать например мне еще нужно D ячеку копировать на место B и т.д. они у мекня все в разнобой Добавлено через 34 секунды А с копированием файла я замурилась.... извините... как поменть имя темы? 0

~~Shersh~~ Заблокирован
	11.04.2016, 09:36	6
	Сообщение от olga8774 И так каждую ячейку мне копировать А куда деваться при таких данных? 0

@olga8774 0 / 0 / 0 Регистрация: 26.03.2016 Сообщений: 42
	11.04.2016, 09:42 [ТС]	7
	я просто думала можно сделать более красиво ( 0

	11.04.2016, 11:00