时间戳

首页 > 解决方案 > 单元格值等于列的所有值

excel - 单元格值等于列的所有值

问题描述

我有一列具有不同的值（有些是唯一的，有些不是），我只想将唯一的值放在一个单元格值中，每个值用“/”分隔。因此，我使用具有 unique=true 的 AdvancedFilter 将列表过滤到一个新范围，但是现在我需要一个宏来获取该范围中的所有值并将它们放入该单元格中。

我该怎么做？

谢谢

标签： excelvba

解决方案

我认为具有唯一值的过滤数据在 sheet Facture、 cellBB2和下面。如我错了请纠正我。

Function foo() As String
  Dim oCell
  Dim s As String

  With Sheets("Facture")
    For Each oCell In .Range(.Range("BB2"), .Range("BB2").End(xlDown))
      s = s & "/" & oCell.value
    Next oCell
  End With
  
  foo = Mid(s, 2) 'To remove the initial "/"
End Sub

推荐阅读