vba檔案對比並高亮顯示

2022-07-25 07:39:08 字數 1335 閱讀 6037

每月月底要和人事要離職人員名單,並賬號列表裡刪除已經離職人員的賬號,如下**通過將賬號列表與人事發來的離職清單進行對比,高亮找出離職人員的賬號,並進行刪除。

sub

deletemain()

dim filenameobj as

string

dim wb as

workbook

onerror

resume

next

autoscreenupdating = false

showwindowintaskbar = false

excel îä¼þ (*.xls),*.xls")

msgbox

filenameobj

set wb = getobject

(filenameobj)

rw = wb.sheets("

nov.

").range("

a65536

").end(xlup).row

'rw1 = thisworkbook.sheets("mes1").range("a65536").end(xlup).row

'msgbox rw, wr1

for i = 2

torw

jieguo = wb.sheets("

nov.

").range("

b" &i).value

set c = thisworkbook.sheets("

mes1

").range("

a:a"

).find(jieguo)

rn =c.address

range(rn).interior.colorindex =xlnone

range(rn).interior.colorindex = 3

next

end sub

subdelrec()

rw1 = thisworkbook.sheets("

mes1

").range("

a65536

").end(xlup).row

for i = 2

torw1

if thisworkbook.sheets("

mes1

").range("

a" & i).interior.colorindex = 3

then: thisworkbook.sheets("

mes1

").range("

a" & i).entirerow.delete: end

next

end sub

Python詞頻對比並匯入CSV檔案

需要用到的停用詞庫我上傳到我的資源了,大家也可以自己去網上找!本來是想把兩個詞頻統計放入乙個csv檔案中,但是無奈向已經存在的csv檔案中追加寫入資料只能在已經存在的資料下面追加,也就是在同一列追加,不能另起一列新增資料,哪位兄弟懟出來了,歡迎回覆或私信!import jieba import pa...

利用awk對比並拼接文字

awk對比文字 如下所示,假如文字如下,一共三列,第一列表示水果的名稱,第二列表示英文表示,對於a中的第三列表示合格的數量,b中的第三列表示不合格的數量,現在的需求就是將同一水果的合格數量和不合格數量放到乙個文字中 base localhost hanerli cat a.txt 梨 pear 8 ...

Python 3 6 list對比並輸出差異

y t 2列資料對比,輸出 t中的新增元素存放到txt檔案中 coding utf 8 importos yesterdaynamelist todaynamelist differentnamelist areceivername test 讀取 昨天生成的 namelist 檔案 並生成 tod...