仲 劼

新疆煤田地質(zhì)局一五六煤田地質(zhì)勘探隊，新疆烏魯木齊 830009

0 引言

在煤田地質(zhì)報告編寫的過程當(dāng)中，常有大量樣品進(jìn)行統(tǒng)計分析。統(tǒng)計的基礎(chǔ)和標(biāo)準(zhǔn)是各個煤心樣品的煤層層位。根據(jù)樣品編號孔號深度信息，對照煤巖層對比圖件添加煤層號是重要工作步驟。面對少量的樣品，不復(fù)雜的煤層發(fā)育情況，一個人也可以很快完成。但是面對大量數(shù)據(jù)，比如說成百上千個樣品，我們只能逐個進(jìn)行對照添加，費時費力，還容易出錯。下面我就這項工作如何運用Microsoft Excel 方便高效準(zhǔn)確的完成，進(jìn)行一些探討。

1 問題的提出

煤田地質(zhì)勘探中，煤心煤樣化驗指標(biāo)眾多，同一個樣品的化驗結(jié)果存在于多個化驗門類表格中。這就產(chǎn)生了兩個問題：1）為樣品添加采樣位置、所屬煤層編號等工程類信息；2）從多個表格中提取我們需要的數(shù)據(jù)信息，將樣品的信息分別添加到多個化驗表中。

2 實現(xiàn)方法

Excel 擁有強大的數(shù)據(jù)處理功能，在使用中也常會會使用一些信息對照，返回需要的內(nèi)容。我們可以通過以下三種方法實現(xiàn)：

1）單一對應(yīng)條件通過lookup 函數(shù)匹配。如：根據(jù)樣品編號返回樣品數(shù)據(jù)信息；

2）多對應(yīng)條件通過高級篩選功能匹配。如：根據(jù)鉆孔、煤層號返回煤質(zhì)信息；

3）復(fù)雜對應(yīng)條件通過VBA 程序設(shè)計實現(xiàn)。如：根據(jù)樣品信息返回數(shù)據(jù)庫中煤層號。

下面我就這三種方法分別說明：

1）使用Excel 提供的vlookup 函數(shù)可以實現(xiàn)單一條件的匹配和返回所需信息，使用較方便。例如，我們在一個龐大的煤質(zhì)表格中需要提取一定數(shù)目的煤質(zhì)數(shù)據(jù)，我們可以根據(jù)樣品的唯一編號使用vlookup 函數(shù)，在表格或數(shù)值數(shù)組的首列查找指定的數(shù)值，并由此返回表格或數(shù)組當(dāng)前行中指定列處的數(shù)值；

2）對于多條件的數(shù)據(jù)匹配我們可以使用excel 提供的高級篩選功能，實現(xiàn)多個條件的匹配。例如我們需要使用鉆孔號、煤層號來獲得這個特定鉆孔、特定煤層的煤質(zhì)數(shù)據(jù)。這時我們有兩個條件需要滿足，分別是鉆孔號和煤層號。根據(jù)這兩個條件對子表和母表重新排序后，使用高級篩選功能可實現(xiàn)兩表的快速對接，提取所需信息；

3）依據(jù)鉆孔地質(zhì)分層數(shù)據(jù)給煤層添加煤層號是復(fù)雜條件匹配，因為我們要同時滿足多個條件，而且條件不是完全對應(yīng)關(guān)系，而是頂?shù)装寮懊簩雍穸缺葘Φ膯栴}。這時我們就需要VBA 程序編輯來實現(xiàn)煤層樣品和鉆孔中的煤層配對。例如圖1中的數(shù)據(jù)，我們發(fā)現(xiàn)樣品的采集深度段距和鉆孔中的煤層頂?shù)装宥尉嗍前蛘咤e位對應(yīng)關(guān)系，這就加大了匹配難度，而運用VBA 程序?qū)崿F(xiàn)快速準(zhǔn)確添加煤層號。就此法進(jìn)行重點介紹：

圖1 添加煤層號宏數(shù)據(jù)表EXCEL 格式

表格數(shù)據(jù)共分為三類：1）樣品信息（左）：錄入的原始信息，為添加煤層號的對象；2）數(shù)據(jù)庫煤層特征點信息（右）：已錄好的GIS 軟件數(shù)據(jù)庫中數(shù)據(jù)，為比對計算的依據(jù)；3）樣品對應(yīng)作息（中）：比對計算后返回的煤層數(shù)據(jù)，為計算結(jié)果。

運用循環(huán)算法，反復(fù)比對的算法，可以實現(xiàn)快速地添加煤層號：

點擊“比對計算”按鈕，代碼如下：

4 結(jié)論

以上方法在煤田地質(zhì)勘探實際應(yīng)用中可以提高效率和準(zhǔn)確性。為樣品添加煤層號的宏采用了可以直觀看到比對結(jié)果的樣式，使用者比較易于接受。靈活運用Excel 軟件處理大量數(shù)據(jù)，尤其是VBA 程序的合理使用對繁雜重復(fù)的工作往往可達(dá)到事半功倍的效果。以上只是介紹了煤質(zhì)數(shù)據(jù)處理時的幾種方法，由于沒有完善化、體系化，比較零散，僅供讀者參考。

[1](美)John Walkenbach，中文版Excel 2003寶典：電子工業(yè)出版社，2004，5.

[2]（美）沃肯巴赫 著，尚紅昕，劉玲，等譯；Excel應(yīng)用技巧寶典，電子工業(yè)出版社，2006，1.

[3]王鴻儒.EXCEL VBA（2000-2003）程序設(shè)計[M].北京：中國鐵道出版社，2005.