蒙肇敏

（靈山縣靈東水庫(kù)管理局，廣西 靈山 535426）

1 工程概況

靈東水庫(kù)位于欽州市靈山縣佛子鎮(zhèn)境內(nèi)，壩址位于靈山縣東面的佛子鎮(zhèn)元眼村的大排麓嶺，距靈山縣城14 km，有公路與縣城相通，水庫(kù)座落在欽州市主要河流欽江干流的上游，控制集雨面積145 km2。靈東水庫(kù)是一座以灌溉為主，兼顧防洪、供水、發(fā)電等綜合利用的大（2）型水利工程。根據(jù)水文復(fù)核結(jié)果，100 a一遇設(shè)計(jì)洪水位101.486 m，5000 a 一遇洪水位104.39 m，總庫(kù)容為1.69 億m3。水庫(kù)樞紐主要建筑物由大壩、溢洪道、放水設(shè)施和壩后電站組成。

2 Excel VBA程序的應(yīng)用

靈東水庫(kù)于2007 年6 月建成了水庫(kù)水情自動(dòng)化測(cè)報(bào)系統(tǒng)及洪水預(yù)報(bào)調(diào)度系統(tǒng)。2008年以來(lái)，由筆者負(fù)責(zé)靈東水庫(kù)水文資料整編工作，每天都要逐步提取自動(dòng)化觀測(cè)數(shù)據(jù)，工作量大。共6個(gè)雨量站，1 個(gè)水位觀測(cè)站，2 個(gè)流量觀測(cè)站，每年提取原始數(shù)據(jù)要花費(fèi)近10 d 的時(shí)間，而且由于數(shù)據(jù)龐大，難免出現(xiàn)數(shù)據(jù)錯(cuò)漏。遙測(cè)系統(tǒng)數(shù)據(jù)只能當(dāng)天提取，過(guò)了時(shí)間只能查看，不能提取，一年的原始數(shù)據(jù)有365個(gè)文件。相比手寫的原始資料，電子化原始數(shù)據(jù)更多更復(fù)雜，如果能進(jìn)一步簡(jiǎn)化原始數(shù)據(jù)提取，將能釋放更多的時(shí)間。

從2019 年起，筆者認(rèn)真學(xué)習(xí)Excel VBA 程序，摸索用Excel VBA 程序提取原始數(shù)據(jù)與整編成果。表1 是筆者整編單位遙測(cè)系統(tǒng)所得的部分原始資料，因保密需要，水位一律用1 表示，雨量一律用2代表數(shù)據(jù)。由于雨量整編有時(shí)段降雨量摘錄，故時(shí)間B 列可以用Sheets（"原始數(shù)據(jù)"）.Cells（i，5）=（Month（Sheets（"原始數(shù)據(jù)"）.Cells（i，2）））&"月"&（Day（Sheets（"原始數(shù)據(jù)"）.Cells（i，2）））& "日" &（Hour（Sheets（"原始數(shù)據(jù)"）.Cells（i，2）））&"時(shí)"，然后根據(jù)每個(gè)時(shí)段的水位按所收集的水位條數(shù)取其平均值，雨量按所收集的數(shù)值累計(jì)。

表1 整編后的部分原始資料

9 1月5日21：00 10 1月6日0：00 11 1月6日03：00 12 1月6日04：00 13 2 1月6日05：00 2 14 1月6日05：00 15 1月6日07：00 16 1月6日10：00 17 1月6日13：00 18 1月6日16：00 19 1月6日20：00 20 2 1月6日23：00 2 21 1月7日02：00 22 1月7日02：00 23 1月7日03：00 24 1月7日05：00 25 1月7日07：00 26 1月7日08：00 24 27 22 2 1月7日08：00 28 2 1月7日09：00 4 29 2 1月7日09：00 30 2019-01-05 21：15 2019-01-06 00：31 2019-01-06 03：47 2019-01-06 04：36 2019-01-06 05：26 2019-01-06 05：42 2019-01-06 07：03 2019-01-06 10：19 2019-01-06 13：34 2019-01-06 16：50 2019-01-06 20：06 2019-01-06 23：21 2019-01-07 02：37 2019-01-07 02：53 2019-01-07 03：10 2019-01-07 05：53 2019-01-07 07：15 2019-01-07 08：06 2019-01-07 08：55 2019-01-07 09：09 2019-01-07 09：41 2019-01-07 10：15 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1月7日10：00 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

把月-日-時(shí)串聯(lián)，建立目標(biāo)表格和原始數(shù)據(jù)表格匹配通道，通過(guò)Excel VBA find 函數(shù)查找目標(biāo)文件的日期時(shí)間，對(duì)應(yīng)原始數(shù)據(jù)表中的日期時(shí)間，當(dāng)互相配對(duì)時(shí)，就把水位填到對(duì)應(yīng)時(shí)間行的某一列。幾行的程序，用一兩分鐘的時(shí)間就可以完成幾天的工作量，效率非常高。

水位跟雨量不同的是，水位每個(gè)時(shí)段必然都是有數(shù)值的，如果遙測(cè)系統(tǒng)數(shù)據(jù)有變化，則實(shí)時(shí)收集發(fā)回中心站。沒(méi)有變化的時(shí)候，可能是一天收集一次，故必須在每個(gè)時(shí)段把對(duì)應(yīng)的水位按上個(gè)時(shí)段的水位給加上去。偶爾會(huì)因?yàn)橥ㄐ殴收蠈?dǎo)致某一時(shí)間段沒(méi)有數(shù)據(jù)，所以筆者根據(jù)本單位的實(shí)際情況，加了一段代碼用以判別是正常的的空值還是故障導(dǎo)致的空值。所加代碼如下：

Sub 判斷水位有沒(méi)有斷報(bào)（）

If lastrow-firstrow ＞25 Then‘超過(guò)25 h 不來(lái)報(bào)則判斷為數(shù)據(jù)斷報(bào)

3 遙測(cè)系統(tǒng)歷史數(shù)據(jù)處理

采用Excel VBA 程序能快速整合原始數(shù)據(jù)文件，遙測(cè)系統(tǒng)只能導(dǎo)出當(dāng)天或者上一天的數(shù)據(jù)，過(guò)了就不能導(dǎo)出，只能查看，可以用如下宏代碼解決這個(gè)問(wèn)題。

此宏代碼會(huì)按列合并文件，所以最好是同一格式的文件，不然，有些合并行看起來(lái)有點(diǎn)亂。通過(guò)此代碼把其他文件的數(shù)據(jù)拷貝到當(dāng)前文件（見(jiàn)圖1），一年365個(gè)文件，幾分鐘就可以處理完畢。

圖1 按列合并后得到的當(dāng)前文件

4 結(jié)語(yǔ)

隨著水文測(cè)報(bào)自動(dòng)化水平的不斷提高，計(jì)算機(jī)在水文資料整編中應(yīng)用非常廣，Excel作為最常用的整編工具，學(xué)會(huì)其中的函數(shù)能提高工作效率，用Excel VBA 程序來(lái)進(jìn)行整編，更能起到事半功倍的作用。