Developing.ru

&quot писал(а):макрос для Excel! от soulthiefer
1 подключите к проекту файла, в котором будет выполняться код библиотеку ADO (меню Tools \ References… -Microsoft ActiveX Data Objects X.X ...).
2. первая строка таблицы должна содержать имена полей используемых в запросе, например: w1, w2, w3, w4, w5...
3. в модуле проекта поместите подобный код:

Sub updateExcel()
Dim cn As New ADODB.Connection, rs As ADODB.Recordset, sVar$
'строка подключения к источнику данных - текущий, сохраненный(!) файл Excel
sVar = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ThisWorkbook.Path + "\" + _
ThisWorkbook.Name + ";Extended Properties=""Excel 8.0;HDR=Yes"";"
'--------------------------------------------
'Текст запроса подразумевает, что данные расположены на листе "Лист1"
'в ячейках A1, B1, C1 записаны имена полей "W1", "W2", "W3" соответственно:
Const SQL_SEL$ = "SELECT d.W1, d.W2, d.W3  FROM [Лист1$A1:C65000] as d WHERE (d.W1=d.W3);"
' [Лист1$A1:C65000]  - имя листа и используемый диапазон
'--------------------------------------------
'
Set cn = New Connection
cn.Open sVar
'
Set rs = New ADODB.Recordset
rs.Open SQL_SEL, cn, adOpenKeyset, adLockReadOnly
'данные из Recordset'а будут помещены на "Лист2"
Sheets("Лист2").Range("A2").CopyFromRecordset rs
rs.Close:       Set rs = Nothing
cn.Close:       Set cn = Nothing
End Sub
 

&quot писал(а):У меня в табличке не 10 записей, а бывает и по 30000-65000 строк, не ужели мне прогонять целый цикл по ним ... в Холостую

Teslenko_EA писал(а):Здравствуйте kuznetsovSergey.
результат будет помещен на другой лист, и в этом выигрыш по скорости, обработка 65000 строк займет пару секунд, для Вас это важно:Евгений.

Sub Macros()
Dim n As Long
Dim i As Long
    b = "111"
    d = "222"
    e = "333"
    f = "444"
    g = "555"
Application.ScreenUpdating = False
n = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = n To 1 Step -1
If (Left(Sheets("name_page").Cells(r, 15).Value, Len(b)) = b) Or (Sheets("name_page").Cells(r, 15).Value = d) _
Or ((Sheets("name_page").Cells(r, 12).Value <> e) And _
(Sheets("name_page").Cells(r, 12).Value <> f) And (Sheets("name_page").Cells(r, 12).Value <> g)) Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Teslenko_EA писал(а):Здравствуйте kuznetsovSergey.
Табличные данные хранимые в том числе на листах Excel, удобнее обрабатывать с применением ADO. Для этого необходимо:

Код: Выделить всё

Sub updateExcel()
Dim cn As New ADODB.Connection, rs As ADODB.Recordset, sVar$
'строка подключения к источнику данных - текущий, сохраненный(!) файл Excel
sVar = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ThisWorkbook.Path + "\" + _
ThisWorkbook.Name + ";Extended Properties=""Excel 8.0;HDR=Yes"";"
'--------------------------------------------
'Текст запроса подразумевает, что данные расположены на листе "Лист1"
'в ячейках A1, B1, C1 записаны имена полей "W1", "W2", "W3" соответственно:
Const SQL_SEL$ = "SELECT d.W1, d.W2, d.W3  FROM [Лист1$A1:C65000] as d WHERE (d.W1=d.W3);"
' [Лист1$A1:C65000]  - имя листа и используемый диапазон
'--------------------------------------------
'
Set cn = New Connection
cn.Open sVar
'
Set rs = New ADODB.Recordset
rs.Open SQL_SEL, cn, adOpenKeyset, adLockReadOnly
'данные из Recordset'а будут помещены на "Лист2"
Sheets("Лист2").Range("A2").CopyFromRecordset rs
rs.Close:       Set rs = Nothing
cn.Close:       Set cn = Nothing
End Sub
 

результат будет помещен на другой лист, и в этом выигрыш по скорости, обработка 65000 строк займет пару секунд, для Вас это важно:Евгений.

Aent писал(а):kuznetsovSergey, Ну раз уж зашла речь о безграмотности...
1) В приведённом вами коде в качестве номера строки используется r в то время как цикл по i... Некоторые граммотные люди используют
Option Explicit для недопущения подобных ошибок
2) Классификатор Sheets("name_page"). неэффективно прописывать у каждой cells. Его необходимо вынести в конструкцию

Код: Выделить всё

With Worksheets("name_page")
    .Cells(....)
End with

3) len(b) нужно вычислять ВНЕ цикла. Это сэконмит несколько микросекунд.
4) Поскольку VBA сам толком не умеет оптимизировать код целесообразно
в начале тела цикла присваивать .cells(i,12) и .cells(i,15) cтроковым переменным
и работать с ними.
5) Более эффективно вместо кучи OR использовать конструкцию
Select-Case

Код: Выделить всё

s15 = .cells(i,15).value
Select Case .Cells(i, 12).Value
Case e,f,g
if s15 =d then
.Rows(i).delete
elseif left$(s15,len_b) = b then
.Rows(i).delete
end if
Case Else
.Rows(i).delete
End Select
[code][/quote]
 
какая разница как назвать цикл? )))))))
i цикл у меня используется уже в макросе
а то что я прошу, это будет встроенный цикл.
А вот по поводу case в принципе признаю свою ошибку, хотя or не так много, но case я учту, спасибо.

Aent писал(а):Как назвать переменную цикла разницы конечно нет. Но она должна быть одна и та же в FOR и в теле цикла ...