wps页码奇偶页一左一右
在WPS Office表格工具中，若您想让页码显示为奇偶页一左一右（即奇数页在左侧，偶数页在右侧），可以按照以下步骤操作：
方法一
1. 打开WPS表格并进入需要设置页码格式的工作表。
2. 点击菜单栏的“插入”选项卡。
3. 在“插入”选项卡中，找到并点击“页眉和页脚”组里的“页码”按钮。
4. 从下拉列表中选择“浮于文字下方”，这会使页码出现在页面下方，但此时还不能实现奇偶页不同的位置。
5. 接着，再次点击“页眉和页脚”组里的“页码”按钮，这次选择“嵌入页码”。此时，会进入页码的编辑模式。
6. 在弹出的“页眉和页脚”对话框中，切换到“格式”选项卡。
7. 在“页码编号”区域，勾选“起始页码”和“结束页码”的下拉箭头，并选择“自定义”。然后，在“自定义页码格式”框中输入`1,2,3,4,5,6,7,8,9,10`（或您想要的任意奇数序列），再点击“格式”按钮选择“页码编号”，最后勾选“奇数页不同、偶数页相同”的选项。
8. 完成设置后，点击“确定”按钮关闭对话框。此时，奇数页的页码将出现在左侧，偶数页的页码将出现在右侧。
方法二（使用VBA宏）
如果您熟悉VBA编程，还可以编写一个简单的宏来实现这一功能。以下是一个示例代码：
1. 打开WPS表格并进入工作表。
2. 按下 `Alt + F11` 键打开VBA编辑器。
3. 在VBA编辑器中，插入一个新模块（右击工作表名称 -> 插入 -> 模块）。
4. 将以下代码粘贴到新模块中：
```vba
Sub 设置奇偶页页码位置()
Dim ws As Worksheet
Dim i As Long
Set ws = ActiveSheet " 或者指定具体的工作表，如 ThisWorkbook.Sheets("Sheet1")
For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
If i Mod 2 = 1 Then " 奇数行
ws.PageSetup部首页边距:=ws.PageSetup.LeftMargin,顶部边距:=ws.PageSetup.TopMargin,右侧边距:=ws.PageSetup.RightMargin,底部边距:=ws.PageSetup.BottomMargin
ws.PageSetup.leftMargin = ws.PageSetup.rightMargin " 调整左边距等于右边距
Else " 偶数行
ws.PageSetup部首页边距:=ws.PageSetup.TopMargin, leftMargin:=ws.PageSetup.LeftMargin, rightMargin:=ws.PageSetup.RightMargin, bottomMargin:=ws.PageSetup.BottomMargin
End If
Next i
End Sub
```
5. 修改代码中的 `ThisWorkbook.Sheets("Sheet1")` 为您实际的工作表名称。
6. 按下 `F5` 键运行宏。此时，奇数页的页码将出现在左侧，偶数页的页码将出现在右侧。
请注意，在使用VBA宏时，务必小心操作，避免误修改其他重要设置或数据。
wps页码奇偶页一左一右前面有线条
在WPS Office表格工具中制作奇偶页不同样式的页码，可以按照以下步骤操作：
方法一
1. 插入页码：
- 点击菜单栏的“插入”选项卡。
- 在“页眉和页脚”区域，点击“页码”按钮。
- 选择页码的位置（如“顶部”、“底部”、“侧边”等），并设置页码的格式。
2. 设置奇偶页不同的样式：
- 奇数页：选中奇数页的页码，然后点击“开始”选项卡中的“字体”组里的“颜色”按钮，选择一种与背景色对比明显的颜色。接着，选中页码，点击“开始”选项卡中的“对齐方式”下拉框，选择“靠右对齐”，这样奇数页的页码就会靠右对齐，并且颜色与背景形成对比。
- 偶数页：选中偶数页的页码，同样设置字体颜色和对称方式，但这次选择靠左对齐。
方法二
1. 使用VBA宏实现：
- 打开WPS表格，点击“开发工具”选项卡。
- 在“代码”区域，点击“Visual Basic”按钮，打开VBA编辑器。
- 在VBA编辑器中，粘贴以下VBA代码：
```vba
Sub 插入页码()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") "替换为你的工作表名
Dim i As Long, j As Long
i = 1
j = 1
Do While i <= ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
If i Mod 2 = 1 Then
ws.Cells(i, 1).Value = i
ws.Cells(i, 2).Value = "Page " & i
Else
ws.Cells(i, 1).Value = ""
ws.Cells(i, 2).Value = ""
End If
i = i + 1
Loop
j = 1
Do While j <= ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
If j Mod 2 = 1 Then
ws.Cells(j, 1).Value = j
ws.Cells(j, 2).Value = "Page " & j
Else
ws.Cells(j, 1).Value = ""
ws.Cells(j, 2).Value = ""
End If
j = j + 1
Loop
End Sub
```
- 运行该宏，即可在工作表的奇数页和偶数页分别插入页码。
3. 调整页码格式：
- 插入页码后，选中页码，点击“开始”选项卡中的“字体”组里的“颜色”按钮，选择与背景色对比明显的颜色。
- 再次选中页码，点击“开始”选项卡中的“对齐方式”下拉框，分别选择奇数页的靠右对齐和偶数页的靠左对齐。
通过以上方法，你可以在WPS Office表格工具中制作出奇偶页不同样式的页码，并且前面带有线条。
wps页码奇偶页一左一右（wps页码奇偶页一左一右前面有线条）此文由小褚编辑，于2026-01-19 00:58:56发布在句子栏目，本文地址：wps页码奇偶页一左一右（wps页码奇偶页一左一右前面有线条）/show/art-28-73926.html