首页 > 教學 > excel vba > excel 取得工作表有資料的筆數及列數
2012
02-06

excel 取得工作表有資料的筆數及列數


Function findx(ByVal objsheet As Worksheet)
     x = 0
     Do While True
        kk = ""
        For l = 1 To 10
            For k = 1 To 10
                If IsError(objsheet.Cells(x + l, k)) = False Then
                    kk = kk & objsheet.Cells(x + l, k)
                End If
            Next
        Next
        If kk = "" Then Exit Do
        x = x + 1
    Loop
    findx = x
End Function
Function findy(ByVal objsheet As Worksheet)
    y = 0
    Do While True
        kk = ""
        For l = 1 To 10
            For k = 1 To 10
                If IsError(objsheet.Cells(k, y + l)) = False Then
                    kk = kk & objsheet.Cells(k, y + l)
                End If
            Next
        Next l
        If kk = "" Then Exit Do
        y = y + 1
    Loop
    findy = y
End Function

同步發表於:excel 取得工作表有資料的筆數及列數
最后编辑:
作者:明和 蔡
这个作者貌似有点懒,什么都没有留下。

留下一个回复

你的email不会被公开。