求一个大佬看看这个怎么写

这题目是出给完全没VBA基础的人吗？
如果完全没基础的话，估计没那么好搞。
如果有点基础的话2个思路：
1.循环，用split取括号内容存到新表，然后删除重复项。
2.录制宏（录制内容：复制sku到新表，分列，删除重复项），然后删除多余的内容，即可

Sub 提取去重()
Dim arr As Variant
Dim brr As Variant
arr = Sheets(1).Range("a2:a" & Sheets(1).Range("a1048576").End(xlUp).Row)
ReDim brr(1 To UBound(arr, 1), 1 To 1)
For i = 2 To UBound(arr, 1)
brr(i - 1, 1) = Mid(arr(i, 1), 1, InStr(1, arr(i, 1), "】"))
Next i
Sheets(2).Range("a2").Resize(UBound(brr, 1), 1) = brr
Sheets(2).Range("a2").Resize(UBound(brr, 1), 1).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

正则，vba参考：https://blog.csdn.net/hhhhh_51/article/details/123745352
Sub qwer()
Dim dict As Object, arr, s$
Set dict = CreateObject("scripting.dictionary")
arr = [a2:a12].Value
For i = 1 To UBound(arr)
s = RE(arr(i, 1), "(【.*?】).*")
dict(s) = ""
Next
[f2].Resize(dict.Count, 1) = WorksheetFunction.Transpose(dict.keys)
End Sub