快速從表格中提取數據中的Office宏

2024-08-23 19:47:32

字體：大中小

來源：轉載

供稿：網友

　　方法一：利用快捷鍵逐個提取

　　這個實例的效果是：點選要提取數據的單元格后，只要按一下Ctrl+d鍵，數據就自動拷貝到你指定的位置，并且可以連續操作，后拷貝的數據會自動順延到指定位置的下一單元格中。

　　Step1
　　啟動Excel新建一個文件，保存為DataCenter.xls。點擊“工具→宏→錄制新宏”菜單命令，設置宏名為CopyRange，快捷鍵設為Ctrl+d（注意：不要跟系統的快捷鍵沖突），點擊“確定”按鈕。

　　Step2
　　點擊“工具→宏→停止錄制”菜單命令。怎么剛開始錄制就要停止呢？這樣做的目的只是要獲得一個帶有快捷鍵的宏的框架，具體代碼還得自己輸入。按Alt+F11鍵打開Visual Basic編輯器窗口，雙擊打開“工程”窗格中的“模塊1”，刪除最后的“End Sub”語句并加入如下代碼（代碼和實例，可以直接從http://fly2sPRing.blog.cfan.com.cn上獲得）：

　　Selection.Copy '拷貝所選單元格
　　TheSel = ActiveCell.Address '存儲單元格位置
　　For I = 1 To 100 '設定從H列的第1行開始，到100行停止，H、1、100這三個參數，你可以根據需要改動
　　 If Range("H" & I) = "" Then '如果H列I行為空
　　 Range("H" & I).Select '選擇H列I行的單元格
　　 ActiveSheet.Paste '粘貼單元格
　　 Range(TheSel).Select '回到拷貝位置
　　 GoTo line1 '跳出循環
　　 End If
　　Next I
　　line1: End Sub

　　Step3
　　關閉Visual Basic編輯器窗口返回Excel。將其他Excel表格復制到DataCenter.xls中，點選需要提取數據的單元格，按Ctrl+d鍵，就可以把它拷貝到H列的第1行了，其他數據的提取以此類推。

　　方法二：多單元格同時提取

　　上面的方法一次只能提取一個單元格，在此基礎上再增加一個簡單的宏，可以達到一次提取多個單元格的效果。

　　Step1
　　首先假設如圖所示是需要提取數據的表格形式。錄制一個新宏，名稱為CopyAll，快捷鍵設為Ctrl+e，在宏內輸入以下代碼（這次千萬別刪除“End Sub”）：

Excel

　　Range("B1").Select '選擇“姓名”后的數據
　　CopyRange '調用上一方法中的宏，下同
　　Range("B2").Select '選擇“性別”后的數據
　　CopyRange
　　Range("B3").Select '選擇“年齡”后的數據
　　CopyRange

　　Range函數中的參數，表示你想要提取數據的單元格位置，可以根據需要隨意設置。

　　Step3
　　返回Excel，在B1、B2、B3單元格中分別輸入“張小樂”、“男”、“18”。按Ctrl+e鍵，這些人物數據很快就被拷貝到H1～H3單元格中。以此類推可繼續提取其他數據。

　　上面的方法并不完美，其他表格中的數據必須拷貝到DataCenter.xls后才能進行提取操作，有興趣的朋友可以研究一下如何跨文件提取數據。另外，如果拷貝的是Word表格，必須在單元格格式中，將“合并單元格”項取消掉，否則不能成功提取。

上一篇：Excel做成績表時自動實現同分同名次

下一篇：讓Excel圖表任意縱橫分割