Question

我必须通过获取每张纸的最后一列来在多张纸中运行循环。如何获得每张纸的最后一栏？我试过把它作为一个功能。你能否就此事提出建议，因为我只是一个初学者。

更新：它的工作正常。试过@sktneer提供的代码。感谢大家的投入。

Answer 1

下面的代码将遍历工作簿中的所有工作表：

Dim oWS As Worksheet

For Each oWS In ThisWorkbook.Worksheets
    oWS.Name   ' Give you the sheet name
    oWS.Cells(1, oWS.Columns.count).End(xlToLeft).Column   ' Gives you total columns in a sheet
Next

Answer 2

您可以尝试这样的事情......

Sub LastColumnInEachSheet()
Dim ws As Worksheet
Dim lc As Long

For Each ws In ThisWorkbook.Sheets
    lc = ws.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    Debug.Print ws.Name, lc
Next ws
End Sub

查找函数中多个工作表的最后一列

2 个答案: