合并单元格 Sub MergeCells() MsgBox "合并单元格A2:C2,并将文本设为居中对齐" Range("A2:C2").Select With Selection .MergeCells = True .HorizontalAlignment = xlCenter End With
Application.DisplayAlerts 属性 如果宏运行时 Microsoft Excel 显示特定的警告和消息，则该属性值为 True。Boolean 类型，可读写。 语法 表达式.DisplayAlerts 表达式 一个代表 Application 对象的变量。 说明 默认值为 True。如果不想在宏运行时被无穷无尽的提示和警
需求： 根据列合并； 同一列中相邻内容一致的合并成一个单元格， 以变美观 分析： 在需要合并的sheet中， 加入一个按钮， 点击此按钮 出现提示框， 让用户自己输入需要合并的列； 列名可以为数字或字母； 如输入1， 代表第一列； 输入A， 也代表第一列 自动判断所有的行数； 进行循环遍历； 将此列内容相同的相邻2列或几列， 合并单元格 难点: 合并单元格总出现提示
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号
