使用VBA TRIM＆Remove Duplicate和TEXTJOIN变量范围

Question

我想要一个范围最大的变化说A1:A20从开始或结束的空间应用程序拉出所以它需要是TRIM然后删除重复项，删除空白单元格，他们需要是TEXTJOIN(",",TRUE,A1:A20)。范围是可变的。这样我就可以将其粘贴到QMF以便运行查询。

感谢您在创建此VBA时的帮助，以便我可以在功能区中创建一个按钮，并可以在任何Excel工作表中使用。

Answer 1

 Sub removeDuplicate()
 'removeDuplicate Macro

 Columns("A:A").Select
 ActiveSheet.Range("$A$1:$A$20").RemoveDuplicates Columns:=Array(1), _ 
 Header:=xlNo 
 Range("A1").Select

 End Sub