给支个招改善下速度

Elliott_love · 发表于 2010-11-5 16:51

我在写一个数据查询功能的系统其中  当查询条件符合后我把符合条件的每行数据都copy到新sheet里粘贴如：
Case "100"
While (asheet.Cells(i, 2) <> "")
      If (asheet.Cells(i, 2).Value Like TextBox1.Text) Then
         asheet.Rows(i).Copy
         bsheet.Rows(j).PasteSpecial
         j = j + 1
   End If
   i = i + 1
Wend
复制粘贴复制粘贴，由于数据很大今天测六千行数据时时间太慢了  一百多秒  想问下有没有好的解决方法

[ 本帖最后由 Elliott_love 于 2010-11-5 19:00 编辑 ]

alzeng · 发表于 2010-11-5 16:54

整体拷贝，然后删除不符条件的行……

Zamyi · 发表于 2010-11-5 17:02

原帖由 alzeng 于 2010-11-5 16:54 发表
整体拷贝，然后删除不符条件的行……

咁都得……

Elliott_love · 发表于 2010-11-5 17:16

非常感谢我试试去

zhangzhang · 发表于 2010-11-5 17:17

请自行测试
方法1：
Case "100"
While (asheet.Cells(i, 2) <> "")
      If (asheet.Cells(i, 2).Value Like TextBox1.Text) Then
         asheet.Rows(i).Copy Destination:=bsheet.cells(j,1)
         j = j + 1
   End If
   i = i + 1
Wend

方法2：
Case "100"
While (asheet.Cells(i, 2) <> "")
      If (asheet.Cells(i, 2).Value Like TextBox1.Text) Then
         bsheet.rows(j)=asheet.rows(i).value
         j = j + 1
   End If
   i = i + 1
Wend

Elliott_love · 发表于 2010-11-5 18:25

谢了你的第二种我用了速度提高不少但还是慢六千条要四十多秒

Elliott_love · 发表于 2010-11-5 19:00

再次感謝速度慢的原因不是查詢慢是我排版的事謝了

terqm · 发表于 2010-11-5 19:08

如果你的数据规范的话,用ADO会快很多.
否则就赋值于数组,之后再操作

		自动登录	找回密码
密码			免费注册

[已解决] 给支个招改善下速度

回复 2楼 alzeng 的帖子

回复 5楼 zhangzhang 的帖子

回复 5楼 zhangzhang 的帖子

[已解决] 给支个招 改善下速度

回复 2楼 alzeng 的帖子

回复 5楼 zhangzhang 的帖子

回复 5楼 zhangzhang 的帖子

[已解决] 给支个招改善下速度