ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 Office 365免费试用,报名现在开始! 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 打造核心竞争力的职场宝典 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 151|回复: 6

[求助] 请问COPY当前选中单元格所在行的宏怎么写呢?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-6-14 22:12 | 显示全部楼层 |阅读模式
比如点击E1单元格,我按下快捷键,就复制当前选中单元格所在行E:Q的数据,但复制需要用文本的方式,下面的代码是之前朋友帮我写的,COPY出来是文本

  1. Public Sub 文本剪贴板()
  2. '在alt+F8宏设置ctrl+e做为快捷键,选中区域时,按下ctrl+e即完成文本复制
  3. '结果以行列式文本存入剪贴板,列之间用空格分隔
  4. '或打开本工作表 在其他表中使用ctrl+e 也可以达到文本复制的效果
  5.     Dim tt, a, i&, j&
  6.     On Error Resume Next
  7.     a = Selection.Value
  8.     For i = 1 To UBound(a)
  9.         For j = 1 To UBound(a, 2)
  10.             tt = tt & " " & a(i, j) '列之间用空格分隔
  11.         Next
  12.         tt = tt & vbNewLine '换行
  13.     Next
  14.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '数据放入剪贴板
  15.             .SetText tt
  16.             .PutInClipboard
  17.    End With
  18. End Sub
复制代码


TA的精华主题

TA的得分主题

发表于 2018-6-15 08:21 | 显示全部楼层
  1.     Dim tt, a, i&, j&
  2.     On Error Resume Next

  3.     i = ActiveCell.Row
  4.         For j = 5 To 17
  5.             tt = tt & " " & Cells(i, j) '列之间用空格分隔
  6.         Next
  7.         tt = tt & vbNewLine '换行

  8.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '数据放入剪贴板
  9.             .SetText tt
  10.             .PutInClipboard
  11.    End With
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-24 15:06 | 显示全部楼层

高手啊哥们,完美实现!
但有个问题,这个就不能复制当前行17列后其他内容了,能否加个限制条件:仅在鼠标选中E:Q(5:17)列区域时执行你这个代码,如果选中后面其他位置,还是执行之前的剪贴板代码?

TA的精华主题

TA的得分主题

发表于 2018-6-24 15:43 | 显示全部楼层
o0star0o 发表于 2018-6-24 15:06
高手啊哥们,完美实现!
但有个问题,这个就不能复制当前行17列后其他内容了,能否加个限制条件:仅在鼠 ...

Sub jimin()
Dim tt, a, i&, j&
    On Error Resume Next
    k = ActiveCell.Column
    If k < 5 Or k > 17 Then
        Exit Sub
    End If
    i = ActiveCell.Row
        For j = 5 To 17
            tt = tt & " " & Cells(i, j) '列之间用空格分隔
        Next
        tt = tt & vbNewLine '换行

    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '数据放入剪贴板
            .SetText tt
            .PutInClipboard
   End With

End Sub

个人感觉这种做法,坏处多于好处。。。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-24 18:28 | 显示全部楼层
jiminyanyan 发表于 2018-6-24 15:43
Sub jimin()
Dim tt, a, i&, j&
    On Error Resume Next

哥们你这个是5-17行呢?我是横排选中的这一个行的5-17列

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-27 23:01 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-1 23:38 | 显示全部楼层

哥们,一直在等您回复

有个问题,这个就不能复制当前行17列后其他内容了,能否加个限制条件:仅在鼠标选中E:Q(5:17)列区域时执行你这个代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2018-8-21 16:13 , Processed in 0.063288 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表