注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

网易考拉推荐

七天转置程序  

2013-04-21 14:51:08|  分类: VB和VBA知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
七天转置程序 - 和平 - 零售创新,创新那些事,SPSS,VBA
 
 

Sub 七天()
'
' Macro1 Macro
'

'
    Range("B8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("C1").Select
    ActiveSheet.Paste
    Range("C8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("D1").Select
    ActiveSheet.Paste
    Range("D8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("E1").Select
    ActiveSheet.Paste
    Range("E8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("F1").Select
    ActiveSheet.Paste
    Range("F8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("G1").Select
    ActiveSheet.Paste
    Range("G8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-30
    Range("H1").Select
    ActiveSheet.Paste
    Range("H8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("I1").Select
    ActiveSheet.Paste
    Range("I8").Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveWindow.SmallScroll Down:=-36
    Range("I8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("J1").Select
    ActiveSheet.Paste
    Range("J8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("K1").Select
    ActiveSheet.Paste
    Range("K8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("L1").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=7
    Range("L8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("M1").Select
    ActiveSheet.Paste
    Range("M8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("N1").Select
    ActiveSheet.Paste
    Range("N8").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("N8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("O1").Select
    ActiveSheet.Paste
    Range("O8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("P1").Select
    ActiveSheet.Paste
    Range("P8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("Q1").Select
    ActiveSheet.Paste
    Range("Q8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("R1").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=4
    Range("R8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-48
    Range("S1").Select
    ActiveSheet.Paste
    Range("S8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("T1").Select
    ActiveSheet.Paste
    Range("T8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("U1").Select
    ActiveSheet.Paste
    Range("U8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-12
    Range("V1").Select
    ActiveSheet.Paste
    Range("V8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("W1").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=6
    Range("W8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("X1").Select
    ActiveSheet.Paste
    Range("X8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-12
    Range("Y1").Select
    ActiveSheet.Paste
    Range("Y8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("Z1").Select
    ActiveSheet.Paste
    Range("Z8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-60
    Range("AA1").Select
    ActiveSheet.Paste
    Range("AA8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("AB1").Select
    ActiveSheet.Paste
    Range("AB8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-12
    Range("AC1").Select
    ActiveSheet.Paste
    Range("AC8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll ToRight:=3
    Range("AD1").Select
    ActiveWindow.SmallScroll Down:=-12
    ActiveSheet.Paste
    Range("AD8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("AE1").Select
    ActiveSheet.Paste
    Range("AE8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("AF1").Select
    ActiveSheet.Paste
    Range("AF8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("AG1").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=4
    Range("AG8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("AH1").Select
    ActiveSheet.Paste
    Range("AH8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("AI1").Select
    ActiveSheet.Paste
    Range("AI8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-12
    Range("AJ1").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=4
    Range("AJ8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("AK1").Select
    ActiveSheet.Paste
    Range("AK8:AK35").Select
    ActiveWindow.SmallScroll Down:=-24
    Range("AK8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("AL1").Select
    ActiveSheet.Paste
    Range("AL8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("AM1").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=5
    Range("AM8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-30
    Range("AN1").Select
    ActiveSheet.Paste
    Range("AN8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("AO1").Select
    ActiveSheet.Paste
    Range("AO8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("AP1").Select
    ActiveSheet.Paste
    Range("AP8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("AQ1").Select
    ActiveSheet.Paste
    Range("AQ8").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-174
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-30
    Range("AR1").Select
    ActiveSheet.Paste
    Range("AR8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-30
    Range("AS1").Select
    ActiveSheet.Paste
    Range("AS8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll ToRight:=6
    Range("AT1").Select
    ActiveSheet.Paste
    Range("AT8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("AU1").Select
    ActiveSheet.Paste
    Range("AU8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("AV1").Select
    ActiveSheet.Paste
    Range("AV8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("AW1").Select
    ActiveSheet.Paste
    Range("AW8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("AX1").Select
    ActiveSheet.Paste
    Range("AX8:AX34").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("AY1").Select
    ActiveSheet.Paste
    Range("AY8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("AZ1").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=6
    Range("AZ8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("BA1").Select
    ActiveSheet.Paste
    Range("BA8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-12
    Range("BB1").Select
    ActiveSheet.Paste
    Range("BB8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("BC1").Select
    ActiveSheet.Paste
    Range("BC8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-12
    Range("BD1").Select
    ActiveSheet.Paste
    Range("BD8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("BE1").Select
    ActiveSheet.Paste
    Range("BE8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("BF1").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=8
    Range("BF8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("BG1").Select
    ActiveSheet.Paste
    Range("BG8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("BH1").Select
    ActiveSheet.Paste
    Range("BH8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("BI1").Select
    ActiveSheet.Paste
    Range("BI8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-12
    Range("BJ1").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-6
    Range("BJ8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-12
    Range("BK1").Select
    ActiveSheet.Paste
    Range("BK8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-12
    Range("BL1").Select
    ActiveSheet.Paste
    Range("BL8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-18
    Range("BM1").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=4
    Range("BM8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-24
    Range("BN1").Select
    ActiveSheet.Paste
    Range("BN8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Range("BO1").Select
    ActiveSheet.Paste
    Range("BO8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Range("BP1").Select
    ActiveSheet.Paste
End Sub
  评论这张
 
阅读(684)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017