清除指定区域的格式
------解决方案--------------------------------------------------------
Sheet1.Range("D6:F6").Select
Selection.Clear
------解决方案--------------------------------------------------------
假设合并的是 A1:F4
Range("A1").ClearFormats
------解决方案--------------------------------------------------------
ClearFormats