Команда Excel VBA recordset.open возвращает удвоенное количество записей
Этот код работал годами, а теперь мы обновились до Windows 10 и Excel 2016, и он делает то же самое.
решение1
Так как по ошибке были введены дубликаты записей ( as you have written in Comments above
), то вместо удаления записей вы можете прочитать УНИКАЛЬНЫЕ записи.
Ниже приведены несколько возможных строк кода VBA, которые помогут получить уникальные записи.
rs.Open "SELECT Distinct ColumnName AS C FROM TableName
Или
strSQL = "SELECT Distinct(COLNAME) from [SheetName$] "