首页
/
每日頭條
/
圖文
/
vba 合并單元格信息
vba 合并單元格信息
更新时间:2026-04-21 07:41:27

判斷合并單元格,用肉眼很容易就判斷了,為什麼我要用vba?

先看看下圖。

vba 合并單元格信息(vba怎麼判斷合并單元格)1

這個我虛構的一張通訊錄表格,現實裡面情況可能更複雜,包含了職位,座機等等其他信息。

我想幹嘛?

說起來簡單,就是把這種通訊錄表格搞成vcf,直接導入手機,這樣就用不着每次打開excel表格查詢通訊錄了,直接在手機裡面查就行了。

那為什麼要用vba,不可以一個個地手動錄入嗎?

你去錄入撒!

隻要超過50個,我看你的手錄完都會抖的。

這裡就想到了vba,這個程序一旦弄出來,應該可以幫到很多人,我相信很多人應該會有我一樣的需求。

而要實現這個程序,第一步我覺得是先判斷合并單元格,因為整個vcf格式,需要填寫部門名稱,這個部門名稱就是合并單元格。

依次判斷,是合并單元格就把内容取出來,當作部門名稱填寫進去。

代碼如下:

sub 判斷合并單元格()

if range(“A1”).mergecells=true then

msgbox “合并單元格”

end if

end sub

如下圖:

vba 合并單元格信息(vba怎麼判斷合并單元格)2

運行後我們得到下圖結果:

vba 合并單元格信息(vba怎麼判斷合并單元格)3

這個代碼沒有什麼複雜的,關鍵點有兩個。

一是range(“A1”).mergecells,前面的range不用說,這個就是指定的A1,主要是後面的mergecells,這個是A1的屬性,值是邏輯型的,也有兩個true和false。

true就是是合并單元格,false就是不是合并單元格。

二是if then語句,這個格式為:

if 條件 then

語句

end if

條件為真,那麼就執行語句,條件為假就執行end if後面代碼。

,
Comments
Welcome to tft每日頭條 comments! Please keep conversations courteous and on-topic. To fosterproductive and respectful conversations, you may see comments from our Community Managers.
Sign up to post
Sort by
Show More Comments
推荐阅读
變字歌
變字歌
民間文化,民間順口溜:人字歌、心字歌、樂字歌、錢字歌、怕字歌、好字歌,百姓淳樸俗語,道盡人情世故。分享給大家。人字歌(一)我唱人字歌,歌聲傳天下。人字就兩筆,一撇加一捺。頭上頂着天,兩腳把地踏。堂堂又正正,不歪也不斜。一撇是靈魂,身軀是一捺...
2026-04-21
給大家安利一部治愈系電影
給大家安利一部治愈系電影
今年特别火的一部日劇《哥哥太愛我了怎麼辦》不知道大家有沒有看過?這是一部被戲稱為非常“德國骨科”的劇。(emmmm不知道這個梗的朋友可以自行百度一下。)恰逢中德建交45周年,君君趕個趟兒給大家帶來了6部德國電影。當然裡面是絕對沒有“德國骨科...
2026-04-21
同等學力申碩需要論文答辯
同等學力申碩需要論文答辯
同等學力申碩論文答辯是非常重要的,論文答辯,包括一定的論文答辯程序,在職人士需要對在職研究生論文答辯的程序事先了解清楚,下面為大家介紹同等學力申碩論文答辯如何做開場白?人民大學在職研究生老師介紹,畢業論文答辯是一種有組織、有準備、有計劃、有...
2026-04-21
永劫妖刀姬直播
永劫妖刀姬直播
對于關注遊戲圈的網友來說,相信最近聽說過最多的一款遊戲莫過于《永劫無間》。作為如今熱度最高的端遊之一,永劫無間在直播和比賽方面也是極具觀賞性,高手之間的巅峰對決總能吸引很多玩家的關注。在本身競技性拉滿的情況下,永劫無間官方也是于近日宣布将舉...
2026-04-21
鬧元宵社火表演
鬧元宵社火表演
攝影創作:李小牛2020元宵節因突如其來的疫情而改變,中國人千年沿襲的年味兒,一瞬間消失的無蹤無影,隻有微信和電話裡的問候還熱氣騰騰。盡管,這個年沒有以往的熱鬧和氣氛,盡管,我們相互之間不再走動和串門,但所有人都感受到祖國強大的力量和戰勝疫...
2026-04-21
Copyright 2023-2026 - www.tftnews.com All Rights Reserved