本教學適用於ios系統,決勝時刻手遊在國區還未上線,那麼,如何下載及登陸呢?接下來小編為您帶來相關教學。1首先,在桌面開啟【App Store】,在搜尋欄中搜尋【決勝時刻】,可以看到,結果
2020-11-29 13:46:59
本例介紹在excel中如何將一個工作表根據條件拆分成多個工作表。
注意:很多朋友反映sheets(i).delete這句程式碼出錯,要注意下面第一個步驟,要拆分的資料工作表名稱為「資料源」,而不是你新建工作簿時的sheet1這種。手動改成「資料源」即可。
原始資料表如下(名稱為:資料源),需要根據B列人員姓名拆分成每個人一個工作表。
點選【開發工具】-【Visual Basic】或者Alt+F11的快捷鍵進入VBE編輯介面。
如下圖所示插入一個新的模組。
如下圖,貼上下列程式碼在模組中:
Sub CFGZB()
Dim myRange As Variant
Dim myArray
Dim titleRange As Range
Dim title As String
Dim columnNum As Integer
myRange = Application.InputBox(prompt:="請選擇標題行:", Type:=8)
myArray = WorksheetFunction.Transpose(myRange)
Set titleRange = Application.InputBox(prompt:="請選擇拆分的表頭,必須是第一行,且為一個單元格,如:「姓名」", 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 -1
If Sheets(i).Name <> "資料源" Then
Sheets(i).Delete
End If
Next i
Set d = CreateObject("Scripting.Dictionary")
Myr = Worksheets("資料源").UsedRange.Rows.Count
Arr = Worksheets("資料源").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")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select * from [資料源$] where " & title & " = '" & k(i) & "'"
Worksheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = k(i)
For num = 1 To UBound(myArray)
.Cells(1, num) = myArray(num, 1)
Next num
.Range("A2").CopyFromRecordset conn.Execute(Sql)
End With
Sheets(1).Select
Sheets(1).Cells.Select
Selection.Copy
Worksheets(Sheets.Count).Activate
ActiveSheet.Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Next i
conn.Close
Set conn = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
如下圖所示,插入一個控制元件按鈕,並指定巨集到剛才插入的模組程式碼。
點選插入的按鈕控制元件,根據提示選擇標題行和要拆分的列欄位,本例選擇「姓名」欄位拆分,當然也可以選擇C列的「名稱」進行拆分,看實際需求。
程式碼執行完畢後在工作簿後面會出現很多工作表,每個工作表都是單獨一個人的資料。具體如下圖所示:
相關文章
本教學適用於ios系統,決勝時刻手遊在國區還未上線,那麼,如何下載及登陸呢?接下來小編為您帶來相關教學。1首先,在桌面開啟【App Store】,在搜尋欄中搜尋【決勝時刻】,可以看到,結果
2020-11-29 13:46:59
當我們在玩決勝時刻11-決勝時刻的時候如何進入監獄呢?1進入監獄,被士兵拉下車後,可以看到開啟的門,按住w鍵向大門走去,等待電梯的下降。 2隊友被拽倒在地,按住w繼續往前走,被帶著頭
2020-11-29 05:28:59
悟飯趣玩是一款可以直接下載遊戲的一款軟體,有很多朋友不知道如何下載,我在這裡出個教學。有需要的朋友可以看看。1第一步,開啟手機悟飯趣玩。 2第二步,點選psp類型遊戲。 3
2020-07-23 10:29:44
ps4惡靈古堡6怎麼雙人呢,還是有很多的小夥伴們不知道吧,現在我就來為朋友們簡單的介紹一下吧。1首先,我們大家先來一起看,如果是本地雙人的話就需要先進入我們的遊戲,再去選擇模
2020-07-23 10:29:42
許多小夥伴都喜歡玩墓麗影10:崛起那怎麼調中文字幕及語音?接下來我給大家簡單分享一下我的經驗,這次的古墓奇兵還有中文語音哦!1首先,我們開啟電腦,進入遊戲古墓奇兵這款遊戲,進入
2020-07-23 10:29:30
現在使用蘋果手機的小夥伴越來越多,那麼很多人想在蘋果手機上下載facebook卻不知道具體的操作方法,這裡小編就給大家介紹下蘋果手機怎麼下載facebook,希望能幫助到大家。 1首先
2019-12-26 05:53:33