免费问答

根据表头把这段文字整理好

具体怎么操作呢老师

会计学堂有课程吗？

稍等我这边查一下

你好，你可以参考一下图片的呢

老师，我明天用电脑试试哈，先不结束，要是不行我再问问您，麻烦您了，非常感谢

好的呢，等你的好消息

老师，我做出来这样的

还是不行

能不能加QQ 远程一下，我就学这一个就行，其他的我自己在学堂慢慢学，这一个着急用

你是想根据表头，自动出现数据，是需要写宏的呢 你参考一下 Sub 按模板表头整理源数据() Dim arr Dim Startcolumn1, Startcolumn2, Lastcolumn1, Lastcolumn2, i, j, l, m, n As Long Dim wba, wbc As Worksheet Set wbc = ActiveWorkbook.ActiveSheet l = Val(InputBox("请输入模板表头在第几行")) m = Val(InputBox("请输入源数据表头在第几行")) n = Sheets.Count Sheets.Add After:=Sheets(n) Sheets(n + 1).Name = "整理后的数据" wbc.Select Lastcolumn1 = Cells(l, 500).End(xlToLeft).Column If Len(Cells(l, 1)) <> 0 Then Startcolumn1 = 1 Else Startcolumn1 = Cells(l, Lastcolumn1).End(xlToLeft).Column End If Lastcolumn2 = Cells(m, 500).End(xlToLeft).Column If Len(Cells(m, 1)) <> 0 Then Startcolumn2 = 1 Else Startcolumn2 = Cells(m, Lastcolumn2).End(xlToLeft).Column End If arr = Range(Cells(l, Startcolumn1), Cells(l, Lastcolumn1)) For i = Startcolumn1 To Lastcolumn1 For j = Startcolumn2 To Lastcolumn2 If arr(1, i) = Cells(m, j).Value Then Columns(j).Select Selection.Copy Sheets("整理后的数据").Select Cells(1, i).Select ActiveSheet.Paste wbc.Select End If Next Next Sheets("整理后的数据").Select Cells(l, 1).EntireRow.Delete End Sub

1、将模板的表头复制到源数据表格的任意行，最好是第一行； 2、点击宏； 3、将模板的表头所在的行数输入进宏里，比如第一行就1； 4、输入源数据的表头所在的行数，比如第2行，就输入2； 5、宏自动处理完毕。 如下为代码，复制进VBE即可直接使用。图片为使用示例。

完全看不懂

你参考一下图片，我的动态图发不过去

可否加下QQ呢老师，我请教完您，您要是不想保留就可以把我删掉。

请求请求

抱歉，这边会计学堂有要求，不能私下跟学员联系的呢

那怎么办，老师，您看到学堂有这方面的课程了吗

你按照我发的去操作设置看一下

说实话老师，看不懂，我试试

按照我发的步骤操作一下吧

WPS的宏好像要花钱才能使用，其实我也没用过宏，非常感谢您了老师

这个不要钱，企业版是不用设置就可以，个人版需要下载插件 WPS启用宏功能步骤如下： 1. 通过百度搜索下载WPS宏插件； 2. 安装宏插件； 3. 在WPS中新建或打开表格文件； 4. 点击『开发工具』，最后点击『VB宏』即可。

好的，老师，感谢，我再试试

不客气，祝你一切顺利，加油