excel格式调整好后保存了，再重新打开时发现行高改变了，这时什么原因。如何使其不改变。

发布网友发布时间：2022-04-23 07:25

共3个回答

热心网友时间：2023-10-07 13:01

设置了自动行高，保存前可能忽略了某个单元格中的字符长度，或这某个计算单元有时间、位置参数，当时间不同或文件存放位置不同的时候，这个单元格的内容不同，当这个长度超过其单元格宽度时，打开文件后的自动过程，会通过自动设置行高，使这个单元格的内容全部显示，这会使整行的行高都变大。

解决办法：点击表单左上空白处（行号列标交汇的灰色块），选中全部，双击任意列标间的间隔线（先设置自动列宽），再双击行号间的间隔线（设置自动行高）。检查全部行高，如果还有异常，就检查异常行的各列（看看单元格内容是否过长或有换行符号，或含有改变输出长度的公式），全部完成后再存盘，就不会再出现开头说的问题了。

热心网友时间：2023-10-07 13:02

首先在VB中引用microsoft excel object library

假设c盘根目录下有个1.xls的文件
…………

问题补充：

你的要求很简单，

一行指令恐怕不行，

最少要三行

代码如下：

Private Sub Form_Load()

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim i As Integer

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open("C:\1.xls")

Set xlSheet = xlBook.Worksheets(1) '引用第1张工作表

For i = 3 To 100 Step 3 '想到哪行就把100改成几

xlSheet.Range(Cells(i, 1), Cells(i, 2)).Merge '合并a1:b2单元格

Next

xlSheet.Rows(10).RowHeight = 100 '把第10行高度设为100

xlBook.Save

xlApp.Application.Quit

Set xlApp = Nothing '表忘释放引用

End Sub

运行一下，看看满足要求否。

热心网友时间：2023-10-07 13:02

你调整好格式后，要把当前表格保存为模版格式，复盖掉以前的旧模版就可以了。

热心网友时间：2023-10-07 13:01

热心网友时间：2023-10-07 13:02

你调整好格式后，要把当前表格保存为模版格式，复盖掉以前的旧模版就可以了。