[求助]

langtl

请教各位高手：能否在excel中让行高（或列宽)，分别对应等于一列（或一行）单元格中的数值？谢谢！

pureshadow

Private Sub Worksheet_Change(ByVal Target As Range)
Dim aa As Integer
    aa = Range("a1").CurrentRegion.Rows.Count
For i = 1 To aa

If ("a" & i) = "" Then
Range("a" & i).ColumnWidth = 8
Else: Range("a" & i).ColumnWidth = Range("a" & i)
End If
Next

End Sub