例題描述

Excel文件中有兩個(gè)表，表一中的電價(jià)、備注需要根據(jù)充電開始時(shí)間查詢表二中對(duì)應(yīng)時(shí)段的電價(jià)和備注。如下圖所示：

實(shí)現(xiàn)步驟

1、? 運(yùn)行集算器

可去潤(rùn)乾官網(wǎng)下載職場(chǎng)版，同時(shí)下載一個(gè)免費(fèi)授權(quán)就夠了，首次運(yùn)行時(shí)會(huì)提示加載。

2、? 編寫腳本：

把代碼列出來看得清楚點(diǎn)：

A1復(fù)制Excel中B2-F39區(qū)域的數(shù)據(jù)，在集算器中雙擊A1，按Ctrl+V把數(shù)據(jù)復(fù)制到A1格中

B1復(fù)制Excel中H2-K7區(qū)域的數(shù)據(jù)，在集算器中雙擊B1，按Ctrl+V把數(shù)據(jù)復(fù)制到B1格中

A2把A1中的數(shù)據(jù)讀成序表，選項(xiàng)@t表示首行是列標(biāo)題

B2把B1中的數(shù)據(jù)讀成序表，選項(xiàng)@t表示首行是列標(biāo)題

A3取B2中的開始時(shí)間列的所有值組成序列

A4循環(huán)A2中每一行

B4查詢充電開始時(shí)間在A3中的分段區(qū)間中的段號(hào)

B5如果段號(hào)為0(即0到6點(diǎn))，則改為第5段(22點(diǎn)以后)

B6將電價(jià)設(shè)為B2中對(duì)應(yīng)時(shí)間段的電價(jià)

B7將備注設(shè)為B2中對(duì)應(yīng)時(shí)間段的備注

A8取A2中的電價(jià)、備注列轉(zhuǎn)成字符串后放到剪貼板中

3、? 按F9運(yùn)行程序，運(yùn)行結(jié)束后再回到Excel文件，點(diǎn)擊E3，按Ctrl+V就可以把剪貼板中的數(shù)據(jù)粘貼過來。如下圖所示：

【附件】fdjj.zip