|
楼主 |
发表于 2014-4-13 00:23
|
显示全部楼层
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
代码运行到这句就报错,您写的那句也是,如何改 呢
|
|