TRIM & Remove Duplicate и 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