八仙聚会，VBA找茬：您属哪路神仙？

ctp_119

Private Sub CommandButton1_Click()
Dim cell As Range, rng As Range
Dim rn As Range, rnn As Range
With Sheets("总花名册")
For Each cell In .Range("g5:g" & .Cells(Rows.Count, 7).End(xlUp).Row)
    If cell <= 15 And cell >= 13 Then
        If rng Is Nothing Then
           Set rng = cell.Offset(, -6).Resize(1, 7)
           Set rn = cell.Offset(, 11)
           Set rnn = cell.Offset(, 33)
        Else
           Set rng = Union(rng, cell.Offset(, -6).Resize(1, 7))
           Set rn = Union(rn, cell.Offset(, 11))
           Set rnn = Union(rnn, cell.Offset(, 33))
        End If
    End If
Next
End With
rng.Copy Range("a8")
rn.Copy Range("N8")
rnn.Copy Range("X8")
End Sub

zhangjianiam

使用了，效果还不错，只是在数据太庞大的情况下（比如几万人的信息量），该代码运行不了。

zhangjianiam

原帖由 ctp_119 于 2011-5-25 10:35 发表
Private Sub CommandButton1_Click()
Dim cell As Range, rng As Range
Dim rn As Range, rnn As Range
With Sheets("总花名册")
For Each cell In .Range("g5:g" & .Cells(Rows.Count, 7).End(xlUp).Row)
     ...

使用了，效果还不错，只是在数据太庞大的情况下（比如几万人的信息量），该代码运行不了。

jiulongpo

原帖由 ctp_119 于 2011-5-25 10:35 发表
Private Sub CommandButton1_Click()
Dim cell As Range, rng As Range
Dim rn As Range, rnn As Range
With Sheets("总花名册")
For Each cell In .Range("g5:g" & .Cells(Rows.Count, 7).End(xlUp).Row)
     ...

对象太多,处理慢

jiulongpo

原帖由 zhangjianiam 于 2011-5-25 17:48 发表
使用了，效果还不错，只是在数据太庞大的情况下（比如几万人的信息量），该代码运行不了。

数据太庞大,建义用数据库

Simon_Zhu

原帖由 jiulongpo 于 2011-5-25 19:27 发表


对象太多,处理慢

确实是这样，对象太多了。

用
For Each cell In .Range
Set rng=
Next
这种结构写法，本身就是低效的， 加上内存里不断地加载 rng 对象，又没有释放内存的代码，速度会快起来才怪了。

ctp_119

如果速度有问题，数据量太大的话，就改用ADO+SQL吧，这样速度应该不是问题。但是标题要改规范。

rufengyiban

太厉害了，什么都懂，向你学习

李巴

兄弟你也要搞国检吧，普九的数据

szuzhouhui

眼都花了