[已解决]能不能修改下代码？

爱疯

dadasdas 发表于 2013-2-18 15:37
i + 3是什么意思？

i的第一次值是2，而第一个待判断单元格是H5（行号是5），

所以，必须+3才是H5的行号。

dadasdas

爱疯 发表于 2013-2-18 15:43
i的第一次值是2，而第一个待判断单元格是H5（行号是5），

所以，必须+3才是H5的行号。

A = .Range("A4").CurrentRegion
For i = 2 To UBound(A)
数组A的A4当前区域是哪，i变量从2开始到数组最大下标是在哪个区域，
麻烦再解释下

爱疯

dadasdas 发表于 2013-2-18 15:55
A = .Range("A4").CurrentRegion
For i = 2 To UBound(A)
数组A的A4当前区域是哪，i变量从2开始到数组最 ...

        MsgBox .Range("A4").CurrentRegion.Address(0, 0)    '返回A4:AF33
        A = .Range("A4").CurrentRegion
        'i=1对应源表中第4行（上面赋值语句中，不是指定了A4的当前区域么）
        '而源表第4行，就是有很多编号编号的，是不需判断的内容
        '所以，真正需判断的数据是从第4行的下一行（i=1的下一个值，当然是i=2）开始的
        For i = 2 To UBound(A)

dadasdas

爱疯 发表于 2013-2-18 16:14
MsgBox .Range("A4").CurrentRegion.Address(0, 0)    '返回A1:E8
        A = .Range("A4").Cu ...

在H3单元格填了一个数据，执行宏以后行位置变了，怎么回事？

dadasdas

爱疯 发表于 2013-2-18 16:14
MsgBox .Range("A4").CurrentRegion.Address(0, 0)    '返回A1:E8
        A = .Range("A4").Cu ...

意思是如果H4上面还有数据，而且数据位置不固定，执行起来会不会有问题

爱疯

dadasdas 发表于 2013-2-18 16:40
在H3单元格填了一个数据，执行宏以后行位置变了，怎么回事？

现在附件变成怎样了，上传看看吧

dadasdas

爱疯 发表于 2013-2-18 16:51
现在附件变成怎样了，上传看看吧

For i = 2 To UBound(A)
最后问一个，这个数组A的最大下标是什么，从2开始到哪？

爱疯

从2开始到30。

30是因为Range("A4").CurrentRegion，其实就是A4:AF33
而A4:AF33包含了30行数据

dadasdas

爱疯 发表于 2013-2-18 20:27
从2开始到30。

30是因为Range("A4").CurrentRegion，其实就是A4:AF33

看下面这个UBound(a)，是不是指列标号
Sub Macro1()
    Dim wb As Workbook, sh As Worksheet, c As Range, r As Range, rng As Range, lr As Long
    Dim a, b, d As Object, i&, arr, brr()
    Set d = CreateObject("scripting.dictionary")
    a = Array("项目", "编号")
    b = Array("序列", "序号")
    For i = 0 To UBound(a)
        d(a(i)) = b(i)
    Next
   

dadasdas

爱疯 发表于 2013-2-18 20:27
从2开始到30。

30是因为Range("A4").CurrentRegion，其实就是A4:AF33

UBound都是以行的方向，从上往下循环，是不是？