Question

我有一个包含多个工作表的文件（Values_Store_1，Values_Store_2，Values_Store_3等）。我希望有一些代码删除列A（表名称：Values_Store_1）上的重复值，然后用逗号将所有值转置/连接，并从A2到最后一行到单元格B5中名为“ My_Total_Values”的另一张表中都没有空格（仅值，而不是公式），并在单元格B7中显示B5中存在的值总数。如果向下A2中没有值或不存在工作表，则在Values_Store_1上，单元格B5中的“无”和B7中的“零”。这是我所有的原始工作表。

到目前为止，我有这个功能，但没有任何效果，我也不知道如何“不放置”，如何放置逗号以及如何计算逗号分隔的值。

我的Values_Store_＃有15张纸，因此复制和粘贴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

Excel VBA将列从一张工作表连接到另一张

0 个答案: