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

veirs

veirs 发表于 2019-5-8 22:19
“多工作簿查询”的程序执行出来的结果是错的啊，不过我写出来了，这是我写的，继续学习！

Option Expli ...

得在B1随便输入点内容占位才行，有大神知道怎么办吗？

XIONGXIAOXIONG

mark一下然后有空学习了啊啊

用心修炼

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

老师，这段代码似乎运行的速度更加快一点。在您面前献丑了！

Sub test()
Dim t
Dim dic1 As Object, dic2 As Object
Dim arr(), brr()
'crr,drr,frr三个数组存放结果，提前设置好维度，在写入单元格时可以省略调用工作表transpose函数，如果数据量大，尽可能将数组的维度定义的大一点
Dim crr(1 To 10, 1 To 1), drr(1 To 10, 1 To 1), frr(1 To 10, 1 To 1)
Dim m%, n%, i%, j%, x%, y%, k%
Dim A_str$, B_str$
t = Timer
Set dic1 = CreateObject("scripting.dictionary")
Set dic2 = CreateObject("scripting.dictionary")
arr = Range("a1", Cells(Rows.Count, 1).End(3))
brr = Range("b1", Cells(Rows.Count, 2).End(3))

'将A列非空单元格写入字典
For m = 1 To UBound(arr)
    If arr(m, 1) <> "" Then
       dic1(arr(m, 1)) = ""
    End If
Next

'将B列非空单元格写入字典
For n = 1 To UBound(brr)
    If brr(n, 1) <> "" Then
       dic2(brr(n, 1)) = ""
    End If
Next

'crr数组为A列有B列没有,frr数组是两列同时有
For i = 0 To dic1.Count - 1
    A_str = dic1.keys()(i)
    If Not dic2.exists(A_str) Then
       j = j + 1
       crr(j, 1) = A_str
    End If
   
    If dic2.exists(A_str) Then
       k = k + 1
       frr(k, 1) = A_str
    End If

   
Next

'B列有A列没有
For x = 0 To dic2.Count - 1
    B_str = dic2.keys()(x)
    If Not dic1.exists(B_str) Then
       y = y + 1
       drr(y, 1) = B_str
    End If
Next

Sheet2.Range("e2").Resize(j, 1) = crr
Sheet2.Range("f2").Resize(y, 1) = drr
Sheet2.Range("g2").Resize(k, 1) = frr
Erase arr: Erase brr: Erase crr: Erase drr: Erase frr
dic1.RemoveAll: dic2.RemoveAll
Set dic1 = Nothing
Set dic2 = Nothing
MsgBox Timer - t
End Sub

xfyuan

佛山小老鼠 发表于 2013-11-13 00:20
动态数组1.动态数组我是这样理解的,它的空间结构大小不断变化,或者说我们开始不能确定其空间大小,因此我们 ...

而不能在数组的行上改变,也就是说数组arr1的一维不能放变量x,而只能在数组arr1的二维上放变量x
下面就是错误的
Sub test1()
  Dim arr1(), x%
  For x = 1 To 5
    ReDim arr1(1 To x, 1 To 3)
  Next x
End Sub

ub 提取二()
    Dim arr1, arr2(), y%, x%, z%, k%
    Sheets(1).Activate
    arr1 = Range("A1").CurrentRegion '把数据装到数组arr1里
    y = Application.WorksheetFunction.CountIf(Range("B2:B" & UBound(arr1, 1)), "<60")
    '调用工作表函数countif统计出B列小于60分个数
    ReDim arr2(1 To y, 1 To UBound(arr1, 2)) '重新定义数组arr2的空间大小

请问老师上面说的是二维数组中的一维不能放变量，下面例题2中重新定义数组arr2的一维使用了变量y,这是什么原因？谢谢

liaoxianlu

学习了，感谢分享！

tgz-58

#Option Explicit Sub test()     Call 自已 End Sub Sub 自己()     msbgox "亲:您好!", 64, "问候" End Sub在这里快速回复#

tgz-58

Option Explicit
Sub test()
    Call 自已
End Sub
Sub 自己()
    msbgox "亲:您好!", 64, "问候"
End Sub
应是msgbox“亲:您好!", 64, "问候”

绕树三匝

佛山小老鼠 发表于 2013-11-13 00:20
数组里常用的函数
1.LBound 取得数组的上标这个用的比较少,因为上标默认的是0和1

instr回头找不到就返回0。记下来备查

z93223

我的天，这不是入门教学贴吗？为什么我看不懂。。。难道我的智商不适合VBA吗。。。。

qinnengbuzhuo

楼主真牛，学习了，谢谢分享