教程 | 8个excel办公精选技巧（七）

01 

向前/向后寻找值所在位置

nStart = ws1.Range("C2:C65535").Find(ws.Range("B" & j).Value, LookAt:=Excel.xlWhole).RownEnd = ws1.Range("C2:C65535").Find(ws.Range("B" & j).Value, LookAt:=Excel.xlWhole, SearchDirection:=xlPrevious).Row

02 

强制退出工作簿

wk3.Close Savechanges:=False

03 

是否为合并单元格

range（"A1"）.mergecells=true

04 

是否可编辑

IF(ISNUMBER(FIND("电表箱",$A2)),TRUE,0)

05 

剔除空行序列

=OFFSET('Dic-基础配置'!B$2,,,COUNTA('Dic-基础配置'!B$2:B$20),)

06 

判断文件是否存在

If Dir(myFile, 16) = Empty

07 

自右向左匹配字符串

InStrRev(ws.Cells(k, 3).Value, Trim(newName)) > 0

08 

列号转字母

=char(64+i)