首页
/
每日頭條
/
圖文
/
vba 合并單元格信息
vba 合并單元格信息
更新时间:2026-06-23 11:02:58

判斷合并單元格,用肉眼很容易就判斷了,為什麼我要用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-06-23
俞緻貞工筆花臨摹
俞緻貞工筆花臨摹
俞緻貞是二十世紀中國工筆花鳥畫壇的領軍大家之一,被李可染譽為“當代工筆花鳥女狀元”。她師從于非闇、張大千兩位大師,多年臨摹宋元名家真迹,潛心工筆花鳥畫創作。她的作品精工富麗,豔而不俗,受宋代宮廷工筆花鳥繪畫的影響,并對客觀自然進行深入細微的...
2026-06-23
狼渡灘一日遊旅遊攻略
狼渡灘一日遊旅遊攻略
春日櫻花,時下最盛,最近的昆明,滿屏都是櫻花花花花……不要懷疑,你已經被失控的粉色包圍了,櫻花爛漫,少女心忍不住悸動,除此之外,陽春三月,粉色的沙灘更是讓人為之傾倒,粉色且細膩的沙灘視線所至,溫暖迷人,美不勝收。這個罕見的粉色沙灘位于雲南澄...
2026-06-23
拉夏貝爾官方公告直播
拉夏貝爾官方公告直播
據報道,11月24日中午,4萬人湧進拉夏貝爾淘寶旗艦店的直播,圍觀直播間想“撿打折貨”。據悉,拉夏貝爾淘寶旗艦店直播間提供了一些折扣,包括湊單低至7.5折,3件8.5折等;還提供部分達一定金額可使用的優惠券。蘇甯的拉夏貝爾旗艦店也推出了新品...
2026-06-23
lol新版藍凱出裝
lol新版藍凱出裝
最近韓國媒體邀請到了部分職業選手來推薦新的符文,兩名頂級上單——Marin和Smeb也被邀請到了節目現場,分别推薦了兩套符文。Marin上單AP凱南壓制流符文搭配具體符文搭配如下:符文搭配思路為了凸顯AP凱南的優點所以準備這套符文,主符文是...
2026-06-23
Copyright 2023-2026 - www.tftnews.com All Rights Reserved