查看: 8953|回复: 17
[已解决]【求助】关于不连续单元格的复制粘贴
本帖最后由 gwlyxn 于
09:45 编辑
关于不连续单元格的复制粘贴
数据比较多
入这个功能不能实现的话
就太繁琐了
具体见附件
(2.21 KB, 下载次数: 52)
09:05 上传
点击文件名下载附件
我找到了一下代码
但是总是出错
哪位高手帮着看看
一、代码一
Sub 我要粘贴()
Application.ScreenUpdating = False
s = Selection.Count
ReDim arr(s - 1)
For Each Rng In Selection
arr(i) = Rng.Address
Range(&xfd1&).PasteSpecial (xlPasteAll)
For i = 0 To s - 1
Range(&xfd1&).Offset(i, 0).Cut
Range(arr(i)).Select
ActiveSheet.Paste
Application.ScreenUpdating = True
& & 上述代码功能：复制源区域支持单列中的连续或非连续单元格，粘贴目标区域支持单列或多列连续或非连续单元格。
& & 二、代码二
Sub 我也要粘贴()
Set MyData = New DataObject
Application.ScreenUpdating = False
MyData.GetFromClipboard
arr = Split(MyData.GetText(1), Chr(13) + Chr(10))
For Each Rng In Selection
Rng.Value = arr(i)
Set MyData = Nothing
Application.ScreenUpdating = True
& & 上述代码功能：仅包含单元格数值，复制源区域支持单列中的连续或非连续单元格，粘贴目标区域支持单列或多列连续或非连续单元格。
& & 三、上述两种宏代码使用方法
复制的时候按照系统正常的操作方法，选中单元格区域（同列中），按&Ctrl+C&复制或用菜单操作复制。然后选定需要粘贴的目标单元格区域，可以是非连续的区域，再使用快捷键（&Ctrl+Shift+V&包含公式，&Ctrl+Shift+N&仅数值）调用宏程序即可粘贴
zjcat35发布于
这是你要的结果么
利用选择性粘帖→勾选“跳过空单元”就可以实现了，具体请见动画。
跳过空单元.gif (173.62 KB, 下载次数: 7)
09:11 上传
复制D2:D20，单击C2——右键——选择性粘贴——跳过空单元格——确定
&&&本楼为最佳答案&&&
这是你要的结果么
(67.13 KB, 下载次数: 12)
09:14 上传
右侧左移.gif (103.56 KB, 下载次数: 6)
09:14 上传
这个方法够经典！！！！！！！
好方法，学习了！
这样会很累的
数据量比较大
数据量大不是也是一步搞定吗？&
这样会不会对才c列后的数据排列有影响呢
难道D列后面还有数据？
利用删除的方法肯定会对D列后面的数据有影响的，macky591是就题解题。
这个表中还有其他数据
所以要求筛选（比如空白 非空白 等）所选的不连续单元格进行复制粘贴操作
有没有人救我啊
|||Excel精英培训
Powered by分时图如何定义不同时间段最高价
理想小四级同学
还需要 300 积分才能升级
分时图如何定义不同时间段最高价
浏览：5882
欢迎光临理想论坛，由于您没有登录，所以无法查看到论坛的附件及隐藏分区，也无法与其他会员交流。
还没有理想论坛的帐号？
通达信如何在当日分时图不同时间段，定义当前时间段最高价或者画线？见附图说明
时间： 16:43
积分400&理想币16 个&彩币5 个&共享币25 个&注册时间&
理想高二级同学
还需要 2444 积分才能升级
9:30-10:00的最高价和最低价画线
(289.53 KB)
时间： 17:25
积分17556&理想币9660 个&彩币1 个&共享币804 个&注册时间&
理想大一级同学(菠菜四段)
还需要 1310 积分才能升级
引用:原帖由
16:43 发表
通达信如何在当日分时图不同时间段，定义当前时间段最高价或者画线？见附图说明
6475744&&&&{通达信如何在当日分时图不同时间段，定义当前时间段最高价或者画线}
CONST(HHV(BETWEEN(TIME,)*H,0)),DOTLINE;
(43.68 KB)
时间： 09:56
[ 本帖最后由 运七 于
09:56 编辑 ]
积分38690&理想币11636 个&彩币10101 个&共享币10447 个&注册时间&
理想小四级同学
还需要 300 积分才能升级
回复 3楼 @运七
你太牛了，我找了很多帖子，都是只能显示9:30-10:00，你的技术棒棒的，股票一定也是涨涨的！
积分400&理想币16 个&彩币5 个&共享币25 个&注册时间&
理想小四级同学
还需要 300 积分才能升级
回复 2楼 @理想判官
谢谢你的热心解答，谢谢。
积分400&理想币16 个&彩币5 个&共享币25 个&注册时间&
理想小四级同学
还需要 300 积分才能升级
回复 3楼 @运七
您好，能不能只在所要的时间段内画线，不画从左到右整条线？
积分400&理想币16 个&彩币5 个&共享币25 个&注册时间&
理想大一级同学(菠菜四段)
还需要 1310 积分才能升级
引用:原帖由
17:19 发表
运七 您好，能不能只在所要的时间段内画线，不画从左到右整条线？&&&&{只在所要的时间段内画线}
QJ:=BETWEEN(TIME,);
IF(QJ,CONST(HHV(QJ*H,0)),DRAWNULL),DOTLINE;
积分38690&理想币11636 个&彩币10101 个&共享币10447 个&注册时间&
理想小四级同学
还需要 300 积分才能升级
回复 7楼 @运七
谢谢你，也祝福你，好人有好报，热心有回报。
积分400&理想币16 个&彩币5 个&共享币25 个&注册时间&
理想小三级同学
还需要 151 积分才能升级
运七，你真牛人，我倒持几天，被你一句给拿下，实在是佩服你！
积分249&理想币23 个&彩币5 个&共享币69 个&注册时间&
理想小四级同学
还需要 78 积分才能升级
运七前辈，借着这个贴子想请您帮个忙，我想在通达信历史行情指标排序中，按当天十点30分的价格进行排序。请您给编下公式，万分感谢！
积分622&理想币5 个&彩币0 个&共享币147 个&注册时间&
理想小三级同学
还需要 151 积分才能升级
回复 2楼 @理想判官
请问你这个是怎么实现的，为什么我画最低价的时候不是呢？
理想俱乐部企鹅查找
积分249&理想币23 个&彩币5 个&共享币69 个&注册时间&
快速回复主题
禁用 URL 识别
使用个人签名
接收新回复邮件通知
发帖请务遵守本站的相关规则，所有发表(包括转发)政治、色情非法信息者本站将实时提供发贴者个人信息给公安局，追究责任，特此申明！
具体规则请参见《》
您需要登录后才可以发帖
发表帖子[完成后可按 Ctrl+Enter 发布]
理想论坛上的网友发表的帖子纯属个人意见，理想论坛不负任何责任！广告赞助商内容与本站无关！
理想论坛值班电话[9:30～18:30]： &#6 5518-1 &#66 3090 ☎ 186 (广告)
工业和信息化部信息备案：评论该主题
作者：您目前是匿名发表 &
作者：，欢迎留言
提示：用户在社区发表的所有资料、言论等仅代表个人观点，与本网站立场无关，不对您构成任何投资建议。用户应基于自己的独立判断，自行决定证券投资并承担相应风险。评论该主题
作者：您目前是匿名发表 &
作者：，欢迎留言
提示：用户在社区发表的所有资料、言论等仅代表个人观点，与本网站立场无关，不对您构成任何投资建议。用户应基于自己的独立判断，自行决定证券投资并承担相应风险。}