如何把合并的单元格值赋给没有合并的单元格。

Question

各位大虾行好吧。
在同一个工作薄中，其中一个SHEET1中A1:A6,A7:A13.....是各个单元格合并的，那么如何把SHEET1中的A1：A6,A7:A13.../值赋给SHEET2中的A5,A6....?。我写一段VB 可是出现的结果是把SHEET2的A1:A6自动合并后才把SHEET1中的A1:A6的值赋过去了。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Sheet1.Range("A1:A6").Copy Destination:=Sheet4.Range("A5")
End Sub谢谢！！

Answer 1

合并单元格的值保存在合并区域的第一个单元格里，sheet2.cells(5,1).value=sheet1.cells(1,1).value。

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Sheet4.Range("A5") = Sheet1.Range("A1:A6").Value
 Sheet4.Range("A6") = Sheet1.Range("A7:A13").Value
End Sub