問題：http://club.excelhome.net/thread-1397708-1-1.html
主要解法：
主要解法：
- 2月 18 週日 201816:35
網路問題 - vba自動篩選總表中的年級到指定表
- 2月 03 週六 201801:47
網路問題 - 輸入類別後抓取類別資料並剔除重複
問題：http://club.excelhome.net/thread-1395572-1-3.html
- 1月 29 週一 201822:46
網路問題 - Key入關鍵字後就將另一表的資料同步帶入
問題：http://club.excelhome.net/thread-1394890-1-1.html
- 1月 28 週日 201813:48
網路問題 - 根據關鍵字抓出要調休的人員及對應日期
問題：http://club.excelhome.net/thread-1394832-1-1.html
- 1月 27 週六 201815:51
網路問題 - 用Set & Union刪除不同工作表內相同的數值
網路問題：http://club.excelhome.net/thread-1393985-1-1.html
- 1月 27 週六 201811:24
網路問題 - 比對兩個活頁簿，資料不同處移至另一工作簿
網路問題：http://club.excelhome.net/thread-1393323-1-1.html
- 1月 21 週日 201822:05
用Textbox、Listbox進行動態模糊查找
'選取特定儲存格時，會啟動textbox、listbox的功能
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- 1月 21 週日 201814:59
Dictionary - 依單一欄位的資料將相同的資料做彙整
Sub 資料彙整()
Dim d, arr
Dim i As Long
Set d = CreateObject("scripting.dictionary")
arr = Range("a3:c17908")
For i = 2 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
d(arr(i, 1)) = arr(i, 2)
Dim d, arr
Dim i As Long
Set d = CreateObject("scripting.dictionary")
arr = Range("a3:c17908")
For i = 2 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
d(arr(i, 1)) = arr(i, 2)
- 1月 21 週日 201801:47
Dictionary - 用字典堤高資料讀取速度
Dictionary - 字典对象相当于一种联合数组，它是由具有唯一性的关键字（Key）和它的项（Item）联合组成。
- 1月 02 週二 201823:09
2018/01/02 - 底蘊
此篇文章受密碼保護，請輸入密碼後閱讀。
1
VBA (3)