作者jeffreygod ()
看板Office
标题[算表] 重复资料随机排序,相同不相邻
时间Mon Jun 14 16:57:41 2021
软体: Excel
版本: 2019
https://imgur.com/lI9Rtpw
这是资料的截图,
资料为有重复出现的英文字母,希望进行随机排列,三个A就必须出现三次,以此类推
但是有两个附加条件,包括特定栏位固定跟排除指定资料,以及相同不能相邻。
不知道用函数该如何构成...
-------------------------------------------------------
希望问题有描述清楚,如果有甚麽建议给我,我会十分感谢
能有人帮忙解惑的话,更是感激万分
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.240.210.169 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1623661063.A.1B2.html
2F:→ waiter337: 糟糕 有错 我没算数量 06/15 03:21
4F:→ waiter337: 开启vba 的话 按下alt +f11 可以先网路查询如何开启vba 06/15 03:49
5F:→ waiter337: 之後上网查 如何设个按钮 就能用了 06/15 03:50
6F:→ waiter337: Range("g2:g30").ClearContents 这行是用来清理旧的资 06/15 03:57
7F:→ waiter337: 料 如果你的资料比现在多 可以把g30 改多一点比如g300 06/15 03:57
8F:推 waiter337: 之後我在改一次 刚发现有错 06/15 04:14
10F:→ jeffreygod: 感谢W大的回答,想不到竟然是用了VBA..以为是用函数 06/17 00:22
11F:→ jeffreygod: 可以偷学到一点东西,但是VAB整个就是没有概念呀... 06/17 00:23
13F:→ newacc: 相同不能相邻而已,为什麽W大你要检查到i+2的G栏? 06/17 20:37
14F:推 waiter337: 作者後续追加 上下两格内不相邻 还有有多项排除 的需求 06/18 19:16
16F:→ waiter337: 补充 中间追加了z2=z2+1 与下方[h1]=z2 06/18 19:22
17F:→ waiter337: 可依照数字大小判断运行次数 这样比较能评估是否还有 06/18 19:22
18F:→ waiter337: 空间追加排除项目 或者要缩小排除与限定项目 06/18 19:22
19F:→ waiter337: 毕竟不知道作者原本需求的体量大小 另外 06/18 19:23
20F:→ waiter337: 另外z1 = 200000 可以自行依照电脑状况提高或者缩小 06/18 19:23
21F:→ waiter337: 这是避免程式无法尝试出你想要的结果而一直运算 造成 06/18 19:24
22F:→ waiter337: 系统死机 设置一个尝试次数的上限强制中断 06/18 19:25
23F:→ waiter337: 另外我并没有判断限定的项目间距 06/18 19:26
24F:→ waiter337: 但可以另外做一个程序 先检查是否限定项目有邻近的状况 06/18 19:27
25F:→ waiter337: 毕竟作者可能本身限定上会有特殊需求不需保持原先规则 06/18 19:28