WPS表格如何快速输入自定义短语

单击“工具→自动更正选项”命令，在d出的“自动更正”对话框中的“替换”框中键入短语，如“电脑报”，

在“替换为”框中键入要替换的内容，如“电脑报编辑部”，单击“添加”按钮，将该项目添加到项目列表中，单击“确定”退出。

以后只要输入“电脑报”，则“电脑报编辑部”这个短语就会输到表格中。

1、打开电脑OFFICE办公软件。

2、双击桌面EXCEL图标打开，新建空白表格文件。

3、选择一列随意输入一些数据。

4、然后可以根据多组数据实际需要调整所选数据列宽度。

5、选中全列数据点击居中对齐。

6、接下来框选所有数据，点击左上角“开始”菜单栏中选择“编辑”选项卡。

7、在d出页面中，选择“填充”选项卡下面“两端对齐”，点击。

最后，所有分散多组数据已全部整合到一个单元格。

我倾向于用宏解决。吧这10个词语输入到单元格A1到J1里，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

Sub test()

Dim i, j, k1, k2, k3, k4, k5 As Byte

Dim xRng As Range

Range("A2:A253").ClearContents

j = --InputBox("请问需要随机组成几个词组（2和252之间的整数）？", "Hi")

Set xRng = Range("A2:A" &j + 1)

Do While i <j

k1 = Int(Rnd * 10) + 1

k2 = Int(Rnd * 10) + 1

Do While k2 = k1

k2 = Int(Rnd * 10) + 1

Loop

k3 = Int(Rnd * 10) + 1

Do While k3 = k1 Or k3 = k2

k3 = Int(Rnd * 10) + 1

Loop

k4 = Int(Rnd * 10) + 1

Do While k4 = k1 Or k4 = k2 Or k4 = k3

k4 = Int(Rnd * 10) + 1

Loop

k5 = Int(Rnd * 10) + 1

Do While k5 = k1 Or k5 = k2 Or k5 = k3 Or k5 = 94

k5 = Int(Rnd * 10) + 1

Loop

If WorksheetFunction.CountIf(xRng, 1) = 0 Then

i = i + 1

Range("A" &i + 1) = Cells(1, k1) &Cells(1, k2) &Cells(1, k3) &Cells(1, k4) &Cells(1, k5)

End If

Loop

End Sub

直接按F5运行此宏，输入你要的组合数，完成。

---