[原创]让取消合并后的单元格等于合并时的值

andysky

看到有人需要，就编一个：

功能： 

[此贴子已经被作者于2008-2-11 9:04:54编辑过]

andysky

QUOTE:

Sub 取消合并且等于原合并值()
If Selection.Count = 1 Then MsgBox "请选择合并单元格再执行本工具！", 64, "友情提示": Exit Sub
Dim rng As Range, val, cell As String
For Each rng In Application.Intersect(Selection, ActiveSheet.UsedRange)
If rng.MergeCells Then
cell = rng.MergeArea.Address
val = rng.Value
rng.UnMerge
Range(cell).Value = val
End If
Next
End Sub

在我写的第一本Excel 2007书中有这个实例。

[此贴子已经被作者于2007-11-28 13:42:45编辑过]

andysky

附送一个可还原的《合并居中》

QUOTE:

Sub 合并单元格()
    If ActiveSheet.ProtectContents Then MsgBox "工作表已保护,本程序拒绝执行！", 64, "提示": Exit Sub
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Dim sht As Worksheet, str As String, strr As String, strrr
    str = ActiveSheet.Name
    strr = Selection.Address
    Selection.Copy
    Sheets.Add
    Range(strr).Select
    ActiveSheet.Paste
    strrr = ActiveSheet.Name
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Merge
        .Copy
    End With
    Sheets(str).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
    Selection.Borders.LineStyle = xlContinuous
    Sheets(strrr).Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

歌盛

这很有用，谢谢分享~

灰色黎明

如果单元格是横向合并的,每个子单元格都等于原来合并格.
如果是纵向合并的只有第一行是原来的合并值(多行多列也是第一行),能实现吗?

灰色黎明

等待答案-有条件的取消合并
顶啊,顶啊,我有这个需求的.

leifeishuqin

我色盲吗？如何底色全为粉色？？？？

ynduck

不错我，如何能下载呢？？

zanjero

马克一下:)

powermill

都是高手，好好学习。