分列+去重

慵懒渔夫

于 2021-12-18 10:45:56 发布

阅读量130

点赞数

分类专栏： Excel、VBA 文章标签： vba

本文链接：https://blog.csdn.net/lazyfisher/article/details/122009545

版权

Excel、VBA 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

实现下图的效果![在这里插入图片描述]

代码如下：

Sub 分列并去重()
    Dim iCol, iRow
    iRow = Selection.Rows.Count
    Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, Comma:=True
    iCol = ActiveSheet.UsedRange.Columns.Count
    
    For i = 2 To iCol
        Range(Cells((i - 1) * iRow + 2, 1), Cells((i) * iRow + 1, 1)).Value = Range(Cells(2, i), Cells(iRow + 1, i)).Value
    Next
    
    Range(Cells(1, 1), Cells(iRow * iCol + 1, 1)).Select
    Selection.RemoveDuplicates Columns:=1, Header:=xlNo

End Sub