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

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

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


按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://www.xjtudll.cn/Exp/324/

标签: Office
分享给朋友:

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

C#里面如何判断一个Object是否是某种类型

第一种方法 var isA = oldObject.GetType() == typeof(Dictionary<string, string>) 第二种方法 var isB = oldObject.GetType().FullName.IndexOf("Dictionary&...

android warning : Cursor finalized without prior close()

参考资料: http://stackoverflow.com/questions/22355246/cursor-finalized-without-prior-close-warning-what-does-it-mean 问题: LogCat提示:Cursor finalized with...

C#让TextBox滚动条一直位于最下部

TextChanged事件 滚动条自动处于TextBox最下部需要在Form1类中加上下段代码:   private void txtReceiveMsgChanged(object sender, EventArgs e) {     //...

Protel99SE输出BOM材料清单

Protel99SE输出BOM材料清单

Protel99SE有两种方法可以输出BOM材料清单。一种是在原理图里,利用Reports->Bill of Material输出BOM;一种是在PCB里利用CAM Manager输出BOM。 1、原理图输出BOM 在原理图界面,Reports->Bill of Material,然...

网址后面多了一串字符串?jdfwkey

最近一段时间,每天第一次打开自己网站的时候,网址后面老会自动加一串字符串?jdfwkey,很奇怪,而且看起来就跟广告页面网址一样。发现这个问题后,立马联系了客服,客服说是打开了硬件防火墙,防DDOS攻击的。网上搜索了一遍,发现好多人出现过这种情况,大家的意见是:1、影响网站收录。2、来源于搜索引擎的...

Android:default activity not found

Android:default activity not found

Android:default activity not found 顾名思义,没有默认的activity 一般是AndroidManifest.xml里少了几句话,如图所示: 注意红色框框中的区域...

发表评论

访客

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