你写代码的时候遇到了什么问题，或者有什么疑问，这个很重要，从你已经表达的文字来看，好像没有什么难度，代码这样：
If Range("A1")="2" Then
Range("D1")="XP-"
Range("D2")="P-15"
Range("E1")=4
Range("E2")=10
End If
If Range("A1")="1" Then
Range("D1")="P-10"
Range("E1")=4
Range("D1:D2").Merge
Range("E1:E2").Merge
End If 