先上代码，有时间再补上说明。

Dim Mefoucs As String

MsgBox "你选定的当前单元格是：" & Selection.Address

Mefoucs = Selection.Address

'ActiveCell.Column

    Range(Mefoucs).Select

    Selection.Copy

    Range("G17").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

      Range(Mefoucs).Select

最新文章

1. Centos下安装Redis
2. 无向图最小生成树（prim算法）
3. [moka同学笔记]百度编辑器Ueditor自动换行，添加<p>的问题（摘录）
4. linux笔记：linux常用命令-用户管理命令
5. 一个LINUX狂人的语录(个人认为很精辟)
6. 缓存之Redis
7. webSocket vnc rfb
8. 如何让U盘支持大于4G的文件
9. SQL Server 2008 查询所有用户表
10. 初探linux子系统集之i2c子系统(二)
11. vue webpack打包背景图片
12. HDU4686 Arc of Dream 矩阵
13. rhadoop linear regression 问题
14. 遇到问题无法在线上 debug，难道只能通过加日志再重新发布吗？ 线上遇到某个用户的数据处理有问题，但线上同样无法 debug，线下无法重现！ 是否有一个全局视角来查看系统的运行状况？ 有什么办法可以监控到JVM的实时运行状态？
15. .Net Mvc AutoMapper简单使用
16. inline-block的间距问题
17. Western Subregional of NEERC, Minsk, Wednesday, November 4, 2015 Problem A. A + B
18. 使用PyInstaller打包Python角本为exe程序
19. c++保存数据到TXT
20. Mime、base64编码

热门文章

1. 如何快速访问MSDN某一个类或方法的帮助文档
2. scala for循环
3. Elasticsearch 数据搜索篇
4. 华为P6-C00电信版，刷机总是失败？ FAIL
5. kCGImagePropertyExifDictionary 引用错误
6. javascript 内置类型
7. SQL Server 性能调优（方法论）【转】
8. js改变下拉框内容
9. oracle的常规操作（基本命令）
10. Linux-正则表达式的POSIX规范及流派