求助一组代码，功能是检查工作簿里面每一张工作表的大小（占用容量），在一张空表输出

lxmspm

ykcbf1100 发表于 2024-9-10 11:11
不很精确，仅供参考。。。

能不能在sub里嵌套个循环

saghj

lxmspm

ykcbf1100 发表于 2024-9-10 11:11
不很精确，仅供参考。。。

还有输出保留2位小数，十分感谢

ykcbf1100

lxmspm 发表于 2024-9-10 13:57
能不能历遍当前工作簿里的所有工作表，在其中一张空表（比如sheet1）里在每个单元格里输出，按行输出

你都没附件还套个循环。

z865593849

思路给你吧

lxmspm

ykcbf1100 发表于 2024-9-10 14:12
你都没附件还套个循环。

Sub 工作表大小()    '//不太精确,供供参考
    Dim ws As Worksheet, tRow%
    Dim sizeInKB As Double
   
    For Each ws In ThisWorkbook.Worksheets
      Set ws = ThisWorkbook.Sheets(ws.Name) ' 替换为你想要检查的工作表名
      sizeInKB = GetUsedSheetSizeInKB(ws)
        tRow = tRow + 1
       Sheet16.Range("a" & tRow) = sizeInKB  ' sheet16为输出表，可修改为其他输出表
           
    Next
   
End Sub

lxmspm

ykcbf1100 发表于 2024-9-10 14:12
你都没附件还套个循环。

你看下，这样就可以了

ykcbf1100

lxmspm 发表于 2024-9-10 15:37
你看下，这样就可以了

能用就行。。。