excel 如何自动调整行间距 vba

|*************************************************************************
EXCEL是一个非常使用的软件，虽然我们平时仅使用他做一些报表，仅此而已；
我在工作中，由于很懒，不愿意做考试重复的工作，就想着使用vba的宏来完成重复的工作，这样就能省出一部分的时间来了。
本人不喜欢在博客里面写以下教程类的东西，我的理念是将工作中的痛点的解决办法分享出来，以解决问题为主。
|************************************************************************

高度自适应

这个比较简单，选中单元格，在行的边界位置双击就可以。
如果要实现多行的自动调整，可以选中多行，和上面操作一样。这个功能还是比较人性化的。

在人性化一点

我们发现当经过自适应调整后，会出现和下面的类似的现象。

有强迫症的人容易发现，这个表格行间挨的太紧密了。我想在文字上下流一点空间，怎么办？
有的看管就说了，手动调整行高就OK了，如果都是单行文字还可以，我上面的这个图就不好办，如第三行是一个2行文字的单元格，明显和其他的高度不一样，调整完是这个样子的。
我们发现第63行是不一样的，其他的行没有问题，这一行不但没变高，反而矮了，原因是excel在执行这不操作的时候会使用统一的变量，将所有选中的表格的高度变成一致的，这样对于63行就不适应了，原因在于这个单元格是有2行数据，当然我单独调整也可以，但是如果这个情况有多个呢，还有多个三行的呢，怎么办？难道就必须要逐一调整吗？烦死了。
这是我们今天的第三个需求