大家好!我现在有个Excel表,每次只对这个xls文件进行操作,即在已有的内容后面增加内容。我的思路:判断从哪行开始是空白行,然后在此行插入内容。怎样实现才好呢??请赐教~谢谢了~

解决方案 »

  1.   

    Public Sub det()
    Dim r As Range
    n = ActiveSheet.UsedRange.Rows.Count
    Cells(1, 256).End(1).Select
    For i = 1 To n
      If Cells(i, 1) = "" And Cells(i, 256).End(1).Column = 1 And Not Cells(i, 1).MergeCells Then
        If r Is Nothing Then Set r = Rows(i) Else Set r = Union(r, Rows(i))
        m = m + 1
      End If
    Next
    If Not r Is Nothing Then r.Delete (3): MsgBox "删除行数:" & m
    End Sub
    这个是删除空白行的,有用吗
      

  2.   

    微软提供了COM组件,可以使用。打开文件,可以对每个单元格读写,关闭文件。也可以修改文件的样式(合并单元格,单元格宽度、高度或者颜色)
      

  3.   

    找到了答案,与大家分享一下:读取某表格实际使用的行数和列数 
          Worksheet sheet = ( Worksheet )book.Sheets[ "Sheet1" ];      int rowCount=sheet.UsedRange.Rows.Count;      int colCount = sheet.UsedRange.Columns.Count;