佛山小老鼠带您走进VBA数组(菜鸟请进)

qinnengbuzhuo

学习学习学习，再学习
End Function

ycwsuzhou

VBA貌似很难啊，顶起来！

szachun

认真学习中

firefly169

zylthu2007 发表于 2014-4-15 23:54
第一个有错误的代码
Option Explicit
Sub test()

自己写成了自已

firefly169

佛山小老鼠 发表于 2013-11-13 00:14
为什么要学习数组
1.为了提速,提高代码运行速度先我看看二段代码Option Explicit
Sub 读取对象求和1() ' ...

数组如果使用[a1].entirecolumn比[a1].currentregion 慢多了

barlz

非常高兴看到此帖子，抓紧学习，优化自己的VBA。谢谢！

gwjkkkkk

学习了。。。

gadflyhou

学习中，谢谢 分享

zlbest930

很好，学习了

从头再来1991

佛山小老鼠 发表于 2013-11-13 00:23
找出两列相同项与不相同项及两列共有   Option Explicit
Sub 对比两列()
    Dim LastA, LastB, arrA, ar ...

我用exist方法写了一遍，发现运行不了，感谢大神帮忙看一眼。
Sub 对比去重()
Dim i, j%, d1 As Object, d2 As Object, d3 As Object, k%, x, m
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
Set d3 = CreateObject("scripting.dictionary")
For i = 1 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    d1(Sheets(1).Range("A1:A" & i)) = ""
Next i
    For j = 1 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
        If d1.exists(Sheets(1).Cells(j, 2).Value) Then
            k = k + 1
            Sheets(3).Cells(k + 1, 3).Value = Sheets(1).Cells(j, 2).Value
        Else
            k = k + 1
            Sheets(3).Cells(k + 1, 2).Value = Sheets(1).Cells(j, 2).Value
        End If
    Next j

For x = 1 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
    d2(Sheets(1).Range("B1:B" & x)) = ""
Next x
k = 0
    For m = 1 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
        If d2.exists(Sheets(1).Cells(m, 1).Value) Then
            k = k + 1
            Sheets(3).Cells(k + 1, 3).Value = Sheets(1).Cells(m, 1).Value
        Else
            k = k + 1
            Sheets(3).Cells(k + 1, 1).Value = Sheets(1).Cells(m, 1).Value
        End If
    Next m


End Sub