Помогите с макросами exel - есть ответ

Без имени, 304 просмотра

Огромная таблица 60 тыс строк отсортирована по модулям , удалить надо числа с одинаковыми модулями, Например :
11
-11
-12
12
12

удалить 11 и -11 -12 и 12
Первый раз делал макрос.Вот результат:

Sub Макрос1()

For x = 3 To 58800
b = x + 1

If Cells(x, 2).Value + Cells(b, 2).Value = 0 Then GoTo d

GoTo c
d:
ActiveCell.Offset(x, 2).Range("x,2 ; b,2").Select
Selection.EntireRow.Delete
c:
Next x
End Sub

Ответы:

Алексей Матевосов

Selection.EntireRow.Delete
удаляет строки
Selection.ClearContents
удаляет содержимое ячейки. В вашем задании "удалить надо числа"
Что вам надо уточните?
Для удаления чисел. можно так
Sub Макрос1()
Dim x As Long
For x = 3 To 58800
If Cells(x, 2).Value + Cells(x + 1, 2).Value = 0 Then
Range(Cells(x, 2), Cells(x + 1, 2)).ClearContents
x = x + 1
End If
Next x
End Sub
Если надо удалять строки, то цикл надо делать от последней строки к первой.

10 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.