[已解决]如何在对A列进行判断,实现B列的数据填充呢?请大家帮忙谢谢!!!

我不知道呀

如何在对A列进行判断,实现B列的数据填充呢?请大家帮忙谢谢!!!

最佳答案

月排行榜 / 总排行榜

搁浅2008

2011-1-8 17:24

Book2.rar (10.26 KB, 下载次数: 77)

2011-1-8 17:24 上传

点击文件名下载附件
Sub aa()
    Dim d As New Dictionary
    Dim i As Long
    Dim arr()
    arr = Sheet1.Range("A2:A" & Sheet1.Range("A65536").End(xlUp).Row)
    ReDim Preserve arr(1 To UBound(arr, 1), 1 To 2)
    For i = 1 To UBound(arr, 1)
        If d.Exists(arr(i, 1)) Then
            arr(i, 2) = "其他"
        Else
            d(arr(i, 1)) = ""
            arr(i, 2) = True
        End If
    Next i
    Sheet1.Range("A2").Resize(UBound(arr, 1), 2) = arr
End Sub

跳转到最佳答案楼层

su11wei18

1. =IF(A2<>A1,TRUE,"其他")

复制代码

搁浅2008

Book2.rar (10.26 KB, 下载次数: 77)

2011-1-8 17:24 上传

点击文件名下载附件
Sub aa()
    Dim d As New Dictionary
    Dim i As Long
    Dim arr()
    arr = Sheet1.Range("A2:A" & Sheet1.Range("A65536").End(xlUp).Row)
    ReDim Preserve arr(1 To UBound(arr, 1), 1 To 2)
    For i = 1 To UBound(arr, 1)
        If d.Exists(arr(i, 1)) Then
            arr(i, 2) = "其他"
        Else
            d(arr(i, 1)) = ""
            arr(i, 2) = True
        End If
    Next i
    Sheet1.Range("A2").Resize(UBound(arr, 1), 2) = arr
End Sub

zhaoxiaomei

IF(A1=A2,"其它",TRUE)

我不知道呀

上面的代码在我的EXCEL里运行为什么会出现用户未定义类型呢,是不是要在引用里装什么东西呢

搁浅2008

编辑器里 工具 引用 浏览 引用scrrun.dll