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

@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?

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

@Hugo121 6944 / 2849 / 548 Регистрация: 19.10.2012 Сообщений: 8,721
	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