查看:1747|回复:10
工作薄汇总,如何在分表仅提取A2到D10区域的数值。第10行以下不提取。
29.05 KB, 下载次数: 23

相关搜索

你是要学习VBA呢?还是要实际解决问题,看不懂
aRow = AK.Sheets(i).Range("a65536").End(xlUp).Row
改为:
aRow = 10
Sub 按钮1_单击()
Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖动
myPath = ThisWorkbook.Path & "\分表\" '把文件路径定义给变量
myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件
Do While myFile