EXCEL2007中如何实现相同内容单元格自动合并
1、打开EXCEL2007工作表
2、在工作表A列中输入一列数据
3、按下ALT+F11输入VBA代码如第五步。
4、插入表单控件并指定到宏的名称。
5、点击表单控件按钮,就可以按到输入的数据相同的内容被合并了并居中居左显示了。
6、Sub CombineSameCells()Dim irow As Long, i As LongApplication.DisplayAlerts = FalseWith Sheet2irow = Sheet2.Range("A65536").End(xlUp).RowFor i = irow To 2 Step -1If Sheet2.Cells(i, 1).Value = .Cells(i - 1, 1).Value ThenSheet2.Range(.Cells(i - 1, 1), .Cells(i, 1)).MergeSheet2.Range(.Cells(i - 1, 1), .Cells(i, 1)).HorizontalAlignment = xlLeftSheet2.Range(.Cells(i - 1, 1), .Cells(i, 1)).VerticalAlignment = xlCenterEnd IfNext iEnd WithApplication.DisplayAlerts = TrueEnd Sub代码的解释为:合并单元格命令,宏名称为合并单元格作用于SHEET2找到A列有内容的一个单元格并提取出行号判断如果下一行单元格内容和上一行单元格内容一样的话则进行合并合并的单元格内容居中居左显示结束命令
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:54
阅读量:53
阅读量:74
阅读量:47
阅读量:78