建站
咨詢
售后
建站咨詢
新聞中心
在日常工作中，我們經(jīng)常需要從一個(gè)大型的數(shù)據(jù)庫(kù)中找到一小部分相關(guān)數(shù)據(jù)，這時(shí)候手動(dòng)篩選并復(fù)制粘貼操作較為繁瑣且易出錯(cuò)。本文將介紹如何利用VBA編寫一個(gè)簡(jiǎn)單的宏，實(shí)現(xiàn)從單元格中復(fù)制數(shù)據(jù)庫(kù)子集的功能。
成都創(chuàng)新互聯(lián)主要從事成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)唐縣,10多年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來(lái)電咨詢建站服務(wù):18982081108
1. 前期準(zhǔn)備
在Excel的開(kāi)發(fā)工具欄中，選擇Visual Basic選項(xiàng)，進(jìn)入VBA界面。在左邊的“項(xiàng)目”窗口中，選擇需要操作的活動(dòng)工作表。
2. 編寫VBA代碼
VBA代碼的核心思路是根據(jù)輸入的關(guān)鍵字，在源數(shù)據(jù)中查找對(duì)應(yīng)的記錄，并將其復(fù)制到目標(biāo)單元格中。
Sub SearchData()
Dim strKey As String ‘定義一個(gè)字符串類型變量用于存放關(guān)鍵字
Dim Rng As Range ‘定義一個(gè)范圍類型變量用于存放源數(shù)據(jù)區(qū)域
Dim i As Integer ‘定義一個(gè)整型變量用于計(jì)數(shù)
Set Rng = Range(“A2:F20”) ‘根據(jù)實(shí)際情況定義源數(shù)據(jù)區(qū)域
strKey = InputBox(“請(qǐng)輸入關(guān)鍵字：”, “查找”) ‘打開(kāi)輸入框輸入關(guān)鍵字
Range(“H1:L1”).Value = Array(“姓名”, “工號(hào)”, “年齡”, “性別”, “部門”) ‘定義目標(biāo)單元格的標(biāo)題
Range(“H2:L2”).ClearContents ‘清空上一次查找結(jié)果
i = 3 ‘定義計(jì)數(shù)變量從第3行開(kāi)始
For Each cel In Rng.Columns(1).Cells ‘在之一列中循環(huán)查找關(guān)鍵字
If cel.Value Like “*” & strKey & “*” Then ‘如果找到了對(duì)應(yīng)的記錄
Range(“H” & i & “:L” & i).Value = Array(cel.Value, cel.Offset(0, 1).Value, cel.Offset(0, 2).Value, cel.Offset(0, 3).Value, cel.Offset(0, 4).Value) ‘將記錄復(fù)制到目標(biāo)單元格中
i = i + 1 ‘計(jì)數(shù)器加1
End If
Next cel
End Sub
3. 代碼解讀
首先定義了三個(gè)變量：關(guān)鍵字、范圍和計(jì)數(shù)器；其中，關(guān)鍵字和范圍都是用戶輸入的，所以需要進(jìn)行對(duì)應(yīng)的定義；計(jì)數(shù)器是為了在循環(huán)中準(zhǔn)確的記錄每一個(gè)匹配結(jié)果所在的行數(shù)。
接下來(lái)，使用InputBox()函數(shù)打開(kāi)一個(gè)輸入框，等待用戶輸入關(guān)鍵字，該函數(shù)的之一個(gè)參數(shù)是輸入框的提示文字，第二個(gè)參數(shù)是對(duì)話框的標(biāo)題。輸入的關(guān)鍵字會(huì)被賦值給剛剛定義的strKey變量。
然后，我們定義了目標(biāo)單元格的標(biāo)題，以及清空上一次的查找結(jié)果，從第3行開(kāi)始計(jì)數(shù)。
接著，使用For Each來(lái)循環(huán)遍歷源數(shù)據(jù)區(qū)域，判斷是否包含匹配關(guān)鍵字的記錄，如果找到一條相符記錄，就將記錄的各個(gè)字段復(fù)制到目標(biāo)單元格中，并且計(jì)數(shù)器加1.
程序執(zhí)行結(jié)束，我們可以關(guān)閉VBA界面，回到Excel界面使用剛剛寫好的宏開(kāi)始查找和復(fù)制。
4. 使用技巧和注意事項(xiàng)
在使用宏之前，需要對(duì)源數(shù)據(jù)進(jìn)行適當(dāng)?shù)母袷教幚恚赃m應(yīng)代碼邏輯。同時(shí)，如果需要修改源數(shù)據(jù)的范圍或類型，也需要對(duì)VBA代碼進(jìn)行相應(yīng)的修改。
在輸入關(guān)鍵字之后，程序?qū)㈤_(kāi)始在源數(shù)據(jù)區(qū)域中遍歷查找；由于遍歷的范圍可能很大，如果時(shí)間較長(zhǎng)且沒(méi)有輸出結(jié)果，請(qǐng)耐心等待程序執(zhí)行結(jié)束。
在復(fù)制記錄的同時(shí)，用戶也可以根據(jù)需要進(jìn)行一些其他的處理操作，比如顏色填充、數(shù)據(jù)格式化等等。
總體來(lái)說(shuō)，利用VBA進(jìn)行數(shù)據(jù)復(fù)制和篩選的操作非常高效和實(shí)用，不僅可以減少繁瑣的手動(dòng)操作，還可以提高數(shù)據(jù)的準(zhǔn)確性和穩(wěn)定性，是一種值得推薦的技巧。
成都網(wǎng)站建設(shè)公司-創(chuàng)新互聯(lián)為您提供網(wǎng)站建設(shè)、網(wǎng)站制作、網(wǎng)頁(yè)設(shè)計(jì)及定制高端網(wǎng)站建設(shè)服務(wù)！
VBA 指定在J列搜索某單元格的內(nèi)容并復(fù)制
Sub test()
k=2
For i=1 to 10000
If Cells(i ,10)=Cells(6,1) then
Sheets(“指饑逗卜定爛穗表指爛”).Cells(k,1)=Cells(i ,2)
Exit for
End if
Next
End sub
其實(shí)你的這個(gè)要求并不難實(shí)現(xiàn)，如果設(shè)置得當(dāng)?shù)脑?，襲滑也不需要VBA。只用公式，名稱就完全可以達(dá)到這個(gè)目的。
當(dāng)然，我這個(gè)是在同一個(gè)工作簿中：
1、 定義B1:I11，即原數(shù)據(jù)表為 名稱 “xuesheng”；
2、在目標(biāo)表中姓名列下輸入如圖的公式，再下拉到所需要的單元格即可。
對(duì)于不在同一個(gè)工作簿中的，可以用以下方法來(lái)變相實(shí)現(xiàn):
1、 在目標(biāo)表所在的工作簿中新建一個(gè)工作表（以下簡(jiǎn)稱“A表”），同時(shí)，打開(kāi)原基礎(chǔ)數(shù)據(jù)表（以下簡(jiǎn)稱拍凳臘“B表”）；
2、 在A表中A1單元格輸入“=”，然后選到B表，點(diǎn)擊B表的A1單元格；也就是建立引用關(guān)系。
至于是用絕對(duì)引用，還是用相對(duì)引用，請(qǐng)自行根據(jù)應(yīng)用實(shí)際情況決定；
3、此時(shí)就可以像之前在一個(gè)工作簿一樣操作，設(shè)置，就能顯示所需要的姓名列表了。
每次打開(kāi)粗困該工作簿時(shí)，會(huì)提示要更新鏈接，直接點(diǎn)確定就好了。嫌麻煩，可以在“信任中心”里把“更新鏈接”設(shè)置為啟動(dòng)時(shí)自動(dòng)更新。
就邏輯來(lái)說(shuō)，這個(gè)比較簡(jiǎn)單
但僅其中一小段VBA，沒(méi)前沒(méi)后的，也不知道引用哪，不好寫。
要困盯不你直接把整個(gè)需求汪笑和展示升消出來(lái)，然后表發(fā)給我，我瞧瞧。
根據(jù)A列，查找第10列J列的數(shù)據(jù)
然后復(fù)制相關(guān)的J:K，2列的數(shù)據(jù)到另1個(gè)sheet？
絕大部分功能單一的需求，都可以30行判正以內(nèi)的VBA搞定。
前面回答者中那個(gè)用帆兄Find的挺好。盡量避免大量數(shù)據(jù)遍歷循掘轎悔環(huán)，因?yàn)檎娴男实汀?/p>
vba復(fù)制單元格中一部分?jǐn)?shù)據(jù)庫(kù)的介紹就聊到這里吧，感謝你花時(shí)間閱讀本站內(nèi)容，更多關(guān)于vba復(fù)制單元格中一部分?jǐn)?shù)據(jù)庫(kù),VBA技巧：復(fù)制單元格中的數(shù)據(jù)庫(kù)子集,VBA 指定在J列搜索某單元格的內(nèi)容并復(fù)制的信息別忘了在本站進(jìn)行查找喔。
香港服務(wù)器選創(chuàng)新互聯(lián)，香港虛擬主機(jī)被稱為香港虛擬空間/香港網(wǎng)站空間，或者簡(jiǎn)稱香港主機(jī)/香港空間。香港虛擬主機(jī)特點(diǎn)是免備案空間開(kāi)通就用， 創(chuàng)新互聯(lián)香港主機(jī)精選cn2+bgp線路訪問(wèn)快、穩(wěn)定！
文章標(biāo)題：VBA技巧：復(fù)制單元格中的數(shù)據(jù)庫(kù)子集(vba復(fù)制單元格中一部分?jǐn)?shù)據(jù)庫(kù))
本文URL：http://www.dlmjj.cn/article/dpgsops.html
