查看: 7553|回复: 6
[已解决]如何把sheet1的内容复制到sheet2中去
这个代码怎么写呢？
windimi007发布于
具体复制到sheet2的什么位置呢？如果是A1单元格，可以使用下面的代码：
Sub test()
& & Sheet1.UsedRange.Copy Sheet2.Cells(1, 1)
End Sub复制代码
&&&本楼为最佳答案&&&
具体复制到sheet2的什么位置呢？如果是A1单元格，可以使用下面的代码：
Sub test()
& & Sheet1.UsedRange.Copy Sheet2.Cells(1, 1)
End Sub复制代码
是这样哦，如果楼主的问得越具体，才越好回答。
有附件，利于快速解决问题
windimi007 发表于
具体复制到sheet2的什么位置呢？如果是A1单元格，可以使用下面的代码：
谢谢啦…………………………
Select 发表于
是这样哦，如果楼主的问得越具体，才越好回答。
有附件，利于快速解决问题
好的，下次一定说具体
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
windimi007 发表于
具体复制到sheet2的什么位置呢？如果是A1单元格，可以使用下面的代码：
如果把我未完成的备注改写成完成它就自动跳转所有内容到完成里，未完成里面就自动删除已完成内容；未完成写入欠数就所有内容跳转到异常里未完成里显示欠数的就自动删除。
23:56 上传
点击文件名下载附件
2.4 KB, 下载次数: 14
Powered by> 如何用Vba实现从sheet2中读取一列的数据到sheet1的下拉框如题，一个excel里有she
如何用Vba实现从sheet2中读取一列的数据到sheet1的下拉框如题，一个excel里有she
xieyl804855 & &
发布时间： & &
浏览：1 & &
回复：1 & &
悬赏：0.0希赛币
如何用Vba实现从sheet2中读取一列的数据到sheet1的下拉框如题，一个excel里有sheet1和sheet2两个工作薄，sheet2中有A列，数据为'a','b','c';sheet1中有A1列，是下拉框，下拉框的选项应该从sheet2的A列中选择，即有三个下拉选项'a','b','c'请问如何实现，谢谢
可以手动实现 1. 菜单：插入-&名称-&定义-&数据为'a','b','c'选中 2. 菜单：数据-&有效性-&允许：序列-&定义名称 &可以代码实现 &Sheets(&Sheet2&).Select
ActiveWorkbook.Names.Add Name:=&a&, RefersToR1C1:=&=Sheet2!R13C5:R25C5&
Sheets(&Sheet1&).Select
Range(&A1&).Select
With Selection.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=&=a&
End Withxieyoujin & &
14:52:25 & &
& & （0）（1）
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&使用VBA读取指定Excel文件指定Sheet指定单元格的内容
打开一个Excel文件，选择菜单栏上的"Tools"选项-&Macro-&Visual
Basic Editor，打开VBA编辑器。
在Modules文件夹下的csMain文件中，写下如下VB格式的代码：
Public&Sub&Source做成()&&
'声明Excel相关&&
&&&&Dim&xlApp&As&Excel.Application&&
&&&&Dim&xlBook&As&Excel.Workbook&&
&&&&Set&xlApp&=&New&Excel.Application&&
'获取指定excel文件&&
&&&&Set&xlBook&=&xlApp.Workbooks.Open("C:\test.xls")&&
&&&&Dim&sheet&As&Excel.Worksheet&&
'获取指定sheet&&
&&&&Set&sheet&=&xlBook.Worksheets(2)&&
&&&&Dim&ss&As&String&&
'获取指定单元格的内容&&
&&&&ss&=&sheet.Cells(2,&2)&&
'内容显示&&
&&&&MsgBox&(ss)&&
测试效果：弹出一个信息框，显示的内容是C盘下test.xls文件的第2个sheet的（2，2）单元格中的内容
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。查看: 1561|回复: 3
请问如何将一个工作簿中的sheet1内容复制到另一个工作簿的sheet2
阅读权限20
在线时间 小时
请问如何将A工作簿中的sheet1内容复制到B工作簿的sheet2，A工作簿名称固定，B工作簿名称随机
阅读权限20
在线时间 小时
举例说明~~~~
阅读权限20
在线时间 小时
问题不明，或上传附件，或把问题交待明白。
阅读权限20
在线时间 小时
应该和我要的差不多
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}