×
大家都在搜

微信扫码登录

使用验证码登录

QQ登录

只需一步,快速开始

+发表新主题
分享
开启左侧

谈一谈:WPS如何将一排单元格内容组合成一个随机顺序的文本?

[复制链接]

谈一谈:WPS如何将一排单元格内容组合成一个随机顺序的文本?

姚小妹4 发表于 2025-6-27 09:01:35 浏览:  3 回复:  0 [显示全部楼层] 回帖奖励 |倒序浏览 |阅读模式

  楼主,你好!这个是没法使用函数公式解决的,还是建议楼主使用VBA程序进行处理。WPS下载https://www.wpssoft.com/download.html欢迎来到wps官网,这里提供最新版WPS下载,最新WPS OFFICE办公软件及其全部组件的免费WPS下载服务。作为国内领先的办公软件,WPS电脑版集成了文字处理、电子表格和演示文稿等多种功能,完美满足您的日常办公需求。WPS界面简洁直观,操作便捷,即使是办公新手也能快速上手。WPS下载到电脑上,您将享受最新功能和安全保障。


  (一)VBA程序代码如下:(写代码不易,望笑纳)

  Sub ZuHe_xxx()

  Dim i1, i2, i3, MyArray(100), str, Rn

  On Error Resume Next

  Set Mysheet1 = ThisWorkbook.Worksheets("Sheet1")

  Mysheet1.Range("H1:H1000") = ""

  For i1 = 1 To 1000

  str = ""

  Randomize       '初始化随机数

  Erase MyArray   '初始化数组

  For i2 = 1 To 7

  If Mysheet1.Cells(i1, i2) <> "" Then

  For i3 = 0 To 1000000

  Rn = Int(Rnd() * 7 + 1)  '生成1-7的随机数

  If UBound(Filter(MyArray, Rn)) <> 0 Then  '如果生成的随机数不重复,则

  MyArray(i2) = Rn

  str = str & Mysheet1.Cells(i1, Rn)

  Exit For

  End If

  Next

  End If

  Next

  Mysheet1.Cells(i1, 8) = str

  Next

  End Sub

  (二)程序的运行结果如下截图:

  【注】程序运行之前请做好数据备份,以免丢失。

  有些复杂,最好不要难为公式。

  组合算法出来很多