本站小編為你精心準備了錄井砂地比統計VBA批量處理運用參考范文，愿這些范文能點燃您思維的火花，激發您的寫作靈感。歡迎深入閱讀并收藏。

1引言

在儲層參數（如錄井砂地比）統計中地質資料量大、分散，常規統計操作重復枯燥、效率低下且容易出錯［1～3］。比如，一口錄井資料需要按所劃分的地層（20層）統計出每一地層里某巖性（砂巖）總厚度所占當層比率，而當一個工區內井數眾多（50口井）時，依靠人工摘錄匯總統計就顯得費時費力。引入計算機技術后，類似Ex－cel的辦公軟件給地質數據的統計處理帶來了極大的便利，但面對日益膨脹的多類型海量數據，這些常規的辦公軟件明顯難以滿足需求［1］。一是如果僅靠人工操作逐層挑選、累加求和然后數據匯總的話，工作重復量大，而且隨著地層數和井數增加而更顯著。二是這些數據統計結果的編排格式與文件保存格式都必需滿足后續軟件（如Surfer、Petrel等）的輸入要求，否則，格式編排轉換工作量也會隨著文件數目增加而變大。商業軟件大多數據庫底層不透明，給后期數據快速修改、重新加載和軟件二次開發帶來了困難［2］。vba批量處理程序能夠自動操作Excel，輕松完成大量重復工作，可以批量保存成txt文本格式便于直接導入其它軟件。利用VBA語言編寫的數據處理程序，可作多井數據批量統計整理，使地質人員更專注于地質研究工作，同時宏程序直接面向Excel，使得數據獲得和處理更加方便快捷［2］。本文以分層統計錄井砂地比為例，完整闡述VBA批量處理程序。

2統計方法

砂地比是砂巖總厚度與地層厚度的比值，因此統計工作需要從該地層的頂底界內挑出所有的砂巖，計算厚度之和然后再除以此地層厚度。對錄井資料，首先需要按地質分層取出所要計算的地層深度段內巖性數據，然后挑出此深度段內分布的砂巖層并累加其厚度求總和，得出此地層內砂巖總厚度，除以地層厚度就得到此地層的砂地比。按地質分層頂底界線可以求出每口井中各地質分層對應深度段內的砂地比值，然后取出各井中分層名相同的砂地比數據就可以用于分析工區內每一地質分層的砂地比平面分布情況［2，4］。

3實現方法與關鍵步驟

要實現VBA程序自動操作Excel需要做到以下幾方面。圖1各井分層數據Fig．1Layereddataofeachwell圖2各井巖性錄井數據Fig．2Mudloggingdataofeachwell1）整理三類原始數據表。三類數據分別為井分層、錄井和井坐標數據，共放在三個工作簿中，命名為“各井分層數據．xls”“各井巖性錄井數據．xls”和“各井坐標數據．xls”。其中，井分層數據以各井名為電子表格名存放地質分層信息，包括分層名、頂深和底深（圖1）。錄井數據以各井名為電子表格名存放錄井巖性信息，包括頂深、底深和巖性（圖2）。井坐標數據則放在一張電子表中并命名為“各井坐標”，數據包括井名、x坐標和y坐標。各張電子表格的第一行為表頭，數據都從第二行開始（圖3）。2）統計各分層砂地比。首先需要按照井分層信息中分層界線將錄井中跨層巖體深度段劈分，然后挑選并計算分層對應深度段內砂巖厚度之和，最后除以層厚度得出砂地比。3）提取各井同名分層信息。提取各井中同名分層信息并保存到以此分層名而建立的電子表格中（圖4）。最后，將各層數據表以對應表格名批量另存為txt文檔。

4操作方法及源程序

4．1操作方法將三類原始數據表放在同一個文件夾下，打開“各井分層數據．xls”，并打開宏里面的“VisualBasic編輯器”，雙擊工程窗口中的“ThisWork－book”后在右邊代碼窗口寫入源程序［5～7］。當光標處在第一個程序內時，運行宏即可自動完成批量統計。

4．2源程序源程序由三部分組成，第一個程序為主程序，分別調用后兩個子程序，如下：

4．3源程序優缺點分析1）優點。①源程序可以直接用于實際工作，無需操作人員必須會VBA編程基礎，其參與運算的井數與地層分層數不受限制，可以自動識別。②能夠自動完成劈分跨界巖性深度，挑出特定巖性，累計求取厚度，匹配各井坐標，并且利用數組提高運行速度。③自動篩選出同層異井信息并且批量另存為txt文本，方便導入其它軟件。2）缺點。①三類原始數據格式及其命名必須與所要求的一致，否則源程序無法找到對應數據。②程序運行中有幾次保存工作簿的操作，影響了程序運行速度，并且隨著井數增多速度會隨之變慢，甚至井數太多時只有采取分批處理辦法。

4．4源程序應用效果分析無論是同傳統的手工統計還是常規的辦公軟件的人工操作相比，本程序方法實現了自動化批量處理，對多步統計工作實現了一次性程序自動高效完成。5結語編寫VBA批量處理程序用于井數眾多的工區時，效果十分明顯，能夠大幅提高工作效率，減少人工誤差。源程序利用數組存儲數據實現循環，大大提高了運行速度。本文以砂地比統計為例進行了方法闡述，源程序中還給出了泥地比、砂巖厚度、泥巖厚度等重要儲層參數統計結果。對于不會編寫VBA程序的讀者，可以按照文中闡述的方法直接應用源程序實現統計操作；對于會編程序的讀者還可以對源程序進行修改推廣應用到其他類似統計工作中，甚至開發插件。