在VBA中如果通过value取值的方法，然后赋值给另外一个单元格，上面那种单一格式的文本，可以完美复制到单元格L2中；但不管怎么操作，都无法将下面H6这个单元格中的内容“test Excel copy”完美复制到单元格L6中，会出现部分文字大小、粗细、颜色等丢失的现象。

网上提供的VBA方法都是采用获取value，然后赋值的方法，无法实现上面的完美复制要求，下面提供了另外一种思路来解决这个问题，采用复制单元格H6然后黏贴到L6的方法来解决，但由于H6其实合并了三个单元格，为了实现复制黏贴的效果，L6也必须合并三个单元格，才能正常使用复制黏贴功能，代码如下：

Sheets("Sheet1").Range("A9:E9").Select
Selection.Copy
Sheets("Sheet1").Select
Sheets("Sheet1").Range("I9:M9").Select
ActiveSheet.Paste
                
' 清除剪切板
Application.CutCopyMode = False

最终效果如下：