摘要:
Sub test()Dim str()Dim i As IntegerDim wb, wb1 As WorkbookDim sht As Worksheet On Error Resume Next '这一句上课时候没加,加上以后防止点了取消发生的错误Set wb1 = ActiveWorkbook 阅读全文
摘要:
Sub CollectData() Dim Sht As Worksheet, rng As Range, k&, n& Application.ScreenUpdating = False '取消屏幕更新 n = Val(InputBox("请输入标题的行数", "提醒")) If n < 0 T 阅读全文