excelvba如何查询出每一个工作表内容的最后一行和最后一列位置？

louweiming5

如何查询出每一个工作表有内容的最后一行和最后一列位置？有些表内容可能是不连续的！如果不能编写出新代码，也可以把附件3的友码修改一下。谢谢

LIUZHU

UsedRange属性可以么？

louweiming5

LIUZHU 发表于 2024-6-25 08:44
UsedRange属性可以么？

可以呀，只要能查出就行。

dto8323

sheets("XXXX").usedrange.rows.count

tanglf188

    非空尾行：countrow = Sheet1.UsedRange.Cells(Sheet1.UsedRange.Rows.Count, 1).Row
    非空尾列：countcol = Sheet1.UsedRange.Cells(1, Sheet1.UsedRange.Columns.Count).Column
    非空尾单元格：Sheet1.Cells.Find("*”,SearchDirection:=2)
                            Sheet1.Columns("A:Z").Find("*”,SearchDirection:=2)
                            Sheet1.Cells.Find("*", , , , , 2)
                            Sheet1.Columns("A:Z").Find("*", , , , , 2)

louweiming5

dto8323 发表于 2024-6-25 09:07
sheets("XXXX").usedrange.rows.count

什么意思？大神能不能给做一个完整的示例表，谢谢

jjmysjg

每一个工作表有内容的最后一行和最后一列位置

louweiming5

jjmysjg 发表于 2024-6-25 09:31
每一个工作表有内容的最后一行和最后一列位置

是的，我需要知道：每一个工作表有内容的最后一行和最后一列位置。

limonet

关键字：address

limonet

Sub limonet()
    Dim Arr As Variant, i%
    ReDim Arr(1 To Worksheets.Count - 1, 1 To 2)
    For i = 1 To Worksheets.Count - 1
        T$ = Split(Worksheets(i).UsedRange.Address(, 0), ":")(1)
        Arr(i, 1) = Split(T, "$")(1)
        Arr(i, 2) = Split(T, "$")(0)
    Next i
    Range("B2").Resize(i - 1, 2) = Arr
End Sub