Перенести данные с листа на другой лист

@Алешка · Регистрация: 17.11.2011

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

Добрый вечер!

у меня такая проблема: у меня на Лист1 есть 20 чисел, которые генерируются случайно в ячейки A1:A20. Необходимо, чтобы при нажатии на кнопку положительные числа переносились на Лист2, а отрицательные - на Лист3. Вот, что получилось у меня, но это как-то неправильно)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Perenos()
Dim I As Integer, IndPol As Integer, IndOtr As Integer, X As Long
IndPol = 2
IndOtr = 4
Sheets("Положительные").Range("B1") = "Положительные"
Sheets("Отрицательные").Range("B1") = "Отрицательные"
For I = 1 To 20
If Sheets("Числа").Cells(I, 1) > 0 Then
IndPol = IndPol + 1
X(20, 1) = X(I, 1): X(20, 2) = X(I, 2): X(20, 3) = X(I, 3)
End If
Next I
Sheets("Числа").Range("B1").Resize(20, 3).Value = X
End Sub

@Казанский · 16.11.2012, 23:51

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub Perenos()
Dim I As Integer, IndPol As Integer, IndOtr As Integer, X As Long
IndPol = 2
IndOtr = 2
Sheets("Положительные").Range("B1") = "Положительные"
Sheets("Отрицательные").Range("B1") = "Отрицательные"
For I = 1 To 20
    If Sheets("Числа").Cells(I, 1) > 0 Then
        Sheets("Положительные").Cells(IndPol, 2) = Sheets("Числа").Cells(I, 1)
        IndPol = IndPol + 1
    ElseIf Sheets("Числа").Cells(I, 1) < 0 Then
        Sheets("Отрицательные").Cells(IndOtr, 2) = Sheets("Числа").Cells(I, 1)
        IndOtr = IndOtr + 1
    End If
Next I
End Sub

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .