Question

我有另一个简单的语法问题，我无法理解。我想要更改列中的所有单元格，以便它们具有底部边框并且有一个变量来计算最后一晚的数据。

我的代码在下面，我相信错误是我尝试定义最后一个单元格的方式。

wsSheet.Range("F11:wsSheet.Cells(LastRowForSig, 6)").Borders(xlEdgeBottom).LineStyle = xlContinuous

Answer 1

你应该接受E. Trauger的答案，但这里有一点点变化

With wsSheet
    .Range("F11", .Cells(LastRowForSig, 6)).Borders(xlEdgeBottom).LineStyle = xlContinuous
End With

Answer 2

请尝试以下代码

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

请求后编辑。

Answer 3

试试这个：

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

范围参数的1004错误

3 个答案: