当前位置:首页 > 技术心得 > 正文内容

excel中数据行转列,多行转一列

xjtudll12年前 (2014-09-01)技术心得9050


按ALT+F11调出VBA窗口,插入一个模块,把下面代码复制进去。

Sub abcd()
For i = 1 To 5 
  '修改5,行的个数, 这里表示第0到5行(可以修改成你要的行数)
 
   s = WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 4)))   '修改4, 这里表示第0到3列(修改你要的列数)
 
   For j = 1 To s
 
       x = x + 1
 
       Cells(x, 11) = Cells(i, j)  '11表示你在第几列显示转换后的数据
 
   Next
 
  
 x = x + 1 '如果不要空行, 可以去掉(因为我要的数据是连续性的,要考到TXT文档中,所以,我是要去掉的。)
Next
End Sub

 

扫描二维码推送至手机访问。

版权声明:本文由鸟的天空发布,如需转载请注明出处。

本文链接:http://xjtudll.cn/Exp/324/

标签: Office
分享给朋友:

“excel中数据行转列,多行转一列” 的相关文章

LCD制作参数

1 、Display Type显示类型 TN 、HTN 、STN 、FSTN 等 显示类型对产品的价格影响最大,通常由显示像索的数量及产品的档次而定 TN 、HTN 、LCD 、COG 是什么? TN叫什么扭曲型LCD , HTN是比TN 宽视角的,上下各宽15度视角的,弥补TN 的一些不足,比他们...

UltraEdit复制粘贴十六进制(二进制)

UltraEdit复制粘贴十六进制(二进制)

问题: 用UltraEdit打开文件,看其十六进制,需要将十六进制数据复制出来并粘贴到记事本。但是直接复制(或Ctrl+C),无法粘贴到记事本。 原因: 复制到剪贴板的是二进制码流,而不是文本,所以无法贴到只能处理文本的记事本里。 解决办法: 选中要复制的区域,右键--->【十六进制复制所选视...

检测NSWindow关闭

You can declare your custom class to conform to NSWindowDelegate protocol. Set an instance of your custom class to be the delegate of your wind...

dell服务器阵列中硬盘的状态变成外来(foreign)的解决方法

Dell服务器硬盘的状态变成外来(foreign),然后机房就重新导入一下就可以了: dell服务器移除RAID5中1块硬盘后再插上去,硬盘的状态变成外来(foreign),如何恢复成就绪的状态? 重启服务器,注意引导信息提示 RAID控制器 相关信息时,会发现这样提示: Fo...

如何备份iOS4.2.1SHSH文件

如何备份iOS4.2.1SHSH文件

本教程指导大家如何备份iOS4.2.1的SHSH文件,使用工具为TinyUmbrella4.21.02,支持全系列的iPhone4,iPhone3GS,iPhone3G,iPod Touch4G,iPod Touch3G,iPod Touch2G和iPad。 没有越狱的用户或者还没有升级iOS4....

Qt打包发布程序

Qt打包发布程序

Qt发布程序有两种方式,静态编译和动态编译。静态编译操作繁琐,东拉西扯要N长时间,所以我选择的是动态发布,动态发布有个缺点,就是要附加多个dll文件,传输极为不便,如果能搞成单文件就比较爽了。 本文就是讲述如何将多个文件打包成一个exe文件。 当然,你首先要将Qt编译设置成Release模式,将Re...

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。