利用VBA实现一键导入另一个表格的数据，为我们免去复制粘贴的步骤，让你的工作更加高效；在多表统计分析的时候优势更为突出
工具/原料
Excel
方法/步骤
1、实现代码：Sub导入数据()DimwbAsWorkbo艺皱麾酪ok,ArrFilePath=Application.Get晦倘佳鳎OpenFilename("Excelfiels,(*.xlsm;*.xlsx;*.xls)*.xlsm;*.xlsx;*.xls")IfFilePath<>FalseThenTemp=FilePathElseExitSubEndIfSetwb=GetObject(Temp)Withwb.Sheets("导出资源").UsedRangeArr=.ValueEndWithSheet2.[B:AB]=""Sheet2.[B1].Resize(UBound(Arr,1),UBound(Arr,2))=Arrwb.CloseMsgBox"另一个表格的数据导入成功！",vbOKOnly,"数据部"EndSub
2、导入对象：如图1所示为要导入的另外一个表格，发现它的sheet1命名为“导出资源”与代码Withwb.Sheets("导出资源").UsedRange是一致的，这两者必须相同
3、导入位置：图1是我们的操作界面，利用按钮可实现一键导入；图闸拊福律2中的Sheet2.[B:AB]是我们醐肛们亲要存放的位置，Sheet2.[B:AB]=""是进行导入前清空原来的数据；Sheet2.[B1]相当于我们粘贴时的起始单元格Sheet2.[B:AB]=""Sheet2.[B1].Resize(UBound(Arr,1),UBound(Arr,2))=Arr
4、自学渠道：推荐“我要自学网”，适合0基础的朋友进行系统性学习，重点是它是免费的！！！