B11

1 Sub Sheet3_按钮1_Click() 2 Dim sh As Worksheet, n%, i%, arr, s 3 n = ThisWorkbook.Sheets.Count '取得工作表总数' 4 ReDim arr(1 To n) '声明变量' 5 For Each sh In T ......