WPS文档里面有100多个表格,我要把每个表格的第一行的高度和第一列的列宽设置成一样,怎么批量设置

如题所述

首先选中Sheet1,然后按住Shift键松手,再点左下角的小三角形(图中红色圆圈里的),这时下面会出现最后一个表格,我这里是Sheet 24, 点击它,这时你就选中了所有表格。此时对其中任何一个表格进行设置,所有的表格都会进行同样的变化。一次就设置完了。

温馨提示:内容为网友见解,仅供参考
第1个回答  2018-11-22
Sub 打开关闭工作簿()
Dim MyFile, mypath As String
Dim Arr() As String
Dim count, 全簿开关 As Integer
全簿开关 = 1
mypath = ThisWorkbook.Path
MyFile = Dir(mypath & "\" & "*.xls")    '读入文件夹中的第一个.xls*文件
count = count + 1                       '记录文件的个数
ReDim Preserve Arr(count)
Arr(count) = MyFile
Do While MyFile <> ""
count = count + 1
MyFile = Dir                            '第二次读入的时候不用写参数
If MyFile = "" Then
Exit Do            '当MyFile为空的时候就说明已经遍历完了,这时退出Do,否则还要运行一遍
End If
ReDim Preserve Arr(count)
Arr(count) = MyFile                     '将文件的名字存在数组中
Loop
On Error Resume Next
For i = 1 To UBound(Arr)
If ThisWorkbook.Name <> Arr(i) Then     '不打开此工具本身
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Workbooks.Open(mypath & "\" & Arr(i))
If 全簿开关 = 1 Then                    '是否全工作簿执行判断
For Each ws In Wb.Worksheets            '遍历工作簿
ws.Range("a1").ColumnWidth = 10          '把A1单元格列宽设为10
ws.Range("a1").RowHeight = 50            '把A1单元格行高设为50
Next ws
Else
'Call 程序
End If
Wb.Close Savechanges:=True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End If
Next i
MsgBox "运行完成!"
End Sub

代码功能:

1、将本工具(批量.xlsx)所在目录下的,所有xls\xlsx\xlsm的文件打开;

2、全部Sheet 的A1单元格列宽设为10,行高50。

代码自定义部分:第28行、29行。

代码使用方法:

第2个回答  2018-11-22
写代码可以批量处理追问

你可以详细的告诉我吗?谢谢

wps表格怎么统一调整表格大小
首先,通过直接拖动边框,您可以自由地调整表格的宽度和高度。只需将鼠标移到边框处,变成双向箭头时,按住左键并拖动,即可实现所需大小的改变。其次,利用列和行的自动调整功能可以节省时间。选中需要调整的单元格,右键点击后选择“列宽自适应”或“行高自适应”,表格会根据内容自动调整至合适尺寸。在WP...

wps表格怎么调成一样宽
wps表格设置一样大小,可通过分别设置表格的行高和列宽实现。方法步骤如下:1、打开需要操作的wps表格,通过键盘“Ctrl+A”选中所有单元格,在开始选项卡中找到并点击“格式”,并在其下拉选项中点击选择“行高”。2、在行高后面输入框输入合适的数值,然后点击确定按钮。3、同行高设置方法,在格式的下拉...

怎么把多个Word表格的列宽调成一样?
1. 选中要调整列宽的表格:在文档中按住Ctrl键,逐个点击所有要调整列宽的表格,或者按住鼠标左键拖动选中多个表格。2. 打开“布局”选项卡:在Word的顶部菜单栏中,点击“布局”选项卡,进入表格布局相关的设置界面。3. 选择“自动调整列宽”:在“布局”选项卡的“表格大小”组中,点击“自动调整”按...

wps表格行高列宽统一设置怎么nong
1、选中需要调整列宽的列;2、将光标放在列标处,当鼠标指针变为双箭头时,按下并拖动鼠标,即可一起调整选中列的列宽。方法2:1、选中需要调整列宽的列;2、单击鼠标右键,在弹出的快捷菜单上选择列宽命令,如图所示;3、弹出列宽对话框,在列宽输入框中输入所需要的数值即可,如图所示。二、行高的设...

wps表格怎么调整行高和列宽
在WPS表格中,你可以按照以下步骤来调整行高和列宽:1. 调整行高:- 选择你想要调整行高的行或多行。- 在菜单栏的开始选项卡中,使用工具栏中的行高按钮。点击按钮后会弹出一个对话框。- 在对话框中,输入你想要设置的行高数值。你可以手动输入具体数值或者使用滑块来调整行高。- 确认输入后,点击确定...

wps表格怎么调整行高和列宽
wps表格的行高和列宽是这样调整的。一、行高的调整 1、选中某一行(或多个行),如【第一行】① 2、右击,选择【行高...】② 3、选择【行高...】后,弹出【行高】对话框,输入【行高R】③的具体数值(如:20),然后选择【确定】④ 二、列宽的调整 列宽的调整类似与行高的调整。只不过选中的...

wps制表格怎样让它的格子大小一样?
具体操作步骤如下:①点击WPS制表格再打开需要设置行高的WPS文件,并选择好需要设置行高的内容。②可以通过使用鼠标选中你想要设置行高的内容,或者一直按着shift键,直到选择完为止(如果表格数目过多推荐使用后一种方法)。③点击“特色功能”下方功能栏里的“行列”选项,并在下拉子栏目里面点击“行高”...

wps怎么调整表格的行高和列宽
一、调整行高 要调整表格的行高,只需按照以下步骤进行操作:1. 选中你想要调整行高的行或多行。可以通过单击行号来选择单行,或者按住鼠标并拖动来选择多行。2. 在菜单栏中找到格式,然后选择行高和列宽。3. 在弹出的对话框中,你可以手动输入想要的行高数值,也可以通过点击下拉箭头选择不同的行高。4...

wps表格中如何设置每一页的单元格大小都一样
具体如下:1. 首先,在wps文字中打开我们要进行操作的文档。2. 接着,点击下图箭头所指图标,将整个表格选中。3. 选中后右键,在弹出选项中点击“表格属性”。4. 打开表格属性窗口后,依次切换至“表格”-“行”-“列”界面,根据自身需要将行高、列宽设置好。全部设置完成后,点击“确定”即可。5....

wps表格中,如何调整表格的行高和列宽
在WPS表格中,调整表格的行高和列宽可以让表格更好看,更易于阅读。下面是具体的步骤:1. 调整行高:选中需要调整行高的行或单元格。将鼠标放在所选行的行号上,鼠标指针会变成上下拖动的箭头,拖动鼠标即可改变行高。也可以在“格式”菜单中选择“行高”,在弹出的窗口中输入所需的行高数值,然后点击“...

相似回答