创新互联公司"三网合一"的企业建站思路。企业可建设拥有电脑版、微信版、手机版的企业网站。实现跨屏营销，产品发布一步更新，电脑网络+移动网络一网打尽，满足企业的营销需求！创新互联公司具备承接各种类型的成都网站建设、网站建设项目的能力。经过10年的努力的开拓，为不同行业的企事业单位提供了优质的服务，并获得了客户的一致好评。

1，VBA 合并单元格中可能包括软回车怎么自动调整行高

假设单元格在第10行Rows("10:10").EntireRow.AutoFit

worksheets(1).rows("1:2").autofit 自动行高

2，如何用VBA设置电子表格的行高

你是想要一个固定的高度，还是说想输入自己想要的高度？下面的代码，请在选择行范围之后使用，然后输入你想要的行高，就OK了Sub Macro2()Dim i As Singlei = InputBox("请输入行高") Selection.RowHeight = iEnd Sub

3，请教关于excel中行高用vba设置的代码

以A1单元格为例：Sub aa() I = 1 Set rng = Range("a1") Dim H1 As Single, H2 As Single rng.WrapText = False rng.Rows.AutoFit H1 = rng.Height rng.WrapText = True rng.Rows.AutoFit H2 = rng.Height n = H2 \ H1 MsgBox "单元格" & rng.Address & " 有 " & n & " 行！" Select Case n Case 1 rng.RowHeight = 20 Case 2 rng.RowHeight = 40 Case 3 rng.RowHeight = 60 Case 4 rng.RowHeight = 80 End Select End Sub

是说一个单元格自动换行后，根据行数分别设置不同的行高

你好！你可以根据查找你一段string字符串中的chr（10）存在的个数即行数，chr（10）即是换行符，设置行高row（i）.height，思路就是这样。我的回答你还满意吗~~

4，excel VBA设置行高

1、在设置修改行高快捷键之前需要把开发工具选项卡给调出来。鼠标放在如下图所示的下拉按钮。点击一下。弹出一列菜单。2、在弹出的菜单中点“其他命令”；弹出excel选项面板。在左侧这里点击：自定义功能区3、展开了“自定义功能区”的设置界面。在这里显示着各个主选项卡。找到“开发工具”，并勾选。再在右下角点确定。4、点确定后，“开发工具”即调出，显示在工作表菜单栏中。如下图所示。

Sub hg() For i = 1 To Range("F65536").End(xlUp).Row Rows(i).RowHeight = Range("F" & i).Value NextEnd Sub

Sub hg() For i = 1 To Range("F65536").End(xlUp).Row Rows(i).RowHeight = Range("F" & i).Value NextEnd Sub

excel VBA设置行高步骤如下：1、首先我们打开一个工作样表作为例子。2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub 设置行高列宽()dim w as integerdim h as integer w = inputbox("请输入列宽")h = inputbox("请输入行高") ActiveWindow.RangeSelection.ColumnWidth = w ActiveWindow.RangeSelection.RowHeight = hEnd Sub3、这里我们输入两个变量w和h分别声明为整数变量，w为宽，h为高。4、这两个变量我们使用inputbox函数的输入值来获取，这样比较灵活，如果有固定的格式需求，我们可以将变量值直接赋予，这样也可以提高效率。5、ActiveWindow.RangeSelection我们激活当前窗口并是对当前选择的单元格区域进行属性定义。这里分别定义行高和列宽。6、实际使用时，最好先新建一个按钮并指定宏，然后在选取区域单元格后，点击按钮运行宏，就能得到我们想要的结果了。

excel VBA设置行高步骤如下：1、首先我们打开一个工作样表作为例子。2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub 设置行高列宽()dim w as integerdim h as integer w = inputbox("请输入列宽")h = inputbox("请输入行高") ActiveWindow.RangeSelection.ColumnWidth = w ActiveWindow.RangeSelection.RowHeight = hEnd Sub3、这里我们输入两个变量w和h分别声明为整数变量，w为宽，h为高。4、这两个变量我们使用inputbox函数的输入值来获取，这样比较灵活，如果有固定的格式需求，我们可以将变量值直接赋予，这样也可以提高效率。5、ActiveWindow.RangeSelection我们激活当前窗口并是对当前选择的单元格区域进行属性定义。这里分别定义行高和列宽。6、实际使用时，最好先新建一个按钮并指定宏，然后在选取区域单元格后，点击按钮运行宏，就能得到我们想要的结果了。

1、在设置修改行高快捷键之前需要把开发工具选项卡给调出来。鼠标放在如下图所示的下拉按钮。点击一下。弹出一列菜单。2、在弹出的菜单中点“其他命令”；弹出excel选项面板。在左侧这里点击：自定义功能区3、展开了“自定义功能区”的设置界面。在这里显示着各个主选项卡。找到“开发工具”，并勾选。再在右下角点确定。4、点确定后，“开发工具”即调出，显示在工作表菜单栏中。如下图所示。

网页名称：vba设置行高，VBA合并单元格中可能包括软回车怎么自动调整行高
文章起源：http://cdweb.net/article/isijso.html