問題已解決
老師,我把微信聊天記錄轉換成了文字,然后復制到了excel中,如何根據內容快速分類整理
溫馨提示:如果以上題目與您遇到的情況不符,可直接提問,隨時問隨時答
速問速答你好,你可以點擊插入數據透視表
2022 04/09 21:02
84784978
2022 04/09 21:02
根據表頭把這段文字整理好
84784978
2022 04/09 21:05
具體怎么操作呢老師
84784978
2022 04/09 21:07
會計學堂有課程嗎?
小小霞老師
2022 04/09 21:11
稍等我這邊查一下
小小霞老師
2022 04/09 22:44
你好,你可以參考一下圖片的呢
84784978
2022 04/09 23:16
老師,我明天用電腦試試哈,先不結束,要是不行我再問問您,麻煩您了,非常感謝
小小霞老師
2022 04/10 08:17
好的呢,等你的好消息
84784978
2022 04/10 08:51
老師,我做出來這樣的
84784978
2022 04/10 08:51
還是不行
84784978
2022 04/10 08:53
能不能加QQ 遠程一下,我就學這一個就行,其他的我自己在學堂慢慢學,這一個著急用
小小霞老師
2022 04/10 10:12
你是想根據表頭,自動出現數據,是需要寫宏的呢
你參考一下
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
小小霞老師
2022 04/10 10:12
1、將模板的表頭復制到源數據表格的任意行,最好是第一行; 2、點擊宏; 3、將模板的表頭所在的行數輸入進宏里,比如第一行就1; 4、輸入源數據的表頭所在的行數,比如第2行,就輸入2; 5、宏自動處理完畢。
如下為代碼,復制進VBE即可直接使用。圖片為使用示例。
84784978
2022 04/10 10:12
完全看不懂
小小霞老師
2022 04/10 10:13
你參考一下圖片,我的動態(tài)圖發(fā)不過去
84784978
2022 04/10 10:15
可否加下QQ呢老師,我請教完您,您要是不想保留就可以把我刪掉。
84784978
2022 04/10 10:16
請求請求
小小霞老師
2022 04/10 10:16
抱歉,這邊會計學堂有要求,不能私下跟學員聯系的呢
84784978
2022 04/10 10:17
那怎么辦,老師,您看到學堂有這方面的課程了嗎
小小霞老師
2022 04/10 10:18
你按照我發(fā)的去操作設置看一下
84784978
2022 04/10 10:19
說實話老師,看不懂,我試試
小小霞老師
2022 04/10 10:22
按照我發(fā)的步驟操作一下吧
84784978
2022 04/10 10:25
WPS的宏好像要花錢才能使用,其實我也沒用過宏,非常感謝您了老師
小小霞老師
2022 04/10 10:27
這個不要錢,企業(yè)版是不用設置就可以,個人版需要下載插件
WPS啟用宏功能步驟如下:
1.
通過百度搜索下載WPS宏插件;
2.
安裝宏插件;
3.
在WPS中新建或打開表格文件;
4.
點擊『開發(fā)工具』,最后點擊『VB宏』即可。
84784978
2022 04/10 10:43
好的,老師,感謝,我再試試
小小霞老師
2022 04/10 11:26
不客氣,祝你一切順利,加油
閱讀 881