实验二 VBA对象、属性和方法_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
实验二 VBA对象、属性和方法
阅读已结束，下载本文需要
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢如何将两个的Excel工作表合并在一个Excel中，就是合并成Sheet1，Sheet2_百度知道
如何将两个的Excel工作表合并在一个Excel中，就是合并成Sheet1，Sheet2
我有更好的答案
将两个excel合并在一个方法如下：先打开sheet1，将内容复制黏贴到sheet1添加一个页面，将第二页内存黏贴到sheet2，如图所示，按+号可添加多个页面：
采纳率：79%
如果原来的文件要保留就按住Ctrl键，同事拖动你所用合并的工作表标签到新的窗口的位置；如果不需要保留原文件，名称后会自动加（2），你不需要可以重名，就直接拖动工作表标签到新窗口的标签位置很多用户都会有这样的需求，以2003版本为例：在窗口菜单中，选择并排窗口（提前打开那两个要合并的Excel工作表再使用此功能，否则容易出错）。如果是复制的话
本回答被提问者采纳
如果两个的话直接复制黏贴就成若很多 用VBA了，很简单的，需要我发给你，
新建一个sheet然后全另一个excel表，复制，在粘贴到sheet
其他1条回答
为您推荐：
其他类似问题
excel工作表的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 3441|回复: 13
如何将某2列的数据引用到另外两个工作表的两列中去，其中一工作表含有合并单元格
阅读权限20
在线时间 小时
要求：表一为数据源，现要将A列的数据引用到表二、表三的A列，将B列的数据引用到表二的C列和表三的B列。而表三的A列和B列都是二合一的合并单元格。请高手帮编VBA，谢谢！& & & & & & & & & & & & & & & &
& & & & & & & & & & & & & & & &
& & & & & & & & & & & & & & & &
& & & & & & & & & & & & & & & &
& & & & & & & & & & & & & & & &
& & & & & & & & & & & & & & & &
09:03 上传
点击文件名下载附件
6.06 KB, 下载次数: 29
阅读权限30
在线时间 小时
& & & & & & & &
A6=表一！$A$6,& && &B6=表一!$B$6
选中A6下面所有合并单元格，输入=INDIRECT(&表一!$A&&COUNT(A$6:A7)+6)，ctrl enter
选中B6下面所有合并单元格，输入=INDIRECT(&表一!$B&&COUNT(A$6:A7)+6)&&ctrl enter
10:59 上传
点击文件名下载附件
5.42 KB, 下载次数: 40
阅读权限95
在线时间 小时
Sub test()
&&Dim r%, i%
&&Dim arr
&&With Worksheets(&表一&)
& & r = .Cells(.Rows.Count, 1).End(xlUp).Row
& & arr = .Range(&a6:b& & r)
&&End With
&&With Worksheets(&表二&)
& & For j = 1 To 2
& && &.Cells(6, j * 2 - 1).Resize(UBound(arr), 1) = Application.Index(arr, 0, j)
& & Next
&&End With
&&With Worksheets(&表三&)
& & r = 6
& & For i = 1 To UBound(arr)
& && &For j = 1 To 2
& && &&&.Cells(r, j) = arr(i, j)
& && &Next
& && &r = r + .Cells(r, 1).MergeArea.Count
& & Next
&&End With
End Sub
复制代码
阅读权限20
在线时间 小时
chxw68 发表于
先谢谢，试一下。
阅读权限95
在线时间 小时
参见附件。
11:21 上传
点击文件名下载附件
8.94 KB, 下载次数: 59
阅读权限20
在线时间 小时
chxw68 发表于
试用了，很好，非常谢谢！
阅读权限20
在线时间 小时
chxw68 发表于
chxw68 老师：有个问题，就是如果表三事先没有合并单元格，则引用过来的数据也只是一行显示一组数据，有什么方法自动合并单元格吗？
阅读权限95
在线时间 小时
<font color="#22213 发表于
chxw68 老师：有个问题，就是如果表三事先没有合并单元格，则引用过来的数据也只是一行显示一组数据，有什 ...
可以合并！你的意思是复制到表三，每行数据占两行单元格？
阅读权限20
在线时间 小时
chxw68 发表于
可以合并！你的意思是复制到表三，每行数据占两行单元格？
是的，就是原来的表格没有合并单元格，引用数据后，有数据的行都自动占上下两个单元格，因为后面的内容需要两行，我没有列出来而已。
阅读权限95
在线时间 小时
& & & & & & & &
Sub test()
&&Dim r%, i%
&&Dim arr
&&With Worksheets(&表一&)
& & r = .Cells(.Rows.Count, 1).End(xlUp).Row
& & arr = .Range(&a6:b& & r)
&&End With
&&With Worksheets(&表二&)
& & For j = 1 To 2
& && &.Cells(6, j * 2 - 1).Resize(UBound(arr), 1) = Application.Index(arr, 0, j)
& & Next
&&End With
&&With Worksheets(&表三&)
& & For i = 1 To UBound(arr)
& && &For j = 1 To 2
& && &&&.Cells(i * 2 + 4, j) = arr(i, j)
& && &&&.Cells(i * 2 + 4, j).Resize(2, 1).Merge
& && &Next
& & Next
&&End With
End Sub
复制代码
最新热点 /1
京东ExcelHome畅销系列图书大联展，满100元-30元现金，莫失良机！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师excel多个sheet数据合并到一个sheet中，vba代码问题_百度知道
excel多个sheet数据合并到一个sheet中，vba代码问题
在这2个sheet中，我最下面的小计和第一行的不需要，怎么用vba实现
Dim m As Integer
Dim n As Integer
Dim o As Integer
For m = 2 To 3
n = Sheets(m).[a65536].End(xlUp).Row
o = Sheets(1).[a65536].End(xlUp).Row
Sheets(m).Select
Range(&...
我有更好的答案
n = Sheets(m).[a65536].End(xlUp).Row为n = Sheets(m).[a65536].End(xlUp).Row-1
那如果我想把第一个sheet的第一行留下，后面sheet的第一行都删除该怎么写
&Sub&A()Dim&m,&N,&O&As&Integer[A1:Z65536].ClearContentsFor&m&=&2&To&3&&&N&=&Sheets(m).[a65536].End(xlUp).Row&-&1&&&O&=&Sheets(1).[a65536].End(xlUp).Row&&&Sheets(m).Select&&&If&m&=&2&Then&&&Range(&a1&,&&z&&&&N).Select&&&Selection.Copy&&&Sheets(1).Select&&&Range(&a1&).Select&&&ActiveSheet.Paste&&&Else&&&Range(&a2&,&&z&&&&N).Select&&&Selection.Copy&&&Sheets(1).Select&&&Range(&a&&&&O&+&1).Select&&&ActiveSheet.Paste&&&End&IfNextEnd&Sub
最后一个问题 单独把最后一行 合并怎么实现
没明白你的意思，请说详细点。
就是说 我如果想只要最后一行 小计那行的数据 合并到新sheet，怎么改。
就是说 我如果想只要最后一行 小计那行的数据 合并到新sheet，怎么改。
&&Sub&A()Dim&m,&N,&O,&O1&As&Integer[A1:Z65536].ClearContentsSheets.Add&AFTER:=Sheets(Worksheets.Count)ActiveSheet.Name&=&&TJ&For&m&=&2&To&3&&&N&=&Sheets(m).[a65536].End(xlUp).Row&-&1&&&O&=&Sheets(1).[a65536].End(xlUp).Row&&&O1&=&Sheets(&TJ&).[a65536].End(3).Row&+&1&&&Sheets(m).Select&&&If&m&=&2&Then&&&Range(&a1&,&&z&&&&N).Select&&&Selection.Copy&&&Sheets(1).Select&&&Range(&a1&).Select&&&ActiveSheet.Paste&&&&Sheets(m).Select&&&Range(&a&&&&N&+&1,&&Z&&&&N&+&1).Select&&&Selection.Copy&&&Sheets(&TJ&).Select&&&Range(&a1&).Select&&&Selection.PasteSpecial&Paste:=xlPasteValues&&&Else&&&Range(&a2&,&&z&&&&N).Select&&&Selection.Copy&&&Sheets(1).Select&&&Range(&a&&&&O&+&1).Select&&&ActiveSheet.Paste&&&Sheets(m).Select&&&Range(&a&&&&N&+&1,&&Z&&&&N&+&1).Select&&&Selection.Copy&&&Sheets(&TJ&).Select&&&Range(&a&&&&O1).Select&&&Selection.PasteSpecial&Paste:=xlPasteValues&&&End&IfNextEnd&Sub
为您推荐：
其他类似问题
excel的相关知识
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 2914|回复: 5
合并2个单元格后 ，单元格字体颜色怎么保留
阅读权限20
在线时间 小时
　　　　　　　　　　你好　么　　　　　　　　　　　　　　　　我现在用宏合并 B列D列 ；那么B列里面的红色字符你能否保留，现在我执行宏后 “好”字的红色没有了。请朋友们帮忙。
　file:///C:/DOCUME~1/DIO/LOCALS~1/Temp/msohtml1/01/clip_image002.gif　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
23:08 上传
点击文件名下载附件
6.54 KB, 下载次数: 16
阅读权限20
在线时间 小时
有人帮助我么？
阅读权限95
在线时间 小时
示例太少，仅是第二个字符为红色吗？规律是什么
阅读权限20
在线时间 小时
doitbest 发表于
示例太少，仅是第二个字符为红色吗？规律是什么
一个单元格不一定几个字符，只是有的字符是红色的；就保留原来是什么颜色就是什么颜色的。
阅读权限95
在线时间 小时
可以做，有点麻烦。
先记录每位字符是什么颜色的，合并后再设置什么颜色。
你用录制宏，改某位字符颜色，取得相应代码。
阅读权限95
在线时间 小时
可以把红字的起始位置和长度放在数组中，合并后再调用数组加颜色
最新热点 /1
京东ExcelHome畅销系列图书大联展，满100元-30元现金，莫失良机！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}