Выбрать определённые ячейки с условием и скопировать их

@Snezhig · Регистрация: 05.06.2014

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

Добрый день, у меня новый вопрос. Как сделать, что бы макрос, сканировал столбец, а потом при нужном значении вырезал их в другое место. А именно мне надо, что бы он первые 24 ячейки из столбца A, в которых есть цифры, перемещал в соседний столбик B, потом следующие 24, но уже в другой C и так несколько раз.

@KoGG · 09.06.2014, 17:39

Visual Basic

Sub Выборка()
    Dim i&, j&, k&
    k = 1
    For i = 0 To Cells(Rows.Count, 1).End(xlUp).row Step 24
        k = k + 1
        For j = 1 To 24
            If IsNumeric(Cells(i + j, 1)) Then
                Cells(i + j, k) = Cells(i + j, 1)
            End If
        Next j
    Next
End Sub

@Hugo121 · 09.06.2014, 18:22

Просили перемещать!

@KoGG · 10.06.2014, 09:37

Вырезаем и перемещаем:

Visual Basic

Sub Выборка()
    Dim i&, j&, k&
    k = 1
    For i = 0 To Cells(Rows.Count, 1).End(xlUp).row Step 24
        k = k + 1
        For j = 1 To 24
            If IsNumeric(Cells(i + j, 1)) Then
                 Cells(i + j, 1).Cut Destination:=Cells(i + j, k)
            End If
        Next j
    Next
End Sub

@Snezhig · 10.06.2014, 10:01 **[ТС]**

Сейчас попробую. Спасибо большое.

Добавлено через 6 минут
KoGG, получилось так, что он их делает лесенкой, то есть первые 24 он перекидывает из A в B(c 1 до 24) потом из A в С ( но уже вставляет их в ячейки с 25 до 49), а мне надо, что бы везде было с 1 до 24, как так сделать?
Заранее спасибо.

@~~Апострофф~~ · 10.06.2014, 10:06

А чуть-чуть подумать?

Visual Basic

1	Cells(i + j, 1).Cut Destination:=Cells(j, k)

@Snezhig · 10.06.2014, 11:31 **[ТС]**

Апострофф, я только недавно стал его изучать, я для меня это пока лес какой-то. Поэтому прошу прощения.

Добавлено через 1 час 21 минуту
Апострофф, А что надо исправить, что бы он начинал не с 1 ячейки, а с 3, ну то есть кинул их в B не c 1 по 24, а с 3 по 27

@Hugo121 · 10.06.2014, 11:35

В редакторе VBA ставите курсор внутрь кода, жмёте F8 - и так и жмёте, и смотрите что происходит на листе.
Для пущей наглядности можно в код в цикл добавить строки например

Visual Basic

1 2	Cells(i + j, 1).Select Cells(i + j, k).Select

(временно, чтоб понять что проверяется в этот момент).

@Snezhig · 10.06.2014, 11:41 **[ТС]**

Hugo121, запутали меня ещё больше

@Hugo121 · 10.06.2014, 11:51

Смысл в чём - прогнать код пошагово, отследить что в какой момент происходит - если непонятно какая ячейка сейчас "в работе", то можно её на листе выделить.
Так разберётесь где какое число в коде нужно подправить - я например не понял последнюю задачу - их что ниже нужно кидать? Ну добавьте ещё +2...

@KoGG · 10.06.2014, 12:14

С 3 по 26 (24 строки)

Visual Basic

Sub Выборка()
    Dim i&, j&, k&
    k = 1
    For i = 0 To Cells(Rows.Count, 1).End(xlUp).row Step 24
        k = k + 1
        For j = 1 To 24
            With Cells(i + j + 2, 1)
                If IsNumeric(.Value) Then
                 .Cut Destination:=Cells(j + 2, k)
                End If
            End With
        Next j
    Next
End Sub

@Snezhig 0 / 0 / 0 Регистрация: 05.06.2014 Сообщений: 16
		1
	Выбрать определённые ячейки с условием и скопировать их 09.06.2014, 10:13. Показов 1761. Ответов 10 Метки нет (Все метки) Добрый день, у меня новый вопрос. Как сделать, что бы макрос, сканировал столбец, а потом при нужном значении вырезал их в другое место. А именно мне надо, что бы он первые 24 ячейки из столбца A, в которых есть цифры, перемещал в соседний столбик B, потом следующие 24, но уже в другой C и так несколько раз. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	09.06.2014, 18:22	3
	Просили перемещать! 0

@Snezhig 0 / 0 / 0 Регистрация: 05.06.2014 Сообщений: 16
	10.06.2014, 10:01 [ТС]	5
	Сейчас попробую. Спасибо большое. Добавлено через 6 минут KoGG, получилось так, что он их делает лесенкой, то есть первые 24 он перекидывает из A в B(c 1 до 24) потом из A в С ( но уже вставляет их в ячейки с 25 до 49), а мне надо, что бы везде было с 1 до 24, как так сделать? Заранее спасибо. 0

@Snezhig 0 / 0 / 0 Регистрация: 05.06.2014 Сообщений: 16
	10.06.2014, 11:31 [ТС]	7
	Апострофф, я только недавно стал его изучать, я для меня это пока лес какой-то. Поэтому прошу прощения. Добавлено через 1 час 21 минуту Апострофф, А что надо исправить, что бы он начинал не с 1 ячейки, а с 3, ну то есть кинул их в B не c 1 по 24, а с 3 по 27 0

@Snezhig 0 / 0 / 0 Регистрация: 05.06.2014 Сообщений: 16
	10.06.2014, 11:41 [ТС]	9
	Hugo121, запутали меня ещё больше 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	10.06.2014, 11:51	10
	Смысл в чём - прогнать код пошагово, отследить что в какой момент происходит - если непонятно какая ячейка сейчас "в работе", то можно её на листе выделить. Так разберётесь где какое число в коде нужно подправить - я например не понял последнюю задачу - их что ниже нужно кидать? Ну добавьте ещё +2... 0

	10.06.2014, 12:14

Выбрать определённые ячейки с условием и скопировать их

Решение