WPS如何將一排單元格內容組合成隨機順序的文字

時間 2021-08-30 09:08:32

1樓:夜空裡的守望者

樓主,你好!這個是沒法使用函式公式解決的,還是建議樓主使用vba程式進行處理。(由於wps個人免費版不能使用vb功能,那就改用其他版本進行處理)

(一)vba程式**如下:(寫**不易,望笑納)

sub zuhe_***()

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

(二)程式的執行結果如下截圖:

【注】程式執行之前請做好資料備份,以免丟失。

2樓:小龍崇者

有些複雜,最好不要難為公式。

如何將多個單元格中的資料放在乙個單元格

如果h1 h2 h3為文字資料,那麼在h1單元格插入乙個單元格,然後在h1單元格輸入以下公式。phonetic h2 h4 將h2 h4單元格的文字資料合併到一起 然後複製h1,選擇性貼上 為 數值 後,刪除h2 h4單元格,即可。多個單元格怎麼排列的?上傳帶行列號的有資料示例的 截圖,清楚說明已知...

如何將excel單元格中的特定內容移到另一單元格

蘇延佟佳靖之 假設公式針對a2單元格中的資料。配線側 b2單元格中所用公式為 mid a2,find 配線側 a2 6,find 主幹側 a2 find 配線側 a2 7 主幹側 c2單元格中所用公式為 right a2,len a2 find 主幹側 a2 5 這麼複雜?選中單元格進行單元格複製貼...

excel,如何將多個單元格的內容合併到單元格中

閭丘齊夏銘 可以用公式 a1 a2 如果單元格中資料為文字,並不是有公式得到的,還可以用公式 a1到a100單元格的資料合併 phonetic a1 a100 貴菊求丹寒 假設是a1,b1,c1,d1四個單元格內容合併到e1單元格,則e1單元格寫入公式 a1 b1 c1 d1 或 concatena...