Excel 怎么改 用vba代码提取不重复值为数组

 我来答
Excel数据分析
2017-02-23 · Excel为工具的数据分析
Excel数据分析
采纳数:226 获赞数:578

向TA提问 私信TA
展开全部
前两天正好找到这样一段代码,借你用一下

Dim arr, brr, crr(1 To 70), b As Boolean
        b = False
        Dim x%: x = 1
            arr = ActiveSheet.Range(Cells(1, 1), Cells(70, 1))
            brr = ActiveSheet.Range(Cells(1, 2), Cells(70, 2))
        For i = 1 To UBound(arr, 1)
            For j = 1 To UBound(brr, 1)
                If arr(i, 1) = brr(j, 1) Then b = True: Exit For
            Next
            If b = False Then crr(x) = arr(i, 1): x = x + 1
            b = False
        Next
        
      ActiveSheet.Cells(1, 3).Resize(x - 1, 1) = Application.Transpose(crr)
Excel办公_VBA
2017-02-23 · 教育领域创作者
个人认证用户
Excel办公_VBA
采纳数:3279 获赞数:2332

向TA提问 私信TA
展开全部
用字典提取,去重。然后将字典结果赋值给数组即可
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式