2025澳门开彩结果历史记录-2025澳门开彩结果-2025澳门开彩查询记录-2025澳门聚宝盆-2025澳门九点半一肖一码-2025澳门精准资料免费全览

 

在VBA中如果通過value取值的方法，然后賦值給另外一個(gè)單元格，上面那種單一格式的文本，可以完美復(fù)制到單元格L2中；但不管怎么操作，都無法將下面H6這個(gè)單元格中的內(nèi)容“test Excel copy”完美復(fù)制到單元格L6中，會出現(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

最終效果如下：