EXCEL數據檢索
excel有強大的數據處理功能,但它的“查找”功能有些單一,不能將查找到的數據提出到一個新表中,也就無法滿足一些用戶的需要了。尤其是在平時積累了好多數據,當有一天,我們想從中查找一些感興趣的數據並匯出時,卻發現EXCEL的自帶“查找”功能滿足不了我們的要求,那就試試下面的方法吧。
這個方法可以把檢索到的數據提取出來到一個新表中,而且只要輸入前一位或前幾位就可以檢索。
下面以“電話交費記錄”爲例做一個示範表格。
步驟/方法
(01)第一步,準備數據表一共需要兩個工作表,有原始數據的工作表起名爲“1”,檢索用的表起名爲“2”。
(02)從格式上說,這兩個表是相同的,所不同的只是在第一行。提示:原始數據表格的內容不一定和本例完全一樣,只要檢索表與原始數據表的格式一樣就行了。表格做好後,就可以編輯VBA代碼了。
(03)第二步,製做VBA代碼選中“2”表,在下面標籤名上點鼠標右鍵,選“檢視代碼”,調出這個表2的VBA視窗把代碼粘貼進去
(04)代碼如下:Dim aa As String x27;字元型Private Sub Worksheet_SelectionChange(ByVal Target As Range)enUpdating = False '禁止屏幕更新b = [c65536](xlUp)f b < 3 Then b = 3Sheets("2")e(Cells(3, 1), Cells(b, 11))rContents '先清除查詢區域s = Sheets("1")e("j1") '數量(使用COUNTA確定數據記錄行數)aa = Range("b1") '要查詢的號碼(完整或前幾位)x1 = 3 '從第三行開始For x = 3 To s + 3n = Len(aa)w = Sheets("1")s(x, 3) '從表1中取一個C列號碼賦值給變量wIf Len(w) >= n And Left(w, n) = aa Then '判斷這個號碼是否與要檢索的相符For j = 1 To 10Cells(x1, j) = Sheets("1")s(x, j) '將相符號碼的相關內容提取出來Next jx1 = x1 + 1End IfNextRange("b1")enUpdating = True '允許屏幕更新End Sub在代碼中已經做了註釋,有VBA基礎的朋友很容易理解。
(05)第三步,完成驗收最後就可以檢驗效果了,在表2的B1單元格中輸入“860”回車後,就把所有前三個數字相符的電話號碼檢索出來了。同樣,在B1格中輸入數字“8”,就能把所有第一位是8的電話號碼檢索出來。
(06)這個示例表格完成了一個簡單的檢索,爲了介紹方便,只做了對一列數據的檢索,有興趣的朋友可以在此基礎上增加多列檢索,實用性就更強了。
-
stdole32.tlb丟失或損壞怎麼辦
Excel是我們辦公時候最常用的辦公軟件之一,但是有些win7專業版用戶在使用Excel的過程中出現了“某個對象程序庫丟失或損壞”的警告,這究竟是怎麼回事呢?雖然有這個錯誤提示,但是Excel大部分功能還是可以正常使用的。下面由小編給大家介紹一下丟失或損壞的解決方法...
-
怎麼修改檔案的後綴名?
對於對計算機不是很瞭解的朋友,有時候可能會面臨不知道怎麼修改檔案後綴名的難題,比如後綴名被隱藏了、修改了後綴名但是不知道怎麼用等等。下面就爲大家介紹怎麼修改檔案的後綴名(以後綴修改爲後綴爲例):操作方法(01)新建一個要用的檔案,如果已經有了就找到你需要修改...
-
截圖的快速鍵是什麼-怎麼截圖
使用鍵盤中的PrintScrSysrq鍵實現全屏截圖(01)PrintScrSysrq鍵,其位於鍵盤的右上方,如圖所示,按下此鍵,就可以實現在當前屏幕上全屏截圖,也就是可以截圖我們所看到的顯示器所有介面。使用Alt+PrintScreenSysRq鍵實現活動截圖(01)同時按下鍵Alt+PrintScreenSysRq鍵即可完...
-
如何製作PPT母版
PPT的母版是一個很實用的製作課件的功能,母版即一次設定好幻燈片的樣式,包括文字格式、背景等,就可以全部應用於整個幻燈片,使整個幻燈片的風格統一、美觀,如果要修改幻燈片的樣式就在母版裏進行修改,這樣既省事又省力,在這裏就以PowerPoint2007爲例來講一下製作的步...