使用libra office

Question

我有一个包含1000x3字的excel文件。我在这里写了5行作为例子。

 Target   choice1   choice2  choice3
 booklet  criquet   nutmeg   luciole
 argoman  border    phobie   liom
 mouche   libellule taplet   luciole
 abrot    guêpe     terrier  greeca

但是我知道目前选择2中的所有单词都是正确答案，我想使用libra office随机混合选择位置1和选择2以及选择3，如下所示：

 Target   choice1   choice2     choice3
 booklet  nutmeg    criquet     luciole
 argoman  phobie     liom       border
 mouche   taplet     libellule  luciole
 abrot    terrier     guêpe     greeca

我是excel的新手，我不知道如何使用它。请建议我如何做，并提前感谢所有的评论。

Answer 1

很抱歉迟到的回复。

您可以使用以下内容：

Sub MixTheValues()
Dim x, y, r
Dim Words As New Collection
For x = 2 To Cells(Rows.CountLarge, "B").End(xlUp).Row
    For y = 2 To 4
        Words.Add (Cells(x, y).Value)
    Next y
    For y = 2 To 4
        r = Int(Words.Count * Rnd + 1)
        Cells(x, y).Value = Words(r)
        Words.Remove (r)
    Next y
Next x
End Sub

x从第2行开始，然后转到最后一行。

y定义您要使用的列（在本例中为2 to 4或B to D

请注意，这会改变答案，但由于它完全是随机的，因此其中一些可能根本无法移动。

结果：