[已解决]帮我看下这句代码哪有问题。不能正常运行。

跑跑2014

  .Cells(.Cells(i, "n"), .Cells(i, "t")).Borders(xlInsideVertical).LineStyle = xlNone '去掉竖线
多谢。

最佳答案

月排行榜 / 总排行榜

810126769

2014-4-13 08:28

跑跑2014 发表于 2014-4-13 00:23
Dim i As Long
    For i = 2 To .Cells(Rows.Count, "Y").End(xlUp).Row
        If InStr(.Cells( ...

.Cells(.Cells(i, "n"), .Cells(i, "t")).Borders.LineStyle = xlNone
'           .Cells(.Cells(i, "n"), .Cells(i, "t")).Borders(xlInsideVertical).LineStyle = xlNone '去掉竖线


改为这样试试：
.range(.Cells(i, "n"), .Cells(i, "t")).Borders.LineStyle = xlNone
'           .range(.Cells(i, "n"), .Cells(i, "t")).Borders(xlInsideVertical).LineStyle = xlNone '去掉竖线

跳转到最佳答案楼层

hwc2ycy

.Cells(.Cells(i, "n"), .Cells(i, "t")).Borders.LineStyle = xlNone '去掉竖线
直接全去掉吧。

跑跑2014

hwc2ycy 发表于 2014-4-13 00:17
.Cells(.Cells(i, "n"), .Cells(i, "t")).Borders.LineStyle = xlNone '去掉竖线
直接全去掉吧。

Dim i As Long
    For i = 2 To .Cells(Rows.Count, "Y").End(xlUp).Row
        If InStr(.Cells(i, "Y"), "汇总") > 0 Then
            .Cells(i, "Y").Cut .Cells(i, "D")
           .Cells(i, "n").Value = "在租数量：" & .Cells(i - 1, "n").Value
           .Cells(.Cells(i, "n"), .Cells(i, "t")).Borders.LineStyle = xlNone
'           .Cells(.Cells(i, "n"), .Cells(i, "t")).Borders(xlInsideVertical).LineStyle = xlNone '去掉竖线
           
        End If
    Next i
'
End With
代码运行到这句就报错，您写的那句也是，如何改 呢

hwc2ycy

跑跑2014 发表于 2014-4-13 00:23
Dim i As Long
    For i = 2 To .Cells(Rows.Count, "Y").End(xlUp).Row
        If InStr(.Cells( ...

传附件。

810126769

跑跑2014 发表于 2014-4-13 00:23
Dim i As Long
    For i = 2 To .Cells(Rows.Count, "Y").End(xlUp).Row
        If InStr(.Cells( ...

.Cells(.Cells(i, "n"), .Cells(i, "t")).Borders.LineStyle = xlNone
'           .Cells(.Cells(i, "n"), .Cells(i, "t")).Borders(xlInsideVertical).LineStyle = xlNone '去掉竖线


改为这样试试：
.range(.Cells(i, "n"), .Cells(i, "t")).Borders.LineStyle = xlNone
'           .range(.Cells(i, "n"), .Cells(i, "t")).Borders(xlInsideVertical).LineStyle = xlNone '去掉竖线

跑跑2014

810126769 发表于 2014-4-13 08:28
.Cells(.Cells(i, "n"), .Cells(i, "t")).Borders.LineStyle = xlNone
'           .Cells(.Cells(i, " ...

谢谢你帮我找出毛病所在。我记得可以用 那种方法写，为什么不对呢。

810126769

跑跑2014 发表于 2014-4-13 20:56
谢谢你帮我找出毛病所在。我记得可以用 那种方法写，为什么不对呢。

cells只能表示某一个单元格，不能用来表示一个单元格区域。
只有range既可以表示一个单元格，也可以表示单元格区域。

跑跑2014

810126769 发表于 2014-4-13 20:59
cells只能表示某一个单元格，不能用来表示一个单元格区域。
只有range既可以表示一个单元格，也可以表示 ...

谢谢……这下明白了。