使用VBA将sheet1指定列内容电脑复制剪切快捷键到sheet2指定列中，高分求

来源：蜘蛛抓取(WebSpider) 时间：2018-07-22 14:26 标签： 复制sheet
VBA实现表A中指定名字的列复制到另一个工作表中指定名字的列下方_百度知道
VBA实现表A中指定名字的列复制到另一个工作表中指定名字的列下方
如：AAA.xls工作表的sheet1中，有一列“姓名”列，BBB.xls工作表的sheet2中，有一列“NAME”列，如何用VBA编写程序，把“姓名”列下的内容，复制到“NAME“列下？...
如：AAA.xls工作表的sheet1中，有一列“姓名”列，BBB.xls工作表的sheet2中，有一列“NAME”列，如何用VBA编写程序，把“姓名”列下的内容，复制到“NAME“列下？
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
青水蛙鸣知道合伙人
采纳数：201
获赞数：347
假设代码在aaa.xls内，bbb。xls与aaa工作薄在同一个路径Sub&mycopy()Dim&arr,&brr,&c%Application.DisplayAlerts&=&Falsearr&=&ThisWorkbook.Sheets(&sheet1&).UsedRange.ValueFor&c&=&1&To&UBound(arr,&2)&&&&If&arr(1,&c)&=&&姓名&&Then&'这里假设姓名在表的第一行。。&&&&&&&brr&=&Application.Transpose(Application.Index(arr,&,&c))&&&&&&&Exit&For&&&&&End&IfNextWorkbooks.Open&Filename:=ThisWorkbook.Path&&&&\bbb.xls&&&&&&With&Sheets(&sheet2&)&&&&&&&&&&For&c&=&1&To&255&&&&&&&&&&&&&&If&.Cells(1,&c)&=&&NAME&&Then&&&&&&&&&&&&&&&&&Exit&For&&&&&&&&&&&&&&&End&If&&&&&&&&&&Next&&&&&&&&&&.Cells(1,&c).Resize(UBound(brr),&1)&=&Application.Transpose(brr)&&&&&&&&&&.cells(1,c)=&NAME&&&&&&&End&WithActiveWorkbook.Close&TrueApplication.DisplayAlerts&=&TrueEnd&Subend&sub
高手能不能解释下第7、18行的意思
brr = Application.Transpose(Application.Index(arr, , c))brr是个数组变量，arr是一个两维数组变量，结合到前面的意思就是，抽取arr数组中第c列（姓名列）的内容，转置一下，变成一维数组并赋值给brr第18行， .Cells(1, c).Resize(UBound(brr), 1) = Application.Transpose(brr)以cells(1,c)(即name）单元格为基准，选择一个1列，行数为数组brr中元素数的区域，其内容等于brr，因为brr其实是一个一维数组（一行）与我们赋值的区域不同，所以前面加transpose转置 下这些都是数组的入门知识，多看看就会了。
chaohua008知道合伙人
chaohua008
采纳数：3415
获赞数：10001
在AAA.xls工作簿的VBA中，插入一个“用户模块”，把下面代码粘贴进去Sub&复制()Sheets(&sheet1&).Select&'选择AAA.xls工作簿的sheet1表x&=&Range(&a65536&).End(xlUp).Row&'得到A列数据数量Range(&a2:a&&&&x).Copy&'复制Windows(&BBB.xls&).Activate&'激活BBB.xls工作簿Sheets(&sheet2&).Select&'选择BBB.xls工作簿的sheet2表Range(&a2&).SelectActiveSheet.Paste&'在目标位置数值End&Sub试试吧
马红权73知道合伙人
来自电脑网络类芝麻团
采纳数：110
获赞数：122
参与团队：
Sheets(&Sheet1&).SelectRange(&A2:A4&).Select
Selection.Copy
Sheets(&Sheet2&).Select
Range(&A2&).Select
ActiveSheet.Paste
请问代码里能不能包含“姓名”和“NAME”这种列的第一行名称？
range(&a2:a4&)就是单元格的范围，就看你的需要了，可以包含也可以不包含。
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。拒绝访问 | www.excelpx.com | 百度云加速
请打开cookies.
此网站 (www.excelpx.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(e83abe-ua98).
重新安装浏览器，或使用别的浏览器拒绝访问 | www.excelpx.com | 百度云加速
请打开cookies.
此网站 (www.excelpx.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(fb3abe-ua98).
重新安装浏览器，或使用别的浏览器VBA模糊查询sheet1,并将资料复制至sheet2_百度知道
VBA模糊查询sheet1,并将资料复制至sheet2
当点击表中的搜索按钮时，弹出可手动输入搜索内容的搜索框，采用模糊搜索的方式当输入的资料与&汇总&表中所列相符时，将资料所在的整行复制至Sheet2如:当输入&sd&进行模糊搜索，则可将...
当点击表中的搜索按钮时，弹出可手动输入搜索内容的搜索框，采用模糊搜索的方式当输入的资料与&汇总&表中所列相符时，将资料所在的整行复制至Sheet2如:当输入&sd&进行模糊搜索，则可将&汇总&中所有包含&sd&的数据行复制至sheet2
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
xuanxuan163com知道合伙人
xuanxuan163com
采纳数：1016
获赞数：2485
Sub&sousuo()&&&&Dim&r&As&Long&&&&Dim&c&As&Long&&&&Dim&str&As&String&&&&Dim&rng&As&Range&&&&str&=&InputBox(&输入搜索内容&)&&&&If&Len(str)&=&0&Then&Exit&Sub&&&&c&=&Sheets(&Sheet2&).Range(&A65536&).End(xlUp).Row&&&&Sheets(&汇总&).Activate&&&&For&r&=&1&To&[A65536].End(xlUp).Row&&&&&&&&Set&rng&=&Rows(r).Find(str,&LookIn:=xlValues,&LookAt:=xlPart)&&&&&&&&If&Not&rng&Is&Nothing&Then&&&&&&&&&&&&Rows(r).Copy&&&&&&&&&&&&c&=&c&+&1&&&&&&&&&&&&Worksheets(&Sheet2&).Range(&A&&&&c).PasteSpecial&_&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&Paste:=xlPasteAll,&Operation:=xlNone,&_&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&SkipBlanks:=False,&Transpose:=False&&&&&&&&End&If&&&&Next&&&&Application.CutCopyMode&=&FalseEnd&Sub
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。Excel，如何用vba把sheet1的a2的单元格内容赋值给sheet2的b2单元格呢？ 如果_百度知道
Excel，如何用vba把sheet1的a2的单元格内容赋值给sheet2的b2单元格呢？ 如果
Excel，如何用vba把sheet1的a2的单元格内容赋值给sheet2的b2单元格呢？如果是sheet1的a2:a4赋值给sheet2的b2:b4又如何写呢？...
Excel，如何用vba把sheet1的a2的单元格内容赋值给sheet2的b2单元格呢？如果是sheet1的a2:a4赋值给sheet2的b2:b4又如何写呢？
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
风起雪落2009知道合伙人
来自电脑网络类芝麻团
风起雪落2009
采纳数：671
获赞数：955
参与团队：
sheets(&sheet2&).Range(&B2&)=sheets(&sheet1&).Range(&A2&)
原来这么简单，谢谢！
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 复制sheet 的文章

 

随机推荐