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

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

xjtudll10年前 (2014-09-01)技术心得4800


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

Protel99SE恢复隐藏的Part Type

Protel99SE恢复隐藏的Part Type

相信这个问题大家或多或少碰到过,在用Protel99SE设计原理图的时候,隐藏了元件的Part Type属性,后来想恢复,却发现没辙了。Protel99SE里面确实没有直接的方法来恢复隐藏的Part Type,只能是曲线救国了。呵呵。 1、Tools->Preferences->Def...

最流行网络英文潮语集合

btw(by the way):这个大多数人都会用,就是“顺便再说一句”的意思。g2g(got to go):要走了。原句是I've got to go。ttyl(talk to you later):下次再说。brb(be right back):很快回来。也就是I'll...

Android x86 4.4 RC2卡在跳过Wifi后面一步

Android x86 4.4 RC2卡在跳过Wifi后面一步

问题:Android x86 4.4 RC2卡在跳过Wifi后面一步,没法跳过,一直死循环。 无论怎么改都在这步了, 返回了也不知道从哪可以跳过。   解决办法: 一、在语言选择界面用鼠标在 左上-右上-右下-左下 四个角各点一遍 这个方法不知道是谁试出来的,这么扯蛋的办法都能想到。 二...

sqlserver查询数据的所有表名和行数

https://www.cnblogs.com/luxj/p/9227385.html //查询所有表名select name from sysobjects where xtype='u' select * from sys.tables //查询数据库中所有的表名及行数 SELECT a....

Android Studio删除Module

Android Studio删除Module

Android studio添加了一个module,结果添加错了,要删除才行,搞了半天不知道怎么弄。研究了很久,才搞清楚。 1 首先右键你要删除的Module。 2 我们往下看找到open module settings 3 弹出如图示的窗口 4 接着我们点击那个“-”...

堪称一绝的“IO口扫键”法

堪称一绝的“IO口扫键”法

在做项目(工程)的时候,我们经常要用到比较多的按键,而且IO资源紧张,于是我们就想方设法地在别的模块中节省IO口,好不容易挤出一两个IO口,却发现仍然不够用,实在没办法了就添加一个IC来扫键。一个IC虽然价格不高,但对于大批量生产而且产品利润低的厂家来说,这是一笔不菲的开支! 那,我们能不能想到比较...

发表评论

访客

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