WPS表格中快速输入重复内容的窍门

在处理表格数据时，我们常常会遇到一种情况：需要将某个固定内容（比如前缀或后缀）批量添加到一列数据中。例如，假设我们有一列公司名称，但缺少统一的地址前缀“广东省东莞市”。如果手动逐个输入，不仅效率低下，而且容易出错。

面对这种重复性劳动，一个高效的思路是利用“选择性粘贴”中的“连接”功能。然而，在WPS表格中，这个功能可能并不直接可见。别担心，我们可以通过VBA宏来为它“增补”这个能力，并将其添加到右键菜单中，让操作变得像点一下鼠标那么简单。

以下是具体的实现步骤，假设你的WPS表格已经配置好了VBA环境。

步骤一：创建“选择性粘贴——连接”宏

首先，我们需要编写实现核心功能的VBA代码。

1. 新建一个空白工作簿。
2. 按下快捷键 ALT+F11，打开VBA编辑器（VBE）。
3. 点击菜单栏的【插入】->【模块】，在新建的模块窗口中，粘贴以下代码：

Sub 选择性粘贴_连接()
    Dim rng As String, NewSht As String, OldSht As String, texts, i As Byte, ans As Byte
    If ActiveSheet.ProtectContents Then MsgBox "工作表已保护，本程序拒绝执行！", 64, "提示": Exit Sub
    On Error GoTo endd
    rng = Selection.Address
    OldSht = ActiveSheet.Name
    Application.DisplayAlerts = False
    Worksheets.Add
    NewSht = ActiveSheet.Name
    Range("a1").Select
    ActiveSheet.Paste
    If ActiveSheet.UsedRange.Count > 1 Then
        MsgBox "只能连接单个单元格的值。", 64, "提示"
        GoTo endd
    End If
    texts = Selection.Text
    Application.ScreenUpdating = True
    Sheets(OldSht).Select
    ans = InputBox("请选择连接于目标前还是连接于目标后。" & Chr(10) & "1：连接于目标之前；" _
    & Chr(10) & "2：连接于目标之后。", "连接方式", 1)
    For i = 1 To Selection.Count
        If ans = 1 Then Selection(i) = texts & Selection(i)
        If ans = 2 Then Selection(i) = Selection(i) & texts
    Next
endd:
    Worksheets(NewSht).Delete
End Sub

这段代码的作用是：将你复制的内容（必须是单个单元格的值）批量连接到当前选中的单元格区域之前或之后。

步骤二：将宏功能添加到右键菜单

为了让操作更便捷，我们把宏命令集成到单元格的右键菜单里。

1. 在VBE编辑器中，使用快捷键 CTRL+R 打开“工程资源管理器”。
2. 在左侧窗格中找到并双击“ThisWorkbook”对象。
3. 在右侧的代码窗口中，输入以下两段代码：

Private Sub Workbook_Open()
    With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=4, Temporary:=True)
        .Caption = "选择性粘贴_连接(&Paste)"
        .OnAction = "选择性粘贴_连接"
    End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("CELL").Reset
End Sub

第一段代码（Workbook_Open）的作用是：当工作簿打开时，自动在单元格右键菜单的指定位置添加一个新命令。
第二段代码（Workbook_BeforeClose）的作用是：在关闭工作簿时，重置右键菜单，避免影响其他工作簿。

步骤三：将工作簿保存为默认模板

为了让这个功能在所有新建表格中生效，我们需要将其保存为模板。

1. 关闭VBE窗口，回到WPS表格界面。
2. 点击左上角的【文件】->【另存为】。
3. 在“保存类型”处，选择“WPS表格模板文件(*.xltx)”，并为模板命名（例如“我的宏模板”），然后保存。

步骤四：测试功能效果

现在，让我们来验证一下劳动成果。

1. 点击【文件】->【新建】->【本机上的模板】，选择你刚才保存的模板文件，新建一个工作簿。
2. 在A2:A7单元格中分别输入几个公司名，例如“全兴有限公司”、“宏运有限公司”等。
3. 在A9单元格输入需要添加的前缀，例如“广东省东莞市”，然后复制这个单元格。
4. 选中目标区域A2:A7，单击鼠标右键。你会发现右键菜单中多了一个选项：“选择性粘贴_连接(Paste)”。点击它。
5. 在弹出的对话框中，输入“1”表示将前缀连接在目标之前，点击确定。

瞬间，所有选中的公司名称前都自动加上了“广东省东莞市”。整个过程流畅自然，极大地提升了批量处理数据的效率。

通过这个简单的自定义，我们让WPS表格更贴合个人的使用习惯。它解决的不仅仅是一个技术问题，更是一种工作思路的转变：将重复操作交给自动化工具，把宝贵的时间和精力留给更需要创造力的工作。