excel中能不能输入一个函数，按表格中给定的数据自动调整行高喃？

Question

比如按B列单元格的数据调整，B1=2，B2=3，B3=4……………………，则行高分别设置成2、3、4…………，这个如何实现？

Answer 1

能

Sub 按数据调整行高()
Dim x, y
x = Selection.Row() '行坐标
y = Selection.Column() '列坐标
Dim a As Long
a = Cells(x, y).Rows.CurrentRegion.Count

For i = 0 To a

Cells(i + 1, y).Select
Selection.RowHeight = Cells(i + 1, y).Value

Next
End Sub
选择b1执行此宏

Answer 2

函数是不能调整行高的，可以用vba来获取单元格数值，并根据这些数值设定对应行的行高

Answer 3

Sub RngToPoints()
With Range("B1")
.RowHeight = Application.CentimetersToPoints(2)
End With
With Range("B2")
.RowHeight = Application.InchesToPoints(3)
End With
End Sub

如果你行高是数组，那就直接引用过来

Answer 4

需要VBA编程：代码类似于
Sub Macro1()
Dim i As Integer
For i = 1 To 5
Rows(i).RowHeight = Cells(i, "B").Value
Next
End Sub
不知是否有帮助