使合并的单元格都有内容

gvntw

经常有会员喜欢用合并的单元格，但不懂得怎么使每个合并的单元格都有相同内容，方便数据的计算。

为了方便以后回帖链接，特单独发帖。

KQoAycWr.rar (2.73 KB, 下载次数: 8210)

2005-10-17 10:31 上传

点击文件名下载附件
使合并的单元格都有内容

[此贴子已经被作者于2007-6-13 10:12:17编辑过]

gvntw

以下是引用[I]lsc[/I]在2005-12-19 14:47:53的发言：[BR]

gvntw版主啥时把头象换了，不如原来那个玫瑰好看了

我没换头像呀。

gvntw

QUOTE:

以下是引用rowemx在2006-8-14 19:25:42的发言：

有个问题，在什么地方选择“定位”这个标签啊。我找不到的。我的是office2000

在编辑菜单里。

快捷键：Ctrl+G或F5

gvntw

QUOTE:

以下是引用烈火飞鸿在2006-12-28 14:43:29的发言：

看了楼主的文章，佩服之余有一个小小的建议，希望楼主做动画时不要用一些快捷键，因为动画里是看不到你用了什么快捷键的！比如倒数第二步填充，楼主就是应该用了CTRL+D，搞得我揣摩了好一会才弄明白！

呵呵，是Ctrl+Enter，如果不用快捷键，可找不到什么好方法。

guoweicao版主做菜式分解很详细的。

gvntw

QUOTE:

以下是引用yusansanman在2007-2-3 13:37:56的发言：

奇怪

公式是一样呀。怎么黄色的就显科目，绿色的就不显呢？

因为合并操作方法不同，认真看完整贴就会明白了。

gvntw

选定单元格区域，运行宏后，合并，所有单元格内容为选定的左上角单元格的内容：

Option Explicit

Sub MyMerge()
    Dim rg As Range
    Dim Mrg As Range
    Dim con, TempSh As Worksheet
    Dim strA As String
   
    Set Mrg = Selection
    con = Mrg.Cells(1, 1).Value '取选定区域左上角单元格的内容
    Mrg.Value = con
    strA = Mrg.Address
   
    Set TempSh = Sheets.Add     '添加一个临时工作表
    TempSh.Range(strA).Merge    '合并区域
    TempSh.Range(strA).Copy     '复制
    Mrg.PasteSpecial xlPasteFormats     '选择性粘贴格式
   
    Application.DisplayAlerts = False
    TempSh.Delete           '删除临时工作表
    Application.DisplayAlerts = True
End Sub

gvntw

呵呵，可以按F4方便了不少。

可以在代码中增加

Application.ScreenUpdating = False

……

Application.ScreenUpdating = True

以取消屏幕闪烁，提升速度。

gvntw

11楼一意孤行写的就是呀。

gvntw

QUOTE:

以下是引用6665090在2007-12-28 20:57:33的发言：
请指点啊！！看来看去都找不出原因方法，帮帮我啊！

QUOTE:

以下是引用fffyuan在2008-1-29 16:36:18的发言：

还是没有太看明白楼主是怎么做的。

现在需要开始学函数了

详细看看动画，如果还看不懂，请看完所有回帖内容就明白了。

gvntw

QUOTE:

以下是引用modegirl在2008-2-14 17:14:57的发言：
10楼的问题我也想知道！

12楼不是回复了吗？

帖子看完可以了解更多，呵呵…