У меня есть файл с несколькими листами (Values_Store_1, Values_Store_2, Values_Store_3, ...).
Я хотел бы иметь код, который удаляет повторяющиеся значения в столбце A (имя листа: Values_Store_1), а затем транспонировать / объединять все значения с запятой и без пробелов от A2 до последней строки на другой лист с именем «My_Total_Values» в ячейке B5 (просто значения не формула), а в ячейке B7 общее количество значений, представленных в B5.
Если в A2 нет значений внизу или нет листа, просто «Нет» в ячейке B5 и «Ноль» в B7 в Values_Store_1.
Это для всех моих оригинальных листов.
Пока у меня есть это, но ничего не работает, и я не знаю, как поставить "нет", как поставить запятую и как подсчитать значения запятой отдельно.
У меня есть 15 листов для Values_Store_ #, поэтому, возможно, один код для копирования и вставки 15 будет проще.
Спасибо
Sub Comma_Separated()
Worksheets(Values_Store_1).Activate
Range("A:A").Select
ActiveSheet.Range(Selection, ActiveCell.CurrentRegion).RemoveDuplicates Columns:=Array(1, 1), Header:=xlYes
CopyTransposed Sheets("Values_Store_1").Range("A:A"),Sheets("My_Total_Values").Range("B5")
Worksheets(Values_Store_2).Activate
Range("A:A").Select
ActiveSheet.Range(Selection, ActiveCell.CurrentRegion).RemoveDuplicates Columns:=Array(1, 1), Header:=xlYes
CopyTransposed Sheets("Values_Store_2").Range("A:A"),Sheets("My_Total_Values").Range("B9")
Worksheets(Values_Store_3).Activate
Range("A:A").Select
ActiveSheet.Range(Selection, ActiveCell.CurrentRegion).RemoveDuplicates Columns:=Array(1, 1), Header:=xlYes
CopyTransposed Sheets("Values_Store_3").Range("A:A"),Sheets("My_Total_Values").Range("B13")
End Sub