• 江苏创意农业蓬勃发展 去年揽金430多亿元 2018-06-25
  • 海南高院工作报告获高票通过 2018-06-25
  • 万华化学与万华化工签重组协议 整体上市更进一步 2018-06-24
  • “吃鸡”神器?小米高配置游戏手机跑分图爆光 2018-06-24
  • 宁波慈溪滨海经济开发区 招商引智“再提速” 2018-06-24
  • ń莉眔呼も村︽獵奠い瓣祇︽舦 2018-06-24
  • 武器解析丨《红海行动》中的特战利器大盘点 2018-06-24
  • 中国为短缺药品供应保障开药方 “对症下药”是关键 2018-06-23
  • 组图:王珞丹蕾丝白裙V领显性感 遭化妆师“动手动脚”谈笑风生 2018-06-23
  • 皇台酒业已停止向经销商铺货 2018-06-23
  • 肇庆四会市:对14个派驻机构开展集中考核 2018-06-23
  • 未来京津冀航空发展什么样?将打造“世界级机场群” 2018-06-23
  • 牛奶越浓越好吗?警惕十种错误的喝奶方式 2018-06-22
  • 新 世 纪 娱 乐 博 彩 资 讯 2018-06-22
  • 常新港《尼克代表我》 成长的光亮即爱与倾听 2018-06-22
  • Excel2007单元格或者整列左移右移一列实现宏代码(自写)

    时间:2013-09-08   作者:snow   来源:互联网

    如果因某需求需要将某个单元格向左移或右移动一列,那么该怎么操作呢?实现此功能的方法可谓是举不胜举,有简单的也有复杂的。使用来使用去感觉还是宏来的比较快速一点。正所谓好东西不敢独享,接下来与大家一同学习下并附上本人的经验宏代码,方便各位在以后使用时直接执行就行了。如果你也有此需求,那可不要错过本文了。

    具体操作步骤

    ①单击菜单栏--视图--宏--查看宏。

    宏

    ②弹出宏的界面,输入宏的名称,这里为了便于记忆,我们命名为向左移动一列,然后点击创建按钮。

    创建宏

    ③在新出现的界面中,输入代码,也就是程序语言,我已经写好了,大家直接复制即可。

    Application.ScreenUpdating = False
    x = Selection.Column
    If x >= 1 Then
    Columns(x).Cut
    Columns(x - 1).Insert
    Application.ScreenUpdating = True
    End If

    向左移动一列

    ④退出编辑状态,选中单元格或者整列,执行宏即可。下面我把向右移动一列的代码也给大家。

    Application.ScreenUpdating = False
    x = Selection.Column
    If x < 256 Then
    Columns(x).Cut
    Columns(x + 2).Insert
    End If
    Application.ScreenUpdating = True

    向右移动一列

    相关文章
    发表评论