菜鸟求助~~~~~刚学VBA，很多不懂

鲤鱼非鱼

数据分析.rar (40.43 KB, 下载次数: 19)

2012-12-4 13:21 上传

点击文件名下载附件

{:soso_e100:}


我想把，2011、2012、2013那三张表的数据中“误码率”不为0的筛选到数据分析一张表中，由于数据量比较大，能不能打开工作簿直接对里面的数据进行操作那些？？

Sub yy()
    Dim myPath$, Filename$, wb1 As Workbook
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    myPath = ThisWorkbook.Path & "\"
    Set wb1 = ThisWorkbook
    nm = "2012" '文件名
    Filename = myPath & nm & ".xls"
    Workbooks.Open Filename
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$N$" & [a1].End(xlUp).Row).AutoFilter Field:=8, Criteria1:=">0", _
    Operator:=xlAnd
    Rows.Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("数据分析").Activate
    Range("a" & [a1].End(xlUp).Row).Select
    ActiveSheet.Paste
    wb.Close savechanges:=False
    Application.ScreenUpdating = True
    Exit Sub
End Sub
我是参考一些程序这样写的，运行时经常死机那些，而且速度很慢，还要打开工作簿，有哪位可以指导一下的，不甚感谢

鲤鱼非鱼

由于刚学，写的程序可能比较烦，莫怪{:soso_e113:}

幸福本来很简单

这才叫刚学
你叫我们这些刚学的情何以堪！

没叶子的树

哥顶的不是帖子，是寂寞！

可可小夜

这学了多久能学成这样啊……我学一个月了……

鲤鱼非鱼

可可小夜 发表于 2012-12-10 13:16
这学了多久能学成这样啊……我学一个月了……

嗯，我也是一边录制宏一边复制代码那些的……

gujiejack2

我也新手，我试着写了一下。

1. Sub 数据分析()
   
2. Dim FileName, wb As Workbook, arr1()
   
3. Application.ScreenUpdating = False
   
4. Application.DisplayAlerts = False
   
5. FileName = Dir(ThisWorkbook.Path & "\*.xls")
   
6. Do While FileName <> ""
   
7.         If FileName <> ThisWorkbook.Name Then
   
8.                 fn = ThisWorkbook.Path & "" & FileName
   
9.             Workbooks.Open fn
   
10.             ends = ActiveSheet.Cells(Rows.Count, "a").End(xlUp).Row
    
11.             arr = Range("a2:g" & ends)
    
12.             For i = 1 To UBound(arr)
    
13.                 ReDim Preserve arr1(1 To 7, 1 To n + 1)
    
14.                     If arr(i, 4) <> 0 Then
    
15.                     n = n + 1
    
16.                     arr1(1, n) = arr(i, 1)
    
17.                     arr1(2, n) = arr(i, 2)
    
18.                     arr1(3, n) = arr(i, 3)
    
19.                     arr1(4, n) = arr(i, 4)
    
20.                     arr1(5, n) = arr(i, 5)
    
21.                     arr1(6, n) = arr(i, 6)
    
22.                     arr1(7, n) = arr(i, 7)
    
23.                     End If
    
24.                 Next
    
25.                 Else: GoTo 100
    
26.         End If
    
27.         ActiveWorkbook.Close True
    
28.         FileName = Dir
    
29. Loop
    
30. 100:
    
31. Sheet1.[a1].Resize(n, 7) = Application.Transpose(arr1)
    
32. Application.ScreenUpdating = True
    
33. Application.DisplayAlerts = True
    
34. End Sub

复制代码

Day-Day

呵呵，都是一群初學者，我也是，不過我的進度比較慢。。哎！

Day-Day

鲤鱼非鱼 发表于 2012-12-11 23:31
嗯，我也是一边录制宏一边复制代码那些的……

　這個我以前也是這樣做的，用別人的一此代碼用到自己需要的東西中去，其實這也是一種進步。

jjzg2004

顶一个，你是学的什么专业啊。