如何在VBA中的for循环中索引excel工作表函数的参数？

Sub LoopThroughWorksheets()
    Dim ws As Worksheet
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Worksheets.Count
        Set ws = ThisWorkbook.Worksheets(i)
        
        ' 在这里使用ws来引用当前循环的工作表
        
        ' 示例：在A1单元格中输入当前工作表的名称
        ws.Range("A1").Value = ws.Name
        
        ' 示例：在B1单元格中输入当前工作表的行数
        ws.Range("B1").Value = ws.Rows.Count
        
        ' 示例：在C1单元格中输入当前工作表的列数
        ws.Range("C1").Value = ws.Columns.Count
        
        ' 示例：在D1单元格中输入当前工作表的第一个单元格的值
        ws.Range("D1").Value = ws.Cells(1, 1).Value
        
        ' 示例：在E1单元格中输入当前工作表的函数SUM(A1:A10)的结果
        ws.Range("E1").Value = Application.WorksheetFunction.Sum(ws.Range("A1:A10"))
        
        ' 示例：在F1单元格中输入当前工作表的函数COUNTIF(A1:A10, ">0")的结果
        ws.Range("F1").Value = Application.WorksheetFunction.CountIf(ws.Range("A1:A10"), ">0")
        
        ' 其他操作...
        
    Next i
End Sub