[已解决]试改为一个简单宏,下标越界,请帮忙,谢谢!

bipl607

试改为一个简单宏,下标越界,请帮忙,谢谢!

根据D列内容的关键字,在C列自动给出编号,如D列内容中含关键字"1月"的,就相应地在C列中有数字"11";如D列内容中含关键字"6月"的,就相应地在C列中有数字"23";
Sheet1表正确了,现改一改,却说下标越界,请老师看看,谢谢!
Sub aa()
    Dim arr
    Dim i As Long
    arr = Range("C1:D" & Range("D65536").End(xlUp).Row).Value
    For i = 1 To UBound(arr, 3)
        If arr(i, 4) Like "*1月*" Then
            arr(i, 3) = 11
        ElseIf arr(i, 4) Like "*6月*" Then
            arr(i, 3) = 23
        Else
            arr(i, 3) = ""
        End If
    Next i
    Range("C1").Resize(UBound(arr, 3), 2) = arr
End Sub

HwBTWe4O.rar (7.35 KB, 下载次数: 0)

2010-1-2 09:48 上传

点击文件名下载附件
试改为一个简单宏,下标越界,请帮忙,谢谢!

最佳答案

月排行榜 / 总排行榜

枯禅

2010-1-2 10:03

Sub aa()
    Dim arr
    Dim i As Long
    arr = Range("c1:d" & Range("d65536").End(xlUp).Row).Value
    For i = 1 To UBound(arr, 1)
        If arr(i, 2) Like "*1月*" Then
            arr(i, 1) = 11
        ElseIf arr(i, 2) Like "*6月*" Then
            arr(i, 1) = 23
        Else
            arr(i, 1) = ""
        End If
    Next i
    Range("c1").Resize(UBound(arr, 1), 2) = arr
End Sub

在第一个的基础上改红色部份就行了，其他不用改

跳转到最佳答案楼层

枯禅

这是一个两维数组，不存在第三维和第四维

枯禅

Sub aa()
    Dim arr
    Dim i As Long
    arr = Range("c1:d" & Range("d65536").End(xlUp).Row).Value
    For i = 1 To UBound(arr, 1)
        If arr(i, 2) Like "*1月*" Then
            arr(i, 1) = 11
        ElseIf arr(i, 2) Like "*6月*" Then
            arr(i, 1) = 23
        Else
            arr(i, 1) = ""
        End If
    Next i
    Range("c1").Resize(UBound(arr, 1), 2) = arr
End Sub

在第一个的基础上改红色部份就行了，其他不用改

bipl607

谢谢枯禅大师,谢谢!

yuang68

学习下