请求各位帮忙！懂macro的进！该怎么处理

请求各位帮忙！懂macro的进！
大家好，

我在对文件筛选后，合并单元格里不用双击就能完全显示里面的内容。使用自适应行高没有任何作用。所以，我就想用宏来实现，可我vba刚刚入门，完全没有什么思路，请大家帮帮忙啊。感激不尽！！！


发不了附件，请大家看帖：http://club.excelhome.net/thread-507579-1-1.html


代码如下：

VB.NET code

Sub AutoFitMergedCellRowHeight()    Dim CurrentRowHeight As Single, MergedCellRgWidth As Single    Dim CurrCell As Range    Dim ActiveCellWidth As Single, PossNewRowHeight As Single    Dim StartCell As Range, c As Range, MergeRng As Range, Cell As Range    Dim a()e