调整Excel边框，只调粗细（线型），隐藏线不允许变成实线，顶者有分

[xrongzhen]

如题。

现在又一个从Word中提取的表格，放入Excel。 但是Excel的线型比较宽，如果更改LineStyle的话，会导致隐藏线变成实线。 单个设置的话，不知道每个单元格的范围，因为有很复杂的合并单元格。

思路、代码都可以，多多益善。

[不会编程的财务不是老司机]

帮顶！

隐藏线是什么意思？

[倒大霉的上帝]

退而求其次，给你带合并单元格的所有Excel单元格获取方法：

Private Type ExcelRange
    begRow As Integer
    endRow As Integer
    begCol As Integer
    endCol As Integer
End Type

Sub Test()
    Dim r As Range
    Dim begRow As Integer
    Dim begCol As Integer
    Dim endRow As Integer
    Dim endCol As Integer
    Dim nPerRow As Integer
    Dim nRows As Integer
    Dim nCols As Integer
    Dim nPerRangeEndCol As Integer
    Dim myExcelRanges() As ExcelRange       '所有合并单元格集合
    Dim lastExcelRange As ExcelRange
    
    begRow = 1
    

   ReDim myExcelRanges(0)
    
    For Each r In ThisWorkbook.Sheets(1).UsedRange
        If lastExcelRange.endCol < r.Column Or r.Row > lastExcelRange.endRow Then
            If r.Row > lastExcelRange.endRow Then
                lastExcelRange.begCol = 0
            End If
            
            begRow = r.Row
            endRow = begRow + r.MergeArea.Rows.Count - 1
            begCol = r.Column
            endCol = begCol + r.MergeArea.Columns.Count - 1

            ReDim Preserve myExcelRanges(UBound(myExcelRanges) + 1)
            myExcelRanges(UBound(myExcelRanges)).begRow = begRow
            myExcelRanges(UBound(myExcelRanges)).endRow = endRow
            myExcelRanges(UBound(myExcelRanges)).begCol = begCol
            myExcelRanges(UBound(myExcelRanges)).endCol = endCol
            lastExcelRange = myExcelRanges(UBound(myExcelRanges))
        End If
    Next
    
End Sub

[lxq19851204]

[ACMAIN_CHM]

[getemail]

“顶者”来了！

[geniusflly]

你把要做的编辑成宏，然后分析宏代码，试试

[xrongzhen]

[Quote=引用 1 楼 choasrules 的回复:]
帮顶！

隐藏线是什么意思？
[/Quote]

隐藏线就是 线型无


此问题已解决，明天结贴，赶紧来拿分 呵呵

[jhone99]

是手工操作？还是代码操作？

[赵4老师]

开始记录宏，自动套用格式，结束记录宏，看对应宏的代码。

[xrongzhen]

[Quote=引用 8 楼 jhone99 的回复:]
是手工操作？还是代码操作？
[/Quote]

用宏 表太多，手工不现实啊