кладовщикviktturМеню Формат-Условное_форматирование-Формула
=СЧЕТЕСЛИ($A$1:$A$100;A1)>1
При истинном условии изменится формат ячейки на тот, который Вы зададите.
А можно макрос по выборке таких записей? Нужно выбрать только те записи, в которых по 1 полю повторы есть. Потом эти записи будут обрабатываться как-то, но пока не придумал, как.
ЗЫ Может я изначально задачу криво решаю - может правильней исходный SELECT, который методом CopyFromRecordset выгружается на лист Экселя, откорректировать?
Решил я задачу по выборке строк с повторяющимся значением по 1 полю, интересуют мнения форумян по решению. Я воспользовался связкой VBA + ADO & SQL. Excel 2003. Решать ч-з обработку циклами данных на листе мне как-то муторно показалось, а других вариантов как-то не придумалось.
Исходные данные: на листе Экселя с именем "data2" несколько сотен строк (выборка из таблицы фактов), необходимо выбрать все строки, в которых повторяется дата.
Полученную выборку выложил на этом же листе с начала в ячейке Н2.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Sub Selection
Dim DBFullName As String
Dim Cnct As String, Src As String
Dim Connection As ADODB.Connection
Dim Recordset As ADODB.Recordset
DBFullName = ThisWorkbook.FullName
Set Connection = New ADODB.Connection
Cnct = "Provider=Microsoft.Jet.OLEDB.4.0; "
Cnct = Cnct & "Data Source=" & DBFullName & ";"
Cnct = Cnct & "Extended Properties= Excel 8.0;"
Connection.Open ConnectionString:=Cnct
Dim SQLString As String
SQLString = "SELECT * FROM [data2$] WHERE Date In "
SQLString = SQLString & "(SELECT Date FROM [data2$] GROUP BY Date HAVING Count(Date)>1)"
MsgBox SQLString
Set Recordset = New ADODB.Recordset
With Recordset
Src = SQLString
.Open Source:=Src, ActiveConnection:=Connection
Range("H2").CopyFromRecordset Recordset
End With
Set Recordset = Nothing
Connection.Close
Set Connection = Nothing
End Sub
У кого какие мнения?
Понятно, что если немножко подправить текст запроса, то можно выбрать наоборот, все записи с уникальным значением поля, удалить записи и тд и тп.
ЗЫ Конечно, такой метод работает в случае надлежащего структурирования данных на листе, т.е. is "possible to treat an Excel workbook as if it were a database".
