急在线等，如何提取单元格内两位不重复数值？谢谢！

superperson

这个问题，感觉用VBA好一些，用函数难度比较大。先留个脚印，我试试VBA。

ww87725244

之前的数据是这样吗？上传附件，就得按照真实的来，要不然别人给你写了，到头来还是不行

lubufang6

ww87725244 发表于 2018-3-29 18:06
之前的数据是这样吗？上传附件，就得按照真实的来，要不然别人给你写了，到头来还是不行

不是，我上面是举列，   我要用在的表格文件大可以传不上去

ww87725244

lubufang6 发表于 2018-3-29 18:12
不是，我上面是举列，   我要用在的表格文件大可以传不上去

模拟部分数据就可以了

superperson

Sub test()
Dim i As Integer, j As Integer, k As Integer, d As String, dd As String, ddd As String
For i = 11 To 19 Step 1
    j = Len(Cells(i, 5))
        d = Right(Cells(i, 5), 1)
        For k = 1 To j Step 1
        dd = Mid(Cells(i, 5), j - k, 1)
        If dd <> d Then
            ddd = d & dd
            Exit For
        End If
        Next k
        Cells(i, 6).NumberFormatLocal = "@"
        Cells(i, 6) = ddd
        ddd = ""
        d = ""
Next i
End Sub
新建一个模块，复制进以上代码，保持要处理数据的工作表为激活状态。
i值从11到19，只是就楼主提出的这个个例设置的，可以根据实际需要进行调整。

lubufang6

superperson 发表于 2018-3-29 18:20
Sub test()
Dim i As Integer, j As Integer, k As Integer, d As String, dd As String, ddd As String
...

单元格公式呢？

superperson

这是VBA，不是公式，单元格内用不着公式，运行这段程序，一次性就提取完了。

superperson

lubufang6 发表于 2018-3-29 18:25
单元格公式呢？

这是VBA，不存在公式，运行代码，一次性就提取完了，上千条数据的话，也用不了一、两秒钟。

lubufang6

  我在F11应该用什么公式运行这个VBA?

superperson

superperson 发表于 2018-3-29 18:30
这是VBA，不存在公式，运行代码，一次性就提取完了，上千条数据的话，也用不了一、两秒钟。

我把附件给你传一下，按ALT+F11可以调出代码，运行就可以了。