Excel非合并单元格中间设置成无线条

操作硬件：计算机

操作系统：Windows 7

办公软件：Excel 2010

选择B列已经合并的单元格区域。

向右拖动复制到I列。

选择C:I单元格区域，点击【开始】、【合并后区中】。

B列合并单元格同一行的C到I列单元格中间间隔已经设置成无线条。

点击【开发工具】、【Visual Basic】调出VBE编辑器。

点击【插入】、【模块】。

在模块代码框里边输入以下VBA程序代码，再按【F5】键运行程序。Sub Borders_Line()Dim i1, i2, i3, i4, i5, i6On Error Resume Next '忽略运行过程中可能出现错误Set MySheet1 = ThisWorkbook.Worksheets('Sheet1') '定义Sheet1i3 = 2 '从第2行开始 For i1 = 1 To 1000 '执行1000次  If MySheet1.Cells(i3, 1).MergeCells = True Then '如果是合并单元格，则   i2 = MySheet1.Cells(i3, 1).MergeArea.Rows.Count '获取合并单元格数量    For i4 = 2 To i2  '执行 合并单元格数量-1次     For i6 = 3 To 9  '从第3列到第9列       MySheet1.Cells(i3 + i4 - 2, i6).Borders(xlEdgeBottom).LineStyle = xlNone    '单元格底部设置成无线   Next  Next Else  i2 = 1 End Ifi3 = i3 + i2Next End Sub

回到Sheet1工作表界面，将会看到C~I列单元格中间间隔已经设置成无线条。

操作界面及功能可能因操作系统、软件版本、软件设置不同而存在差异。

两种方法均可以实现想要的效果，哪种方便选哪种。