超碰人人人人人,亚洲AV午夜福利精品一区二区,亚洲欧美综合区丁香五月1区,日韩欧美亚洲系列

 

在VBA中如果通過value取值的方法，然后賦值給另外一個(gè)單元格，上面那種單一格式的文本，可以完美復(fù)制到單元格L2中；但不管怎么操作，都無法將下面H6這個(gè)單元格中的內(nèi)容“test Excel copy”完美復(fù)制到單元格L6中，會(huì)出現(xiàn)部分文字大小、粗細(xì)、顏色等丟失的現(xiàn)象。

網(wǎng)上提供的VBA方法都是采用獲取value，然后賦值的方法，無法實(shí)現(xiàn)上面的完美復(fù)制要求，下面提供了另外一種思路來解決這個(gè)問題，采用復(fù)制單元格H6然后黏貼到L6的方法來解決，但由于H6其實(shí)合并了三個(gè)單元格，為了實(shí)現(xiàn)復(fù)制黏貼的效果，L6也必須合并三個(gè)單元格，才能正常使用復(fù)制黏貼功能，代碼如下：

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

最終效果如下：