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

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

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


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

运放平衡电阻的作用

运放平衡电阻的作用

运放输入端所接电阻要平衡,目的是使集成运放两输入端的对地直流电阻相等,运放的偏置电流不会产生附加的失调电压。但有些电路对失调电压要求并不高,例如交流音频放大器。有些运放偏置电流很小,即使输入端电阻不平衡也不会对失调电压产生什么影响,这些电路就可以不要求输入端电阻平衡。 以反相放大器来说明平衡电阻的...

Quartus II 中管脚上拉电阻(弱上拉)的设置方法

Quartus II 中管脚上拉电阻(弱上拉)的设置方法

参考资料: http://blog.sina.com.cn/s/blog_706f04d20100oelx.html 由于系统需求,需要在管脚的内部加上上拉电阻,目的是为了有个固定的初始状态。 以Quartus II 11.0为例,具体过程如下: 1、在菜单Assignments 中选择Assig...

OKI单片机——ML610Q4XX Melody Driver

OKI单片机——ML610Q4XX Melody Driver

配置流程: (1) Select a buzzer mode by setting the BZMD bit of the melody 0 control register (MD0CON) to “1”. (MD0CON寄存器的BZMD位置一)。 (2) Select...

按键精灵手机助手无法连接到手机调试

现象: 按键精灵手机助手无法连接到手机调试 手机已打开开发者选项,已选择USB调试   解决办法: 打开手机上的按键精灵,此时手机助手连上了……...

C# MDI子窗体启动后没有最大化

C# MDI子窗体启动后没有最大化

目的: 子窗口启动显示后最大化,也就是填充了整个父窗体 但是发现一个问题: 如果在 Visual Studio 2005里通过属性工具栏设定了子窗体的 WindowState 为 Maximized,然后在运行过程中会发现子窗体实例化时不会最大化,而是当改变了父窗体的大小之后才随即最大化。而通过在子...

word文档无法打开插入文档里的RAR文件

问题: 办公室的电脑打不开插入word文档插入文档里的RAR文件,但在其他电脑上可以打开。打开时提示:此对象创建于Package中。此应用程序不能用来打开此对象。请确认此应用程序已正确安装,并且未被删除、移动或重命名。 请问该问题如何解决?谢谢! 答案: C:\WINDOWS\system32 目录...

发表评论

访客

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