ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 281|回复: 6

[求助] 相同名称的抽取两个数值

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-3-17 13:29 | 显示全部楼层 |阅读模式
各位大侠。。A列是名称和数值。有很多行,名称相同的也很多,我想在A列所有的名称中每个名称抽取两个,对应不同的数值。请问该怎么办?

随机抽取.rar

6.89 KB, 下载次数: 8

随机抽取

TA的精华主题

TA的得分主题

发表于 2020-3-17 13:38 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-3-17 14:02 | 显示全部楼层
'估计是同名称中随机抽取,,,

Option Explicit

Sub test()
  Dim arr, i, j, t, n, dic, s1, s2, key, m, cnt
  Set dic = CreateObject("scripting.dictionary")
  arr = [a1].CurrentRegion
  ReDim brr(1 To UBound(arr, 1), 1 To 2)
  For i = 2 To UBound(arr, 1)
    dic(arr(i, 1)) = dic(arr(i, 1)) & Space(1) & i
  Next
  For Each key In dic.keys
    t = Split(dic(key))
    If UBound(t) = 1 Then cnt = 1 Else cnt = 2
    For i = 1 To cnt
      n = Int(Rnd * (UBound(t) - i + 1)) + i
      s1 = arr(t(i), 1): s2 = arr(t(i), 2)
      arr(t(i), 1) = arr(t(n), 1): arr(t(i), 2) = arr(t(n), 2)
      arr(t(n), 1) = s1: arr(t(n), 2) = s2
      m = m + 1
      brr(m, 1) = arr(t(i), 1): brr(m, 2) = arr(t(i), 2)
    Next
  Next
  With [d2]
    .Resize(UBound(arr, 1), 2).ClearContents
    .Resize(m, 2) = brr
  End With
End Sub

评分

参与人数 3鲜花 +7 收起 理由
LSYYLW + 2 太强大了
YZC51 + 3 太强大了
tangwei94054 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-17 14:26 | 显示全部楼层
一把小刀闯天下 发表于 2020-3-17 14:02
'估计是同名称中随机抽取,,,

Option Explicit

谢谢。这正是我想要的。请问大侠。如果相同名称我要提取3个。不足3个的提取1个。该修改哪里啊?

TA的精华主题

TA的得分主题

发表于 2020-3-17 14:32 | 显示全部楼层
'如果有2个数据也会随机抽取1个

If UBound(t) = 1 Then cnt = 1 Else cnt = 2 改成:

-------------

If UBound(t)  <3 Then cnt = 1 Else cnt = 3

评分

参与人数 1鲜花 +2 收起 理由
YZC51 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-17 15:14 | 显示全部楼层
一把小刀闯天下 发表于 2020-3-17 14:32
'如果有2个数据也会随机抽取1个

If UBound(t) = 1 Then cnt = 1 Else cnt = 2 改成:

谢谢大侠!!!

TA的精华主题

TA的得分主题

发表于 2020-3-18 10:58 | 显示全部楼层
C2:C15=RAND()

D2:D15 {=IFERROR(INDEX(A:A,RIGHT(SMALL(IF(COUNTIF(OFFSET(A$2,,,ROW($1:$14)),$A$2:$A$15)<3,MATCH(A$2:A$15,A$2:A$15,)/1%+ROW($2:$15)),ROW(A1)),2)),"")

E2:E15 {=IFERROR(INDEX(B:B,RIGHT(SMALL(IF(A$2:A$15=D2,RANK(C$2:C$15,C$2:C$15)/1%%+ROW($2:$15)),COUNTIF(D$2:D2,D2)),3)),"")
6729.png
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-5-27 15:06 , Processed in 0.073519 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表