• “美丽中国”成优质板块 环保行业迎战略机遇 2018-08-20
  • 湖南长沙县:举办弘扬好家风诵读会————宣传工作——中央纪委监察部网站 2018-08-20
  • “雷锋精神”在龙江:“最美叔叔”谢尚威书写大爱传奇 2018-08-20
  • 追杀国民党升级 蔡英文喜不自胜"这一刻终于来了" 2018-08-19
  • 近4000款网游遭公安查处 代表委员呼吁分级势在必行 2018-08-19
  • 怒江傈僳族自治州发放中职教育农村学生生活补助近838万元 2018-08-19
  • 公共场所禁烟第一案今开庭 2018-08-18
  • 《妈妈咪鸭》创海外预售纪录 2018-08-18
  • 涉警无小事勿轻言放过 2018-08-18
  • “功夫仓鼠”恶斗 尘土飞扬似动作大片 2018-08-17
  • 自主品牌传祺GS4拿下J.D power五冠 2018-08-17
  • 将个性发挥到极致 实拍甲壳虫乐动橙版 2018-08-17
  • 青岛市委常委会召开扩大会议 2018-08-17
  • 爱尔兰艺术瑰宝《大河之舞》将在广州收官 2018-08-16
  • 渝中书记黄玉林:认真抓好安全稳定各项工作 2018-08-15
  • 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

    向右移动一列

    相关文章
    发表评论