EXCEL VBA 小问题 谢谢!

来源:百度知道 编辑:UC知道 时间:2024/05/20 12:10:44
Application.StatusBar = "正在导入 [" & File2 & "]" & Sh(i, 1) & " 数据"
With ActiveWorkbook.Sheets("sheet1")
nl = .UsedRange.Columns.Count
nR1 = .Range("B11").End(xlDown).Row - 10
temp = .Range("a11").Resize(nR1, nl)
End With

谁能帮我解释一下 谢谢!!!

Application.StatusBar 右下状态栏显示进度 说明
With ActiveWorkbook.Sheets("sheet1") 当前工作簿 工作表sheet1
nl = .UsedRange.Columns.Count 显区列计数值
nR1 = .Range("B11").End(xlDown).Row - 10 B11起列最后一格-10
temp = .Range("a11").Resize(nR1, nl) 重定大小
End With