判斷合并單元格,用肉眼很容易就判斷了,為什麼我要用vba?
先看看下圖。
這個我虛構的一張通訊錄表格,現實裡面情況可能更複雜,包含了職位,座機等等其他信息。
我想幹嘛?
說起來簡單,就是把這種通訊錄表格搞成vcf,直接導入手機,這樣就用不着每次打開excel表格查詢通訊錄了,直接在手機裡面查就行了。
那為什麼要用vba,不可以一個個地手動錄入嗎?
你去錄入撒!
隻要超過50個,我看你的手錄完都會抖的。
這裡就想到了vba,這個程序一旦弄出來,應該可以幫到很多人,我相信很多人應該會有我一樣的需求。
而要實現這個程序,第一步我覺得是先判斷合并單元格,因為整個vcf格式,需要填寫部門名稱,這個部門名稱就是合并單元格。
依次判斷,是合并單元格就把内容取出來,當作部門名稱填寫進去。
代碼如下:
sub 判斷合并單元格()
if range(“A1”).mergecells=true then
msgbox “合并單元格”
end if
end sub
如下圖:
運行後我們得到下圖結果:
這個代碼沒有什麼複雜的,關鍵點有兩個。
一是range(“A1”).mergecells,前面的range不用說,這個就是指定的A1,主要是後面的mergecells,這個是A1的屬性,值是邏輯型的,也有兩個true和false。
true就是是合并單元格,false就是不是合并單元格。
二是if then語句,這個格式為:
if 條件 then
語句
end if
條件為真,那麼就執行語句,條件為假就執行end if後面代碼。
,