多谢gwjkkkkk兄应助+Exce如何先分区域，后删除重复值

suiyue1233

Exce如何先分区域，后删除重复值
红色、绿色、黄色分别各为一个区域，删除各个区域正数第二列到倒数第二列里面的重复值即可





测试案例中间只有三列，总行数只有十二行。但实际数据中间是有很多列，至少有八列，并且行数至少会有个几千行。
希望有大佬可以出手，谢谢了~~~


每个区域的特点：第一列第一行有文字，第一列剩下的行都是空值。



原始数据和最终数据.rar (9.02 KB, 下载次数: 16)

2023-3-10 14:25 上传

点击文件名下载附件

半百

试试？？？

gwjkkkkk

请参考。。。

suiyue1233

gwjkkkkk 发表于 2023-3-10 18:59
请参考。。。

多谢gwjkkkkk兄，但是否可以将处理后的数据放到另一个新的工作表上，不要放在原始数据的下方。如果不行的话，目前也可以用~~~~

suiyue1233

半百 发表于 2023-3-10 18:15
试试？？？

多谢半百兄，的确是我想要的结果，但是我看不出处理过程，这就是一个最后结果呀，还是说我少了什么插件，所以看不出来处理结果。。。

gwjkkkkk

suiyue1233 发表于 2023-3-11 09:23
多谢gwjkkkkk兄，但是否可以将处理后的数据放到另一个新的工作表上，不要放在原始数据的下方。如果不行的 ...

简单修改一下就行，请参考，如满意，右下角评分。。。

准提部林

Sub TEST_A1()
Dim Arr, xD, T$, i&, j%, R&, C&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Sheet1.[a1].CurrentRegion
R = UBound(Arr): C = UBound(Arr, 2)
For i = 1 To R
    If Arr(i, 1) <> "" Then xD.RemoveAll
    For j = 2 To C - 1
        T = Arr(i, j) & "/" & j
        If xD(T) = 1 Then Arr(i, j) = "" Else xD(T) = 1
    Next j
Next i
Sheet2.UsedRange.Clear
Sheet2.[a1].Resize(R, C) = Arr
End Sub

半百

suiyue1233 发表于 2023-3-11 09:28
多谢半百兄，的确是我想要的结果，但是我看不出处理过程，这就是一个最后结果呀，还是说我少了什么插件， ...

不好意思，上传错了