如何用VBA改变框线

0711求教.xlsx (24.6 KB)

2014-7-11 15:12:22 上传

这是那个文件

上面这个链接就是那个文件，希望大侠赐教
如何把上图的改成下图的?
就是根据左边“等级”列里的合并单元格的情况，右边第一列（如“储运配送站”）的对应的几个单元格，并不合并，但是去掉内部的横线，而只有外部框线。

多谢！

这样试试。

1. Sub MergeCell()
   
2.     For Each sht In Sheets
   
3.         With sht.Range("B3:B" & sht.Cells(Rows.Count, 2).End(3).Row)
   
4.             .Copy
   
5.             .Offset(0, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
   
6.                                        SkipBlanks:=False, Transpose:=False
   
7.             .Offset(0, 1).UnMerge
   
8.         End With
   
9.     Next
   
10. End Sub

复制代码

这不难吧