excel拼接数据宏

将sheet2的A2 和 G2 加上 sheet5的A2和B2合一起生成新的sheet--就是将两个sheet的指定列前后拼接一起作为一个新的sheet

Sub addwork()

Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "临时合并数据"

Dim s, sht, shts
Dim arr, brr1, brr2, c%
Set shts = Sheets("临时合并数据")

shts.Cells.Clear

'拷贝列明
Sheets(5).Range("A1:B1").Copy shts.Range("A1:B1")

'获取第二个sheet的所有数据
    arr = ThisWorkbook.Sheets(2).UsedRange.Value
    '获取第二列和第七列的数据并转换成数组
    brr1 = Application.Transpose(Application.Index(arr, , 2))
    brr2 = Application.Transpose(Application.Index(arr, , 7))

'将获取的数组（第二列和第七列的数据）拷贝给目标sheet
    With shts
         .Cells(1, 1).Resize(UBound(brr1), 1) = Application.Transpose(brr1)'遍历brr1的数据到目标sheet的每一行的第一个单元格
         .Cells(1, 2).Resize(UBound(brr2), 1) = Application.Transpose(brr2)'遍历brr2的数据到目标sheet的每一行的第二个单元格
     End With

'获取第五个sheet的所有数据
    Set sht = Sheets(5)
    '拷贝A2:B2的数据到目标的sheet
    sht.Range("A2:B2" & sht.Columns(1).Find("*", , , , 1, 2).Row).Copy shts.Range("A" & (shts.Columns(1).Find("*", , , , 1, 2).Row + 1))

End Sub

转载于:https://www.cnblogs.com/onlymate/p/9870929.html

excel拼接数据宏相关推荐

Excel批量数据拼接转换为 insert 插入语句
Excel批量数据拼接转换为oracle insert 插入语句使用excel 公式实现: 使用最简单的,在要输入公式的单元格写上="",在双引号里面写入INSERT语句脚本,例 ...
pythonexcel汇总_用python汇总excel表格数据-怎样用python遍历表格中的内容
如何用python将数据写入excel表格 # 需 xlrd-0.9.2 xlutils-1.7.1 这两个模块 from xlwt import Workbook, Formula import ...
Excel VBA（宏）:添加宏
写在前面:1.编写宏,打开VBA,双击ThisWorkbook对当前工作薄进行编写宏:双击Sheet1,对整个sheet编写宏: 或者创建模块,在模块里,编写.调试代码. 打开VBA的方法见第一讲,结 ...
bootstraptable导出excel独立使用_使用 EasyPOI 优雅导出Excel模板数据（含图片）
EasyPOI功能如同名字Easy,主打的功能就是容易,让一个没接触过POI的人员可以方便的写出Excel导出,Excel模板导出,Excel导入,Word模板导出.通过简单的注解和模板语言(熟悉的表 ...
【Excel】使用宏处理重复操作示例 -- 录制分列操作
写在前面关于[Excel]批量处理,这里分享的是如下示例操作: 有相同格式的表单sheet,对表单作相同处理,比如:对每个表单中某列进行某种形式的分割(分列). 之前汇总的一些Excel使用中,有提 ...
使用EasyPOI导出Excel模板数据（含图片）
使用EasyPOI导出Excel模板数据(含图片) EasyPOI功能如同名字Easy,主打的功能就是容易,让一个没接触过POI的人员可以方便的写出Excel导出,Excel模板导出,Excel导入, ...
excel下拉列表数据筛选_从筛选的Excel列表中下拉
excel下拉列表数据筛选 Someone asked me how to make a data validation drop down that only shows the visible r ...
纯前端导入excel表格数据
安装插件 js-xlsx npm install xlsx --save js-xlsx 使用js-xlsx时,前端可以将后端返回的json数据拼接成自己需要导出的格式,下载到电脑中,完全不依赖后端. ...
计算机excel上机实训指导,上机实训指导手册——利用Excel进行数据分组和制作统计图表...
上机实训指导手册--利用Excel进行数据分组和制作统计图表 (15页) 本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便哦! 11.90 积分实训指导书课程名称 ...

excel拼接数据宏

excel拼接数据宏相关推荐

最新文章

热门文章