Good good study,Day day up!

大家都在搜：

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

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

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

按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

分享给朋友：

返回列表

上一篇：Multisim汉化

下一篇：Altium打印设置文件.OutJob修改

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

Quartus II 中管脚上拉电阻（弱上拉）的设置方法

Quartus II 中管脚上拉电阻（弱上拉）的设置方法

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

Word转pdf

Word转pdf

为了通用：把一篇文章转成PDF后，读者无论在Unix还是Windows，无论是否有中文字体，都可以正常阅读。为了美观：你精心排版的文件转成PDF后，对方在屏幕上看到的与你完全一样，不会有重新换行/字体/之困挠。为了安全：在PDF文件中，你可以做到打开要密码，不允许修改、复制、打印…...

Win7在此处打开命令窗口

Win7在此处打开命令窗口

有时候会用到命令行但是每次都要cd，太麻烦后来发现居然可以用shift+右键，就会弹出来“在此处打开命令窗口”。...

Word表格显示/隐藏虚框

Word表格显示/隐藏虚框

Word里，可以将表格的某些行（列）的边框线设置为“无”，但是在编辑界面，还是可以看到边框线的，只是颜色显示为灰色。如果想让那些设置为“无”了的边框线确实不显示，点击“隐藏虚框”就可以了。这个操作说起来简单，但是得找到在菜单在...

Windows7画图调整橡皮擦大小

Windows7画图调整橡皮擦大小

Windows7自带的画图软件，如何调整橡皮擦大小呢？方法1：选中橡皮擦，在菜单栏找到“粗细”，选中不同的宽度即可。如下图所示。但是这个方法有个缺点，如果要将橡皮擦调整到很小的宽度，则没法实现。例如，想使用1px的橡皮擦，怎么办？这个时候就要用到方法2了。方法2：...

$Android Studio xml编译error: Apostrophe not preceded by \$

Android Studio xml编译error: Apostrophe not preceded by \

问题： Resource Path Location Type error: Apostrophe not preceded by \ (in Search' Titles) strings.xml 原因：在string.xml中使用了转义字符解决办法：在编译出...

发表评论