使用 VBA 修剪和删除重复和 TEXTJOIN 变量范围答案

【问题标题】：TRIM & Remove Duplicate and TEXTJOIN a variable range using VBA使用 VBA 修剪和删除重复和 TEXTJOIN 变量范围
【发布时间】：2019-09-10 20:20:30
【问题描述】：

我想要一个变化最大的范围，比如从应用程序中提取的A1:A20，开头或结尾有空格，所以它需要是TRIM，然后是删除重复项，删除空白单元格，它们需要是TEXTJOIN(",",TRUE,A1:A20)。范围是可变的。这样我就可以将其复制粘贴到 QMF 以运行查询。

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

【问题讨论】：

标签： vba duplicates trim textjoin

【解决方案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

【讨论】：

以上提供的 vba 只删除重复但不修剪也不删除空白单元格也不文本加入范围。此外，范围可能不在列 (A:A) 中。可以通过用户选择范围在任何列中。感谢应包含这些多个标准的答案..