【VBA】合并单元格 + 撤销合并单元格

最新推荐文章于 2024-07-12 13:38:16 发布

原创

最新推荐文章于 2024-07-12 13:38:16 发布 · 1.6k 阅读

11 ·

CC 4.0 BY-SA版权

文章标签：

#excel

合并单元格

原始表
在这里插入图片描述
希望效果

需要达到以上效果我们可以先分析一下我们在表中会如何操作：

1.对年级列进行排序
2.合并相同的年级列
3.合并总分列使其格式和年级列一致
4.将各个年级对应的分数进行累加

那么现在写出对应的VBA代码

整张表.sort 年级列，xlAscending , Header:=xlYes

if cells(某行,某列).values = cells(某行 - 1,某列) then
	range(cells(某行,某列),cells(某行-1,某列)).Merge

range(cells(某行,某列),cells(某行-1,某列)).Merge

Cells(总分列) = Cells(总分列) + Cells(分数列).Value

完整代码

Sub 合并单元格()
Dim a, b As Integer, d As Range
Application.DisplayAl

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

Gary.Li

关注关注

7
点赞
踩
11

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

专栏目录

Excel VBA编程：取消合并单元格

2301_79326254的博客

09-19

1174

在Excel中，合并单元格是一种常见的操作，它可以将多个单元格合并成一个大的单元格。然而，在某些情况下，我们可能需要取消已经合并的单元格。取消合并单元格的基本思路是将合并单元格拆分为原始的多个单元格。在上述代码中，我们首先检查当前选择的单元格是否是合并单元格。如果是合并单元格，则获取合并单元格的范围。如果当前选择的单元格不是合并单元格，则会显示一个消息框提示用户选择一个合并单元格。上述代码使用嵌套的循环遍历每个工作表和每个合并单元格，并取消合并单元格的状态。循环遍历合并单元格的每个单元格，并使用。

VBA批量合并、取消合并Excel表单元格

BeijixingVBA的博客

04-29

2092

VBA批量合并、取消合并Excel表单元格

参与评论您还未登录，请先登录后发表或查看评论

vba之MergeArea与MergeCells

jieru_liu的博客

05-15

8873

一、Range.MergeArea 属性，返回包含指定单元格的合并单元格区域，为只读属性。注意：Range 只能为单个单元格 Sub about_MergeArea() Dim merge_rng As Range [a1:a3].Merge '合并 [a1:a3] 单元格 Set merge_rng = Range("a2").MergeArea '返回包含 [a2] 的合并单元格区域 merge_rng.Select End Sub 二、

NPOI 1.2.3教程 -16 合并单元格MergeCells

Taskcnjia的专栏

01-23

7795

