[已解决]请解决合并单元格的判别和取值问题

zzk386

请解决合并单元格的判别和取值问题
合并单元格的判别和取值问题.rar (6.19 KB, 下载次数: 27)

2012-1-7 20:33 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

djyjysxxs

2012-1-7 23:53

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Len(Target) < 1 Then Exit Sub
If Target.Address = "$M$14" Or Target.Address = "$N$14" Then
   If Len(Range("m14")) < 1 Or Len(Range("n14")) < 1 Then Exit Sub
   Set c1 = Range("c3:z9").Find(Range("m14"), , , 1)
   Set c2 = Range("c3:z9").Find(Range("n14"), , , 1)
   If c1 Is Nothing Or c2 Is Nothing Then Exit Sub
   If Range(Split(c1.Address, "$")(1) & 1).MergeArea.Address = Range(Split(c2.Address, "$")(1) & 1).MergeArea.Address Then
      [o14] = "合并"
   Else
      [o14] = "否"
   End If
ElseIf Target.Address = "$E$21" Then
   Set c1 = Range("c3:z9").Find(Range("E21"), , , 1)
   If c1 Is Nothing Then Exit Sub
   [g21] = Range(Split(c1.Address, "$")(1) & 1).MergeArea(1)
End If
End Sub

跳转到最佳答案楼层

djyjysxxs

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Len(Target) < 1 Then Exit Sub
If Target.Address = "$M$14" Or Target.Address = "$N$14" Then
   If Len(Range("m14")) < 1 Or Len(Range("n14")) < 1 Then Exit Sub
   Set c1 = Range("c3:z9").Find(Range("m14"), , , 1)
   Set c2 = Range("c3:z9").Find(Range("n14"), , , 1)
   If c1 Is Nothing Or c2 Is Nothing Then Exit Sub
   If Range(Split(c1.Address, "$")(1) & 1).MergeArea.Address = Range(Split(c2.Address, "$")(1) & 1).MergeArea.Address Then
      [o14] = "合并"
   Else
      [o14] = "否"
   End If
ElseIf Target.Address = "$E$21" Then
   Set c1 = Range("c3:z9").Find(Range("E21"), , , 1)
   If c1 Is Nothing Then Exit Sub
   [g21] = Range(Split(c1.Address, "$")(1) & 1).MergeArea(1)
End If
End Sub

zzk386

谢谢版主,行啦,
请问这句能详细解释一下吗?
Range(Split(c1.Address, "$")(1) & 1).MergeArea(1)