11 2023 档案
摘要：Sub 多表选择() Dim wks As Worksheet, shtCnt As Integer Dim arr() As Variant, i As Integer shtCnt = ThisWorkbook.Sheets.Count '取得工作表总数' ReDim arr(1 To shtC
阅读全文
摘要：Sub Sheet3_按钮1_Click() choice2 End Sub Sub choice2() ThisWorkbook.Sheets.Select '组合工作表' ActiveSheet.[A1:D10].Select '选择区域' End Sub ThisWorkbook 工作簿 Th
阅读全文
摘要：
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
阅读全文
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
阅读全文
