




版權說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權,請進行舉報或認領
文檔簡介
1、工具/原料 · Excel操作步驟: 1. 1原始數(shù)據(jù)表如下(名稱為:數(shù)據(jù)源),需要根據(jù)B列人員姓名拆分成每個人一個工作表。步驟閱讀 2. 2點擊【開發(fā)工具】-【Visual Basic】或者Alt+F11的快捷鍵進入VBE編輯界面。步驟閱讀 3. 3如下圖所示插入一個新的模塊。步驟閱讀 步驟閱讀 4. 4如下圖,粘貼下列代碼在模塊中:Sub CFGZB() Dim myRange As Variant Dim myArray Dim titleRange As Range Dim
2、 title As String Dim columnNum As Integer myRange = Application.InputBox(prompt:="請選擇標題行:", Type:=8) myArray = WorksheetFunction.Transpose(myRange) Set titleRange = Application.InputBox(prompt:="請選擇拆分的表頭,必須是第一行,且為一個單元格,如:“姓名”",
3、Type:=8) title = titleRange.Value columnNum = titleRange.Column Application.ScreenUpdating = False Application.DisplayAlerts = False Dim i&, Myr&, Arr, num& Dim d, k For i = Sheets.Count To 1 Step
4、-1 If Sheets(i).Name <> "數(shù)據(jù)源" Then Sheets(i).Delete End If Next i Set d = CreateObject("Scripting.Dictionary") Arr = Worksheets("數(shù)據(jù)源&qu
5、ot;).Range(Cells(2, columnNum), Cells(Myr, columnNum) For i = 1 To UBound(Arr) d(Arr(i, 1) = "" Next k = d.keys For i = 0 To UBound(k) Set conn = CreateObject("adodb.connection&qu
6、ot;) conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName Sql = "select * from 數(shù)據(jù)源$ where " & title & " = '" & k(i) & "'&quo
7、t; Worksheets.Add after:=Sheets(Sheets.Count) With ActiveSheet .Name = k(i) For num = 1 To UBound(myArray) .C
8、ells(1, num) = myArray(num, 1) Next num .Range("A2").CopyFromRecordset conn.Execute(Sql) End With Sheets(1).Select Sheets(1).Ce
9、lls.Select Selection.Copy Worksheets(Sheets.Count).Activate Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
10、160; SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Next i conn.Close Set conn = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = TrueEnd Sub步驟閱讀 5. 5如下圖所示,插入一個控件按鈕,并指定宏到剛才插入的模塊代碼。步驟閱讀 步驟閱讀 6. 6點擊插入的按鈕控件,根據(jù)提示選擇標題行和要拆分的列字段,本例選擇“姓名”字段拆分,當
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
- 6. 下載文件中如有侵權或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 金融科技產(chǎn)品創(chuàng)新與推廣服務協(xié)議
- 酒店與健身房合作健身服務協(xié)議
- 網(wǎng)絡系統(tǒng)安全維護合同
- 電商平臺跨境進口業(yè)務合同
- 自考行政管理本科自我學習計劃試題及答案探討
- 領導者的決策能力與團隊績效關系試題及答案
- 行政管理心理學解決方案試題及答案
- 2025年自考行政管理案例研究與試題答案
- 行政管理的多層次治理研究試題及答案
- 2025機械設備采購合同模板示例
- 2025年北京朝陽區(qū)高三二模高考英語試卷試題(含答案詳解)
- 2024年陜西省略陽縣事業(yè)單位公開招聘醫(yī)療衛(wèi)生崗筆試題帶答案
- 納米銀材料合成技術與抗菌效果研究進展
- 耳鼻喉技師習題庫及參考答案
- 2025屆江蘇省南通市高三數(shù)學下學期第二次模擬考試
- 2024年江西各地供電服務有限公司招聘筆試真題
- 2025至2030中國碳酸甘油酯市場應用趨勢預測及投資競爭研究報告
- 2025至2030中國二亞砜(dmso)市場深度調(diào)研及投資建議研究報告
- 2025屆山東省濰坊市高考二模歷史試題(含答案)
- 項目執(zhí)行合同書范本
- 2024-2025學年陜西省西安交大附中八年級(下)期中數(shù)學試卷(含詳解)
評論
0/150
提交評論