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

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

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


按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中数据行转列,多行转一列” 的相关文章

IAR STM8 #pragma optimize 指令

IAR STM8 #pragma optimize 指令

参考资料:http://blog.csdn.net/niepangu/article/details/38066319 #pragma optimize= none  //one of none, low, medium, high, size, or speed放在被优化函数前 ...

MySQL导入sql文件错误ERROR 1044 : Access denied for user ‘root’@'localhost’ to database ‘information_schema’

MySQL导入sql文件错误ERROR 1044 : Access denied for user ‘root’@'localhost’ to database ‘information_schema’

参考资料: http://www.linuxidc.com/Linux/2014-03/97586.htm http://stackoverflow.com/questions/4824986/error-1044-access-denied-for-user-rootlocalhost-to-da...

RDLC报表:不同的页眉

RDLC报表:不同的页眉

问题描述: RDLC报表,需要首页页眉和后面的页面页眉不同 解决办法: 利用Hidden属性和内置字段PageNumber。适当隐藏某些元素。 则可实现不同的页眉。 例如:某个元素仅第一页显示 参考资料: https://forums.asp.net/t/2031340.aspx?having+...

运放和比较器的区别及比较器技术参数

1、运放和比较器区别 (1)放大器与比较器的主要区别是闭环特性 放大器大都工作在闭环状态,所以要求闭环后不能自激。而比较器大都工作在开环状态更追求速度。对于频率比较低的情况放大器完全可以代替比较器(要注意输出电平),而比较器大部分情况不能当作放大器使用。 因为比较器为了提高速度进行优化,这种优化却减...

android bluetoothGatt  :onClientRegistered() - status=133 clientIf=0

android bluetoothGatt :onClientRegistered() - status=133 clientIf=0

参考资料: http://stackoverflow.com/questions/25330938/android-bluetoothgatt-status-133-register-callback http://stackoverflow.com/questions/28894111/andro...

WinClone更新了

WinClone,Mac下备份Windows系统的好软件。可以克隆BootCamp分区安装的Windows,也可以将克隆文件安装到BootCamp分区。 之前已经写过一篇WinClone备份还原Windows的简易教程:http://xjtudll.cn/Exp/171/ 基本上来说,使用还是较简单...

发表评论

访客

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