范围参数1004错误
我有另一个简单的语法问题,我不明白。 我想要更改列中的所有单元格,以便它们有一个底部边框,并有一个variables来找出昨晚的数据。
我的代码在下面,我相信错误是我如何定义最后一个单元格。
wsSheet.Range("F11:wsSheet.Cells(LastRowForSig, 6)").Borders(xlEdgeBottom).LineStyle = xlContinuous
尝试这个:
With wsSheet.Range("F11", wsSheet.Cells(LastRowForSig, 6)).Borders .value = 1 .item(xlEdgeLeft).LineStyle = xlNone .item(xlEdgeRight).LineStyle = xlNone .item(xlEdgeTop).LineStyle = xlNone End With
你应该接受E. Trauger的答案,但是这里有一个小小的变化
With wsSheet .Range("F11", .Cells(LastRowForSig, 6)).Borders(xlEdgeBottom).LineStyle = xlContinuous End With
试试下面的代码
Dim r1 as Range, r2 as Range Set r1 = wsSheet.Range("F11") Set r2 = wsSheet.Cells(LastRowForSig, 6) wsSheet.Range(r1 & ":" & r2).Borders(xlEdgeBottom).LineStyle = xlContinuous
请求后编辑。