Как выбрать имена из столбца MS Excel 2007

Question

У меня есть документ Excel, в котором есть список студентов и их групповые имена. У меня есть другой лист в том же документе Excel, который называется комментарии. На этом листе я хотел бы получить список имен отдельных команд.

65 студентов и 14 определенных групп.

Есть ли способ выбрать 14 имен групп без повторения?

Ячейка B3-B67 имеет имена учеников. У ячейки C3-C67 есть названия команд. Названия команд вводятся для каждого студента.

Я знаю, что в SQL я мог бы использовать что-то вроде select Different (team_name), но в Excel, как мне это повторить?

Cheers, Alks.

Answer 1

Вы можете использовать SQL с Excel.

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset 

''This is not necessarily the best way to get the workbook name
''that you need
strFile = Workbooks(1).FullName
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open strCon

''Note that HDR=Yes, so we can use Group, otherwise columns (fields)
''are named F1, F2 etc
''Pick one:
strSQL = "SELECT DISTINCT Group FROM DataTable" ''Named range
strSQL = "SELECT DISTINCT Group FROM [Sheet1$C3:C67]" ''Range

rs.Open strSQL, cn

Sheets("Sheet2").Cells(2, 1).CopyFromRecordset rs