gpt4 book ai didi

vba - 从列表中提取唯一值

转载 作者:行者123 更新时间:2023-12-02 15:45:28 25 4
gpt4 key购买 nike

我有以下代码,它返回 50 个随机颜色编码数字:

Sub RandomNumberColor()
Dim Numbers, i As Integer
Dim MyRange As Range

Set MyRange = Worksheets("Rnd").Range("A1:A50")

For i = 1 To MyRange.Rows.Count
Numbers = Int((10 - 1 + 1) * Rnd + 1)
Worksheets("Rnd").Cells(i, 1) = Numbers
Worksheets("Rnd").Cells(i, 1).Interior.ColorIndex = Worksheets("Rnd").Cells(i, 1).Value
Next i

End Sub

我正在尝试找到一种方法来查找该列 (A) 中的所有唯一值,并将它们返回到列 (B)。由于某种原因,我在解决这个问题时遇到了问题,任何帮助将不胜感激!

最佳答案

Sub FindUniqueValues(SourceRange As Range, TargetCell As Range)
SourceRange.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=TargetCell, Unique:=True
End Sub

关于vba - 从列表中提取唯一值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/4045767/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com