<br />using System; using System.Text; using System.IO; using NPOI.HSSF.UserModel; using NPOI.HPSF; using NPOI.POIFS.FileSystem; using NPOI.HSSF.UserModel.Contrib; using NPOI.SS.Util; using NPOI.SS.UserModel; namespace MergeCellsInXls { cl

他山之石——使用VBA合并单元格（Merge cells in VBA）

热门推荐

预见未来to50的专栏

06-22

2万+

继续学习！'单元格合并 Sub h1() Range("g1:h3").Merge ' End Sub '合并区域的返回信息 Sub h2() Range("e1") = Range("b3").MergeArea.Address '返回单元格所在的合并单元格区域 End Sub '判断是否含合并单元格 ...

vba合并单元格

tanghuan0827的博客

07-16

416

Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Applicati.

Excel VBA小程序 -批量合并和撤销合并单元格

Nemuel的博客

11-01

1126

合并单元格之前要提前将数据列排序好，然后再复制以下代码，运行宏程序。批量合并单元格 Sub RngMergeCondition() '批量合并单元格 Dim rngUser As Range Dim rngMerge As Range Dim rngSelect As Range Dim i As Long, j As Long Dim lngRowFirst As Long Dim lngClnFirst As Long Dim arr As Va

VBA(12)单元格的处理(二)/附数据类型；合并实例

q14091355的博客

07-18

1087

VBA(12)单元格基本的处理(二)/VBA常见数据类型；简单的单元格合并操作

excel合并单元格

12-20

如果你发现合并错误，可以点击“编辑”菜单的“撤销”（或使用快捷键`Ctrl+Z`）来取消合并操作，恢复原始单元格状态。总结，Excel中的合并单元格功能是一个强大且灵活的工具，但使用时需谨慎，尤其是在处理大量...

Excel·VBA单元格合并、撤销合并

hhhhh_51的博客

03-12

8222

1，合并选中单元格区域，并保留所有内容 2，合并选中单元格区域，仅合并连续相同的值 3，撤销选中区域内的合并单元格，并对单元格赋值原值 4，选中列向下合并连续空单元格

VBA 合并单元格字符

05-04

VBA 合并单元格字符将多个单元格的内容汇总至一个单元格内

Excel使用VBA实现合并、拆分单元格，另存为功能

02-10

Excel使用VBA实现合并、拆分单元格，另存为功能，VBA代码中有详细说明，给初学者提供学习VBA的基础知识。

Vba合并单元格

weixin_46002413的博客

08-16

2422

Private Sub CommandButton1_Click() Range("e1:e2").Merge '合并单元格 End Sub

vba合并单元格，MergeArea 属性，UnMerge 方法，多表合并，拆分

pgymeitianjinbu的博客

04-16

5556

...

【VBA】单元格合并思路

吾日三省吾身

05-28

1109

1. 需求向下合并空白单元格作者书名莫言生死疲劳红高粱家族丰乳肥臀蛙檀香刑余华兄弟许三观卖血记世事如烟 2. 实现代码Function mergeR() Dim intR1, intR2 intR1 = [B1048576].End(xlUp).Row 'B列最后一个单元格向上查

VBA：对Excel单元格进行合并操作

rubyw的博客

08-28

2435

【代码】VBA：对Excel单元格进行合并操作。

VBA 选中区域合并或取消合并单元格

记录

07-12

844

VBA 合并单元格&取消合并单元格

VBA中合并单元格

m0_74737305的博客

10-15

1447

主要目标是合并工作表中选定列中相邻的具有相同值的单元格，以改善数据的可读性。

VBA 合并单元格

Chobits的专栏

07-24

1132

Sub a() Application.DisplayAlerts = False Dim i As Integer: i = 3 Do While Not IsEmpty(ActiveSheet.Cells(i, 1)) If ActiveSheet.Cells(i, 1) = ActiveSheet.Cells(i - 1, 1) Then Call b(i - 1, i) End If i

VBA保护单元格

最新发布

09-30

在VBA中，实现保护单元格可以通过一系列步骤完成。以下结合参考内容详细介绍其实现方法。 ### 保护单元格的基本思路要保护单元格，首先需要设置单元格的锁定属性，然后对工作表进行保护。只有锁定的单元格在工作表被保护时才会受到保护，未锁定的单元格仍可编辑。 ### 具体实现步骤及代码示例 #### 1. 设置单元格锁定属性可以在代码中使用`Locked`属性来设置单元格是否锁定。例如，将某个单元格或单元格区域设置为锁定状态： ```vba Sub LockCells() ' 假设要锁定A1:B10区域的单元格 Range("A1:B10").Locked = True End Sub ``` #### 2. 保护工作表使用`Protect`方法对工作表进行保护。可以设置密码，以防止他人随意取消保护。 ```vba Sub ProtectWorksheet() ' 保护当前工作表，并设置密码为123 ActiveSheet.Protect Password:="123" End Sub ``` #### 3. 结合设置锁定属性和保护工作表将上述两个步骤结合起来，先设置单元格锁定属性，再保护工作表： ```vba Sub ProtectCells() ' 假设要锁定A1:B10区域的单元格 Range("A1:B10").Locked = True ' 保护当前工作表，并设置密码为123 ActiveSheet.Protect Password:="123" End Sub ``` #### 4. 解锁单元格并重新保护在某些情况下，可能需要解锁特定单元格，进行编辑后再重新保护。参考内容中的代码展示了在右击单元格时，若用户选择重置单元格，则先撤销工作表保护，清除单元格内容，解锁单元格，最后重新保护工作表： ```vba Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim rCell As Range Dim ans As VbMsgBoxResult For Each rCell In Target.Cells With rCell If Len(.Value) > 0 Then ans = MsgBox("你想要重置这个单元格吗?" & vbCrLf & vbCrLf & _ vbTab & .Value & " (" & .Address(False, False) & ")", vbYesNo, "单元格锁定通知") If ans = vbYes Then If ActiveSheet.ProtectContents Then ActiveSheet.Unprotect Password:="123" ' 首先撤销保护 Application.EnableEvents = False .ClearContents .Locked = False Application.EnableEvents = True ActiveSheet.Protect Password:="123" End If End If End If End With Next Cancel = True End Sub ``` ### 总结通过以上步骤和代码示例，可以在VBA中实现对单元格的保护。关键是先设置单元格的锁定属性，再对工作表进行保护，必要时可以撤销保护进行编辑，然后重新保护工作表。