亚洲视频二区_亚洲欧洲日本天天堂在线观看_日韩一区二区在线观看_中文字幕不卡一区

公告:魔扣目錄網為廣大站長提供免費收錄網站服務,提交前請做好本站友鏈:【 網站目錄:http://www.430618.com 】, 免友鏈快審服務(50元/站),

點擊這里在線咨詢客服
新站提交
  • 網站:51998
  • 待審:31
  • 小程序:12
  • 文章:1030137
  • 會員:747

文章介紹excel中用vba宏代碼來進行合并單元格的操作過程,以及用VBA宏代碼語句判斷單元格是否為合并單元格。

  以前的文章介紹excel合并單元格多是基礎操作,本文介紹關于excel合并單元格宏VBA代碼方面的應用。

第一,用VBA宏判斷excel合并單元格

  在excel中按下ALT+F11,打開VBE編輯器,復制下面代碼,按F5鍵運行,如果A1單元格為合并單元格,則彈出消息框提示此單元格為合并單元格,如果A1單元格沒有合并,消息框提示此單元格不是合并單元格。

Sub excel合并單元格宏()
If Range("A1").MergeCells Then
MsgBox "此單元格為合并單元格"
Else
MsgBox "此單元格不是合并單元格"
End If
End Sub

第二,用宏VBA代碼來進行合并單元格

  用上面介紹的方法,復制下面這段代碼,運行的結果是:當我們在輸入框輸入一個行號,然后excel會自動合并A1到輸入行號的單元格區域。比如我們輸入8,excel則合并A1:A8單元格區域。

Sub合并單元格宏()
Dim x1 As Long
x1 = InputBox("請輸入行號:")
Sheets("sheet1").Range("a1:a" & x1).Merge
End Sub

  又比如下面這段宏VBA代碼可以實現C6:F10單元格區域合并。

Sub 合并單元格()
Range("C6:F10 ").MergeCells = True
End Sub

分享到:
標簽:代碼 單元格 合并 行號 Excel函數
用戶無頭像

網友整理

注冊時間:

網站:5 個   小程序:0 個  文章:12 篇

  • 51998

    網站

  • 12

    小程序

  • 1030137

    文章

  • 747

    會員

趕快注冊賬號,推廣您的網站吧!
最新入駐小程序

數獨大挑戰2018-06-03

數獨一種數學游戲,玩家需要根據9

答題星2018-06-03

您可以通過答題星輕松地創建試卷

全階人生考試2018-06-03

各種考試題,題庫,初中,高中,大學四六

運動步數有氧達人2018-06-03

記錄運動步數,積累氧氣值。還可偷

每日養生app2018-06-03

每日養生,天天健康

體育訓練成績評定2018-06-03

通用課目體育訓練成績評定