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

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

零售创新

 
 
 

日志

 
 
关于我

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

网易考拉推荐

VBA将“二维表”转换成“一维表”  

2012-04-09 15:20:18|  分类: VB和VBA知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
VBA将“二维表”转换成“一维表” - 豆豆 - 学习SPSS,EXCEL各种统计软件

 VBA将“二维表”转换成“一维表”

使用前准备

1、清空Sheet2表,准备放置转置后的数据(或另准备空工作表,将代码中的“Sheet2”替换为空表名称)

2、原数据表为Sheet1表(或将代码中的“Sheet1”替换为原数据表名称)

3、打开Sheet1原数据表,选中要转换的数据区域(第一格可以不为A1,但要包括行标题和列标题),按Alt + F11 ,进入Sheet1表的代码编辑页面,将下面的代码贴入,鼠标点在代码中间位置,按 F5 运行代码

4、打开Sheet2查看效果

Private Sub abc()
Dim rr As Integer, ll As Integer, r0 As Integer, l0 As Integer, r2 As Integer
rr = Selection.Rows.Count
ll = Selection.Columns.Count
r0 = Selection.Row
l0 = Selection.Column
r2 = 1
MsgBox "选定区域" & Chr(10) & Chr(10) & "行数:" & rr & Chr(10) & "列数:" & ll & Chr(10) & "列标题在第 " & r0 & " 行:" & Chr(10) & "行标题在第 " & Chr(64 + l0) & "列"
Worksheets("sheet2").Activate
For l = l0 + 1 To l0 + ll - 1
    For r = r0 + 1 To r0 + rr - 1
    Worksheets("sheet2").Cells(r2, 1) = Worksheets("sheet1").Cells(r0, l)
    Worksheets("sheet2").Cells(r2, 2) = Worksheets("sheet1").Cells(r, l0)
    Worksheets("sheet2").Cells(r2, 3) = Worksheets("sheet1").Cells(r, l)
    r2 = r2 + 1
Next r, l
End Sub
 

  评论这张
 
阅读(1023)| 评论(0)
推荐 转载

历史上的今天

评论

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

页脚

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