在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

最終效果如下：