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

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

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


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

两个路由器连接设置

两个路由器连接在一起,有两种方式,为表述方便,以A、B代替路由器名称 一、A路由器当路由器用,B路由器当交换机用 组网方式:A的LAN口接B的任意一个LAN口,A和B的其余LAN口接PC,两台路由器最多可供6台PC上网。 A路由器的设置方式就不说了,重点是要开启DHCP,且要设置自动分配的IP范围...

sharepoint 安装Office Web Applications 报错

sharepoint 安装Office Web Applications 报错,如下: 未能从程序集“Microsoft.Office.Excel.Server.MossHost, Version=14.0.0.0, Culture=neutral, PublicKeyToken=...

Windows10 安装软件时提示 the error code is 2503/2502 错误解决办法

Windows10 安装软件时提示 the error code is 2503/2502 错误解决办法

问题内容:Windows10 安装软件时提示“ the error code is 2503/2502”错误代码分析原因:由于安装.msi格式的软件时,无法使用管理员身份运行,导致权限不够,从而引起2503/2502代码的错误解决方法:设置 C:\WINDOWS\TEMP的权限1、依次打开“ 我的电...

Allegro测量距离如何同时显示mil和mm双单位

Allegro测量距离如何同时显示mil和mm双单位

点击Setup菜单→User Preferences...(用户参数设置) 打开下面的对话框,选择Display→Element(元素)→show measure_altunits(显示测量所有档位)选项卡选择millimeters。 然后测量后显示的距离效果如下图所示...

无线网络连接受限

   今天换了个房间,于是原来的网线不够长了,想到Dlink DI-624路由器是无线的,那我就用无线上网的方式,这样就不用跑去买网线了。   说干就干,路由器设置还是非常简单的,无非就是选择连接方式,SSID,然后加密方式,设置密码,保存...

Proteus运行找不到sdf文件解决方法

Proteus运行找不到sdf文件解决方法

很多人在用Proteus的时候,Proteus会提示找不到sdf文件,如图所示。提示Cannot open …… .sdf。这种情况经常出现在电子类软件,主要是软件仿真过程中使用的文件不能在有中文路径的文件夹里。用Mulitism的时候也会出现这个问题的。这个原因很简单,...

发表评论

访客

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