免費(fèi)問答

根據(jù)表頭把這段文字整理好

具體怎么操作呢老師

會(huì)計(jì)學(xué)堂有課程嗎？

稍等我這邊查一下

你好，你可以參考一下圖片的呢

老師，我明天用電腦試試哈，先不結(jié)束，要是不行我再問問您，麻煩您了，非常感謝

好的呢，等你的好消息

老師，我做出來這樣的

還是不行

能不能加QQ 遠(yuǎn)程一下，我就學(xué)這一個(gè)就行，其他的我自己在學(xué)堂慢慢學(xué)，這一個(gè)著急用

你是想根據(jù)表頭，自動(dòng)出現(xiàn)數(shù)據(jù)，是需要寫宏的呢 你參考一下 Sub 按模板表頭整理源數(shù)據(jù)() 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("請(qǐng)輸入模板表頭在第幾行")) m = Val(InputBox("請(qǐng)輸入源數(shù)據(jù)表頭在第幾行")) n = Sheets.Count Sheets.Add After:=Sheets(n) Sheets(n + 1).Name = "整理后的數(shù)據(jù)" 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("整理后的數(shù)據(jù)").Select Cells(1, i).Select ActiveSheet.Paste wbc.Select End If Next Next Sheets("整理后的數(shù)據(jù)").Select Cells(l, 1).EntireRow.Delete End Sub

1、將模板的表頭復(fù)制到源數(shù)據(jù)表格的任意行，最好是第一行； 2、點(diǎn)擊宏； 3、將模板的表頭所在的行數(shù)輸入進(jìn)宏里，比如第一行就1； 4、輸入源數(shù)據(jù)的表頭所在的行數(shù)，比如第2行，就輸入2； 5、宏自動(dòng)處理完畢。 如下為代碼，復(fù)制進(jìn)VBE即可直接使用。圖片為使用示例。

完全看不懂

你參考一下圖片，我的動(dòng)態(tài)圖發(fā)不過去

可否加下QQ呢老師，我請(qǐng)教完您，您要是不想保留就可以把我刪掉。

請(qǐng)求請(qǐng)求

抱歉，這邊會(huì)計(jì)學(xué)堂有要求，不能私下跟學(xué)員聯(lián)系的呢

那怎么辦，老師，您看到學(xué)堂有這方面的課程了嗎

你按照我發(fā)的去操作設(shè)置看一下

說實(shí)話老師，看不懂，我試試

按照我發(fā)的步驟操作一下吧

WPS的宏好像要花錢才能使用，其實(shí)我也沒用過宏，非常感謝您了老師

這個(gè)不要錢，企業(yè)版是不用設(shè)置就可以，個(gè)人版需要下載插件 WPS啟用宏功能步驟如下： 1. 通過百度搜索下載WPS宏插件； 2. 安裝宏插件； 3. 在WPS中新建或打開表格文件； 4. 點(diǎn)擊『開發(fā)工具』，最后點(diǎn)擊『VB宏』即可。

好的，老師，感謝，我再試試

不客氣，祝你一切順利，加油