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

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

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


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

MSP430如何得知程序代码的大小

MSP430如何得知程序代码的大小

用过Keil编译C51程序的兄弟们都知道,Keil在编译程序之后,会有一段message提示用户程序占用的RAM和ROM。而用IAR编译MSP430程序的时候,却没有任何关于程序大小的信息。一直以来,我都以为IAR无此功能,后来才发现是编译器设置的问题,编译器配置如下: Tools->Opt...

mysql服务无法启动 服务没有报告任何错误

mysql服务无法启动 服务没有报告任何错误

参考资料: http://bbs.csdn.net/topics/391851148 问题描述: 使用net start mysql启动MySQL服务时,提示:MySQL服务无法启动,服务没有报告任何错误。如下图所示: 可能原因: data目录里已经有数据里,所以有冲突。 解决办法: 1、删...

IOS Autolayout ScrollView无法滚动的解决办法

参考资料: http://www.cocoachina.com/bbs/read.php?tid=175749 问题: 设定autolayout之后,发现scrollview无法滚动了,导致无法查看所有的内容。在viewDidLoad里重新设定scrollview的contentSize,还是不行。...

sql server 2008提示“列名无效”,但是能正常查询

在SQLServer2008中,当设计(修改)表结构之后,再用SQL语句时,列名会显示无效,但执行可以通过.原因是SQL Server的intellisense(智能感知功能)需要重新整理一下,用快捷键Ctrl+Shift+R即可 归根结底是智能提示出了问题,用了缓存。...

布丁软件引起的桌面闪烁

问题描述: 进入桌面后,屏幕闪烁。 查找到系统日志: 错误应用程序名称: explorer.exe,版本: 6.3.9600.18231,时间戳: 0x56b8c9f1 错误模块名称: PDZipMenu64.dll,版本: 1.4.3.11014,时间戳: 0x5da4349a 异常代码: 0xc...

SQL Server CLR常见错误

1.发布报错:执行 CREATE ASSEMBLY 时失败,因为该程序集是为公共语言用户时的不受支持的版本生成的 SQL SERVER 2008R2 不支持.net4.0, 需要把项目改成.net3.5 部署成功了 2.执行sql报错:禁止在 .NET Framework 中执行用户代码。启用...

发表评论

访客

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