0
這是添加頂部邊框。如果單元格不爲空,則添加頂部邊框
Sub getBorders()
Dim rngToChange As Range
Dim C As Range
Set rngToChange = ActiveSheet.Range("B6:C10")
For Each C In rngToChange
If C <> "" Then
C.Borders(xlEdgeTop).LineStyle = (xlContinuous)
C.Borders.Weight = xlThin
C.Borders.ColorIndex = xlAutomatic
Else
C.Borders(xlEdgeTop).LineStyle = xlNone
End If
Next
End Sub
但是,在最後一行中,下邊框被刪除。如何修改循環?
你的起始狀況如何?據我所知,它不會觸及第10行的底部邊界。因此,如果首先出現邊界,它應該仍然在那裏。或者你通過「刪除」實際上是否意味着「不添加」? – NiH
在開始的情況下底部邊框在那裏,但運行上面的代碼後,它消失了 –
,你正在使用完全相同的代碼和完全相同的設置爲您的圖片?因爲在我的機器上它工作得很好...... @Jordan的答案應該可行,但似乎沒有必要。 – NiH