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

0

本文作者:xjtudll  发布于:2014-9-1  分类:技术心得  点击:



按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

 

本文标签: Office  
本文Url: http://www.xjtudll.cn/Exp/324/ (出自: 鸟的天空)
我要引用: 点击这里获取该日志的TrackBack引用地址

相关文章:

281. Excel引用单元格地址的方法  (2013-8-6 14:42:10)

268. Word表格显示/隐藏虚框  (2013-4-25 16:12:11)

217. 利用Excel绘制时序波形  (2012-1-1 9:21:46)

214. 安装VS2010后打开ppt开始配置VS2010  (2011-12-22 8:11:10)

170. Word删除空格、空行、超链接宏  (2011-4-12 9:55:14)

160. Word批量删除图片、超链接、空格等技巧  (2011-1-20 17:44:33)

159. Word画横线和波浪线的技巧  (2011-1-20 13:42:49)

158. Word转pdf  (2011-1-19 13:40:11)

150. Word中如何定位  (2010-10-29 12:31:0)

149. Word中如何删除多余空格  (2010-10-27 20:26:36)

0 Comments

Write a comment ?