在Excel中粘贴后自动调整行高

Question

我使用MS Excel 2007制作账单和报价单。我经常需要重复使用以前的报价。

复制引号并将其粘贴到新位置后，需要为每一行重新调整行高。

有什么解决方法吗？

Answer 1

我不完全确定这是否是你所追求的。但你尝试过这样的事吗？

Private Sub Worksheet_Change(ByVal Target As Range)
   ' Here you enter a matrix with the cells you want to trigger a Autofit
   ' If you just want one column to do it, take Range("A1:A200") 
    Range("A1:C11").EntireRow.AutoFit
End Sub

每次更改选定单元格中的值时，此代码都会自动调整行大小。

如果您不提供太多信息，很难找到一个好的解决方案。

点击此处： Excel Worksheet_Change Event not working如果我的代码对您没有帮助。

最好的问候