18列为什么不行，IROW如何加上边框

hvail

Sub 最后一行合计14()
    Dim iRow
    iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 18列不行.rar (10.12 KB, 下载次数: 0)

2012-7-10 16:36 上传

点击文件名下载附件
最后一行合计
    With Cells(iRow, 1).Resize(, 19)

        .Font.Name = "宋体"
        .Font.FontStyle = "常规"
        .Font.Size = 9
       .Font.Underline = xlUnderlineStyleNone
    End With

    With Cells(iRow, 1)
        
        .Value = "合计"
        .Resize(, 4).Merge
        .HorizontalAlignment = xlCenter
    End With
  
    Cells(iRow, 5).Formula = "=SUM(e4:e" & iRow - 1 & ")"
    Cells(iRow, 6).Formula = "=SUM(F4:F" & iRow - 1 & ")"
    Cells(iRow, 6).NumberFormatLocal = "0.00"
    Cells(iRow, 7).Formula = "=SUM(G4:G" & iRow - 1 & ")"
    Cells(iRow, 8).Formula = "=SUM(H4:H" & iRow - 1 & ")"
    Cells(iRow, 8).NumberFormatLocal = "0.00"
    Cells(iRow, 9).Formula = "=SUM(i4:i" & iRow - 1 & ")"
    Cells(iRow, 10).Formula = "=SUM(j4:j" & iRow - 1 & ")"
    Cells(iRow, 10).NumberFormatLocal = "0.00"
    Cells(iRow, 11).Formula = "=SUM(k4:k" & iRow - 1 & ")"
    Cells(iRow, 12).Formula = "=SUM(l4:l" & iRow - 1 & ")"
    Cells(iRow, 12).NumberFormatLocal = "0.00"
    Cells(iRow, 13).Formula = "=SUM(m4:m" & iRow - 1 & ")"
    Cells(iRow, 14).Formula = "=SUM(n4:n" & iRow - 1 & ")"
    Cells(iRow, 14).NumberFormatLocal = "0.00"
    Cells(iRow, 15).Formula = "=SUM(o4:o" & iRow - 1 & ")"
    Cells(iRow, 15).NumberFormatLocal = "0.00"
    Cells(iRow, 17).Formula = "=SUM(Q4:Q" & iRow - 1 & ")"
    Cells(iRow, 17).NumberFormatLocal = "0.00"
    Cells(iRow, 18).Formula = "=o" & (iRow - Q) & iRow & "/n" & iRow
    Cells(iRow, 18).NumberFormatLocal = "0.00%"
   
End Sub