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

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

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


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

如何减小Multisim仿真文件大小

如何减小Multisim仿真文件大小

Multisim默认是保存仿真数据的,所以一旦仿真过,文件将会变得很大,几百kB是非常容易就达到了。这个异常不爽。 进行如下设置后,就只保存电路图了。 第一步: 第二步: 只要不勾选“保存仿真数据和仪器”即可。 另外还可以设置是否自动备份等等,看个人所好了。...

BIN转BCD

BCD代码,Binary-Coded Decimal‎,是一种二进制的数字编码形式,用二进制编码的十进制代码。这种编码形式利用了四个位元来储存一个十进制数,使二进制和十进制之间的转换得以快捷的进行。常见BCD编码有8421 BCD码,2421 BCD码,余3码。我们要说的就是8421 BCD码与二进...

OKI单片机调试时如何修改变量值

OKI单片机调试时如何修改变量值

OKI的仿真器有个特点,只要重新load程序,哪怕程序不变,之前加的断点也全部清除。这点与tenx(十速)不同, tenx(十速)的仿真器只要不改变当前文件的程序,当前文件的断点依旧全部保留。 调试程序时,为了验证程序的准确性,需要不停的改变变量值,如果采用在程序里加赋值语句的方法,那必然会改变程序...

标准USB,Mini-USB接口定义

标准USB,Mini-USB接口定义

以下资料网上收集整理而成。USB是一种常用的PC接口,只有4根线,两根电源两根信号,需要注意的是千万不要 把正负极弄反了,否则可能会烧掉USB设备或者电脑的南桥芯片。其接口定义如下: 引脚...

android bluetoothGatt  :onClientRegistered() - status=133 clientIf=0

android bluetoothGatt :onClientRegistered() - status=133 clientIf=0

参考资料: http://stackoverflow.com/questions/25330938/android-bluetoothgatt-status-133-register-callback http://stackoverflow.com/questions/28894111/andro...

Word批量删除图片、超链接、空格等技巧

Word中的很多批量处理,实际上多是通过查找、替换功能实现的。而要调出“查找和替换面板”很简单,在“工具”菜单中选择“替换”或者按ctrl+H快捷键即可。下文中提到的“查找”或“替换&rdqu...

发表评论

访客

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