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

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/464518.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

关于我曾经做过的一个商业社区的ui框架

1.主页面default2.容器,中间页面process载入模板3.模板:BasePage4,BasePageprotected override void Render(System.Web.UI.HtmlTextWriter writer) {writer.WriteLine("Header");base.Render(writer);writer.WriteLine("Header");}转载于:https://www.cnb…

毕业十年|我的嵌入式AI学习路线(笔记、代码)

嵌入式从业者接下来会有怎样的黄金十年?在物联网和人工智能的促进下,嵌入式在未来的5-10年内会迎来更多的发展机会,一方面嵌入式开发会迎来更多的应用场景,另一方面嵌入式开发的技术体系也会逐渐丰富,从而拓展物联网开…

DAL调用SP时出现的异常处理

三种情形: 1.执行SP时出错,如连接异常,数据库权限异常 2.SP代码中抛出异常 3.返回值/输出参数的值不符合约定 后两种情形需要在异常发生时记录传入SP的参数值;业务逻辑层需要捕获并重抛,以保证UI层提供给用户友好的错误…

在艰苦年代,买不起万用表,怎么测量电路电压?

如何测量电压?有这样一张图片:用舌头来测量?开玩笑的吧!不过这张照片勾起了我的回忆:有一位玩电子的老前辈,现在已经70多岁了。和他聊天,他说,当年他们玩电子,条件非常艰…

71道经典Android面试题,涵盖了所有android知识点,值得学习和思考

1. 下列哪些语句关于内存回收的说明是正确的? (b ) A、 程序员必须创建一个线程来释放内存 B、内存回收程序负责释放无用内存 C、内存回收程序允许程序员直接释放内存 D、内存回收程序可以在指定的时间释放内存对象 2. 下面异常是属于Runtime Excepti…

VBA学习_5:流程控制

1、If If Range("B2").Value >60 Then Range("C2").Value "及格" Else Range("C2").Value"不及格"如果。。。那么。。。。否则。。。。 If Range("B2").Value > 60 ThenRange("C2").Value "…

gis python 桌面,arc-utils-用于Esri ArcGIS桌面软件的Python实用程序-Grant Herbert

作者:Grant Herbert### 作者邮箱:gdherbertgmail.com### 首页:https://github.com/gdherbert/arc_utils### 文档:None### 下载链接 https://github.com/gdherbert/arc_utils/tree/0.6.8# README #What is this repository for?A collection of (mostly) arcpy related utiliti…

SQL SERVER7应用

交互式SQL(Transact SQL,TSQL)它是SQL Server的查询语言。提供以下命令: 创建和数据库对象。 访问和修改数据。 数据聚合(aggregation,又称聚集)。 实施安全措施。数据库对象 数据库对象是…

嵌入式的薪资还是挺低的

我最近和一个比较好的朋友聊天,我这个朋友在一家比较传统的公司,在这个公司做嵌入式软件开发,偏系统方向的。然后最近拿到了几个不错的offer,让我帮忙看看。这几个offer我就不发出来给大家看了。可以肯定的是,这几个of…

android数据存储_SharedPreferences的简单使用

SharedPreferences的写数据简单使用步骤如下: 第一步:获取SharedPreferences对象 第二步:获取SharedPreferences.Editor对象 第三步:通过此Editor对象来写入数据 第四步:通过此Editor对象来提交数据写入文件。 SharedP…

新手必看!单片机掉电检测与数据掉电保存方案

单片机在正常工作时,因某种原因造成突然掉电,将会丢失数据存储器(RAM)里的数据。在某些应用场合如测量、控制等领域,单片机正常工作中采集和运算出一些重要数据,待下次上电后需要恢复这些重要数据。因此&am…

Study Notes ASP.Net 之Theme Skin

基本概念&#xff1a; Theme 和 Skin用以定义页面中各个控件的显示样式&#xff0c;如字体大小&#xff0c;前/后景色等等。一个Theme可以包括多个Skin&#xff0c;一个Skin可以定义多个控件的样式。目的&#xff1a; 使得页面样式的制作可以与页面制作分工进行。<?xml:nam…

mui-下拉刷新

下拉刷新结束 mui官方文档中下拉刷新结束方法&#xff0c;不生效&#xff0c; 文档地址 mui(#refreshContainer).pullRefresh().endPulldown(); 可使用的下拉刷新结束方法 mui("#refreshContainer").pullRefresh().endPulldownToRefresh() mui自带的触发下拉刷新的方…

rip,ospf,eigrp内部网关协议的区别与用法

1.路由信息协议&#xff08;RIP&#xff09;是一种在网关与主机之间交换路由选择信息的标准。RIP 是一种内部网关协议。在国家性网络中如当前的因特网&#xff0c;拥有很多用于整个网络的路由选择协议。作为形成网络的每一个自治系统&#xff0c;都有属于自己的路由选择技术&am…

php项目index页面空白,如何解决vue项目打包后打开页面空白的问题

这篇文章主要介绍了vue项目打包后打开空白解决办法&#xff0c;内容挺不错的&#xff0c;现在分享给大家&#xff0c;也给大家做个参考。网上很多说自己的VUE项目通过Webpack打包生成的list文件&#xff0c;放到HBulider打包后&#xff0c;通过手机打开一片空白。这个主要原因是…

推荐一个值得加入C++开发者俱乐部

之前我有篇文章提起过&#xff0c;开始进入某厂是从0开始做项目的&#xff0c;当时看到那套SDK软件&#xff0c;而且97%都是用C写的&#xff0c;我的头都大了。后面也是坚持不断的学习&#xff0c;积累&#xff0c;修改&#xff0c;向身边同事请教&#xff0c;加入优秀社群学习…

DataGrid 完全攻略之四 (实现统计)

前台代码&#xff1a;html<% Page language"c#" Codebehind"UserCount.aspx.cs" AutoEventWireup"false" Inherits"MsDataGrid.UserCount" %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >…

Window系统下安装Redis

下载Redis Redis官网只提供Linux版本&#xff0c;Windows版本只能去GitHub上下载 Redis官网下载地址&#xff1a;http://redis.io/download GitHub下载地址&#xff1a;https://github.com/MSOpenTech/redis/tags 安装Redis 创建redis文件夹&#xff0c;解压到此目录下&#xf…

iTunes“解决方案”发展历程及研究(上)

以下内容来自于我的《iTunes内容解决方案研究》的PPT&#xff0c;懒得往上敲字了&#xff0c;直接以图片的形式发布&#xff0c;有需要的&#xff0c;我可以提供pdf版本给你&#xff0c;版权所有

java原生方法,Java Servlet原生调用方法过程简化

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼初学java web之后&#xff0c;了解了jsp跟Servlet交互的过程。具体过程如下&#xff1a;创建一个servlet&#xff0c;并重写doPost和doGer方法在MXL文件中配置servlet的接收请求的路径在jsp中请求该路径在servlet中写一个方法&…