强力取消EXCEL自动换行，坚决固定行高

   Excel单元格行高固定，不让让一复制内容就拉长行高

   把包含换行符的内容粘贴进excel单元格后会自动拉长，也就是excel具有默认自动换行功能。本以为可以将这种默认功能取消，但是尝试过很多方法都不奏效，比如取消自动换行，清除格式，excel表保护。

 

 

   终极方法：在工作表上，按ALT+F11键，打开VBE，在所要操作的工作表代码窗口输入以下代码。此代码能够强力取消EXCEL自动换行，坚决固定行高！！！

Dim dbRowHeight As Double
Private Sub Worksheet_Change(ByVal Target As Range)
Target.RowHeight = dbRowHeight
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dbRowHeight = Target.RowHeight
End Sub

PS：继续采集内控数据