大神帮我看一下问题在哪？（提取区域内非空单元格到一列）

西北风真好喝

我想提取区域内非空单元格到一列    然后代码是这样的
Sub test()
    Set d = CreateObject("scripting.dictionary")
    For Each m In Selection
        If m <> "" Then
            s = m
            d(s) = ""
        End If
    Next
    Set Rng = Application.InputBox("请选择存放单元格", , , , , , , 8)
    Rng.Resize(d.Count) = Application.Transpose(d.keys)
End Sub


运行后  提示我类型不对
求各位路过的大神帮忙检查一下怎么修改。（最好再把去重复加进去，谢谢）

3190496160

调试代码的问题，跟更是需要上传你的附件才行

西北风真好喝

不好意思  这个是附件

西北风真好喝

3190496160 发表于 2020-10-13 10:39
调试代码的问题，跟更是需要上传你的附件才行

附件刚刚上传了  帮忙看下  谢谢

3190496160

Sub test()
    Set d = CreateObject("scripting.dictionary")
    For Each m In Selection
        If m <> "" Then
            s = m
            d(s) = ""
        End If
    Next
    Set Rng = Application.InputBox("请选择存放单元格", , , , , , , 8)
    m = d.Count
    If m = 0 Then MsgBox "你选择了一个空白区域！": Exit Sub
    Rng.Resize(m) = Application.Transpose(d.keys)
End Sub

3190496160

代码本身是没有问题的，只是不够严谨，当选择了一个空白区域，则字典项为零，肯定就出错了，加一个判断即可，代码审核中，等待吧

西北风真好喝

3190496160 发表于 2020-10-13 15:42
代码本身是没有问题的，只是不够严谨，当选择了一个空白区域，则字典项为零，肯定就出错了，加一个判断即可 ...

谢谢   帮忙改进之后好了