Sub Macro1()
Application .ScreenUpdating = False
Application .DisplayAlerts = False '屏蔽合并警告
Dim rng As Range
Set rng = Cells(1 , 1 ) '从A1开始
For i = 1 To Range("a65536" ).End (xlUp).Row + 1
If Trim (Cells(i, 1 )) = "" Then '增加对空格的判断
Set rng = Union(rng, Cells(i, 1 ))
Else
rng.Merge: Set rng = Cells(i, 1 )
End If
Next i
Application .ScreenUpdating = True
Application .DisplayAlerts = True
End Sub
1、判断单元格是否包含在合并单元格中。MergeCells属性可以用来判断单元格是否包含在合并单元格中,如A1:B2合并为一个合并单元格,那么:Range("A1").MergeCells就会返回True!
2、获得包含指定单元格的合并区域。MergeArea属性可以获得包含指定单元格的合并区域,如:A1:B2合并为一个合并单元格,那么:Range("A1").MergeArea.Address就会返回$A$1:$B$2。
3、合并复制。在合并单元格时,我们经常会遇到合并的单元格区域中,有多个单元格有内容,而合并单元格时会提示,只能保留最左上角的数据,如果我们想让合并区域的内容在合并后把所有的内容也合并在合并单元格中,就可以使用这个自定义宏来完成
Sub 生成2()
Dim c As Range, r As Range, i As Integer, x, n As New Collection, Str As String
With Sheet2
.Range(.[A2], .[C2].End(xlDown)).ClearContents
Set c = [A2]
Set r = .[A2]
End With
Do While c <> ""
x = Split(c.Offset(0, 2), "/") '拆分C列数据
For i = 0 To UBound(x)
If x(i) <> "" Then
On Error Resume Next
n.Add x(i), CStr(x(i))
On Error GoTo 0
End If
Next
If c <> c.Offset(1, 0) Then '比较当前单元格与下一单元格
For i = 1 To n.Count
Str = Str & IIf(Str = "", "", "、") & n.Item(1) '取第一个,取完移除
n.Remove (1)
Next
r = c ' 赋值
r.Offset(0, 1) = c.Offset(0, 1)
r.Offset(0, 2) = Str
Str = ""
Set r = r.Offset(1, 0) '设置成下一单元格
End If
Set c = c.Offset(1, 0) '设置成下一单元格
Loop
End Sub
填充空白单元格
Range("P7:P13").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
分享到:
相关推荐
excel合并单元格换行不自动调整行高,通过vb代码对行高进行调整
asp.net C#得到Excel合并单元格行和列及其内容,得到合并单元格的开始行列和结束的行和列。关闭Excel 进程。
POI操作Excel 合并单元格 边框问题解决方法,这个方法是我亲自测试,并运用于项目中的,可以放心使用,还一并写出了很多注释,其中有写poi的bug的解决方法
excel合并单元格
VB VBA 查excel合并单元格 查出合并单元格并列出合并的范围!很实用!
excel计算合并单元格所占行数
仿Excel合并单元格实例点击合并表格单元格是合并表格里面相同的列,很实用的。
C#合并EXCEL单元格,C#纵向合并EXCEL相同内容单元格
Labview 合并Excel多单元格 1-可合并表头,多方面合并,与手工操作一致,批量执行
excel 合并单元格 快捷键Excel教程
excel合并单元格怎么操作以及合并单元格快捷键.docx
excel合并单元格在哪设置?exl合并单元格快捷键.docx
VC++设置Excel的单元格字体、颜色、边框,合并单元格等(可执行源程序) 可以实现单元格样式设定
winform使用Microsoft.Office.Interop.Excel读取带有合并单元格的Excel的demo,Excel版本不限,可以是.xls可以是.xlsx版本。本程序采用webbrowser显示读取的数据,使用bootstrap的css样式美化table表格,使用Json...
主要为大家详细介绍了python之DataFrame实现excel合并单元格,具有一定的参考价值,感兴趣的小伙伴们可以参考一下
合并单元格
excel 合并单元格 快捷键.docx
Excel合并单元格技巧详解.docx
excel合并后的单元格不能自动调整行高,加载这个“宏”以后可以实现自适应功能。
Excel合并单元格的同时保留所有数值.docx