vba - TRIM & Remove Duplicate and TEXTJOIN 使用 VBA 的变量范围

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