2023年11月19日
vba程序中使用Like 加通配符（*？）
摘要： Sub 多表选择() Dim wks As Worksheet, shtCnt As Integer Dim arr() As Variant, i As Integer shtCnt = ThisWorkbook.Sheets.Count '取得工作表总数' ReDim arr(1 To shtC 阅读全文
posted @ 2023-11-19 18:50 paoPaoLong_liu 阅读(667) 评论(0) 推荐(0)
选择工作簿中所有工作表中的A1:D10
摘要： Sub Sheet3_按钮1_Click() choice2 End Sub Sub choice2() ThisWorkbook.Sheets.Select '组合工作表' ActiveSheet.[A1:D10].Select '选择区域' End Sub ThisWorkbook 工作簿 Th 阅读全文
posted @ 2023-11-19 17:53 paoPaoLong_liu 阅读(30) 评论(0) 推荐(0)
获取非当前工作表名称并选择其中B2:B11区域
摘要： 获取非当前工作表名称并选择其中B2: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 阅读全文
posted @ 2023-11-19 17:45 paoPaoLong_liu 阅读(27) 评论(0) 推荐(0)