Проверка значений столбца на уникальность макросом

@bulldozere · Регистрация: 17.08.2015

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

Доброго времени суток. Подскажите как сделать проверку столбца на уникальность. Имеем 810 столбцов и 15 строк, ячейки которых могут принимать значения 0,1,2. т.е. имеем 810 комбинаций по 15 значений в каждом столбце. Как можно проверить новую комбинацию в столбце на предмет 100% совпадения с предыдущими.
Совпадением считать только такое совпадение при котором Значение1(имеющиегося столбца)=Значению1(вводимых данных), Значение2(имеющиегося столбца)=Значению2(вводимых данных) и т.д.

@Svsh2015 · 18.08.2015, 16:09

bulldozere,добрый день, попробуйте макрос:

Visual Basic

Sub example()
   Dim x(), i&, j&, t1$, t$
   x = Range("A1").CurrentRegion.Value
    For i = 1 To UBound(x): t1 = t1 & x(i, UBound(x, 2)): Next
 For k = 1 To UBound(x, 2) - 1
      t = ""
     For i = 1 To UBound(x)
       t = t & x(i, k)
     Next
    If t = t1 Then
     MsgBox "имеется совпадение столбцов"
     Exit For
    End If
 Next
End Sub

@bulldozere 0 / 0 / 0 Регистрация: 17.08.2015 Сообщений: 3
		1
	Проверка значений столбца на уникальность макросом 17.08.2015, 22:07. Показов 3807. Ответов 1 Метки нет (Все метки) Доброго времени суток. Подскажите как сделать проверку столбца на уникальность. Имеем 810 столбцов и 15 строк, ячейки которых могут принимать значения 0,1,2. т.е. имеем 810 комбинаций по 15 значений в каждом столбце. Как можно проверить новую комбинацию в столбце на предмет 100% совпадения с предыдущими. Совпадением считать только такое совпадение при котором Значение1(имеющиегося столбца)=Значению1(вводимых данных), Значение2(имеющиегося столбца)=Значению2(вводимых данных) и т.д. 0

	18.08.2015, 16:09