摘要:
Dim arr() '定义arr数组 Dim wb As Workbook '定义wb工作簿 LBound(arr)/UBound(arr) '数组起始/结束 下标 Application.DisplayAlerts = False '关闭提示 伴随打开提示 on error resume next 阅读全文
摘要:
Sub demo1()'声明工作表Dim st As Worksheet'For Each ... EndFor Each st In Sheets i = i + 1 If st.Name <> "部门" Then Sheets("部门").Range("A" & i) = st.Name End 阅读全文