script excel

jared

Новый пользователь
Сообщения
5
Реакции
0
Баллы
1
Добрый день, нужен скрипт для работы с дублями, нужно чтобы находил и копировал в новую книгу или лист. Формат файла:
 

Вложения

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,032
Реакции
5,828
Баллы
648
Здравствуйте!
Добро пожаловать на SafeZone.

Критерии для дубля какие?
 

jared

Новый пользователь
Сообщения
5
Реакции
0
Баллы
1
Спасибо большое! Да критерий один найти строку с одинаковым s/n и скопировать в новый лист(все совпавшие строки). Иногда забивают один и тот же товар разными числами. Заранее спасибо.
Post automatically merged:

Простите строки с одинаковым s/n.
 

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,032
Реакции
5,828
Баллы
648
VB.NET:
Option Explicit

Public Sub main()
    Dim Sh1 As Worksheet, Sh2 As Worksheet
    Dim y As Long, x As Long, y2 As Long
    Dim s As String
    
    'дубликаты
    Set Sh1 = ThisWorkbook.Worksheets("Лист1")
    x = Sh1.Columns("G").Column
    
    'цель
    Set Sh2 = ThisWorkbook.Worksheets("Лист2")
    y2 = 2
    
    Application.ScreenUpdating = False
    
    Dim oDict As Object
    Set oDict = CreateObject("Scripting.Dictionary")
    
    For y = 2 To Sh1.Cells(Sh1.Rows.Count, 1).End(xlUp).Row
        s = Sh1.Cells(y, x)
        
        If Not oDict.Exists(s) Then
            oDict.Add s, y
        Else
            Sh1.Rows(y).Copy Sh2.Cells(y2, 1)
            y2 = y2 + 1
        End If
    Next
    
    Application.ScreenUpdating = True
    Set oDict = Nothing
End Sub
 

jared

Новый пользователь
Сообщения
5
Реакции
0
Баллы
1
ошибка при компиляции строка 6, 13 символ. Переменные?
 

jared

Новый пользователь
Сообщения
5
Реакции
0
Баллы
1
---------------------------

Windows Script Host

---------------------------

Сценарий:

Строка: 6

Символ: 13

Ошибка: Предполагается наличие окончания инструкции

Код: 800A0401

Источник: Ошибка компиляции Microsoft VBScript
 

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,032
Реакции
5,828
Баллы
648
Это не для VBScript, это макрос.
 

Вложения

jared

Новый пользователь
Сообщения
5
Реакции
0
Баллы
1
Не обратил внимание, спасибо!
 
Сверху Снизу