1.word 单元格 合并 vba
其它类推。
Sub Macro1()
Dim a As Integer
For a = 1 To 10
Range(Cells(1, a), Cells(2, a)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Next a
End Sub
2.如何用vba判断 word 单元格是否合并
word 单元格?
excel中用word 单元格
range.MergeCells 判断 为1是合并的
word里边 应该判断不了 因为它的格式跟word不一样
合并之后它每一行的编号是按从左到右一次编的 不会因为你合并了[a1][a2]就少了[a2] [a2]会右移一个单元格
word和excel还是有很多的不同的 ,比如word的表格可以嵌套
这个问题不是很清楚 不过还是希望对你有用
3.Excel 如何在word中用vba删除有合并单元格的行
从后面往前删除就可以保持前面的位置。
Private Function MyFunction9()
Dim I As Long, J As Long
For I = 1 To Range("A65536").End(xlUp).Row '最大行数
For J = Range("A65536").End(xlUp).Row To I + 1 Step -1 '这里的最大行数看似和上面一样,但是其实它是不一样的,I 的是固定的,J 的是不固定。
If Range("A" & I).Value = Range("A" & J).Value Then Rows(J).Delete
Next
Next
End Function
转载请注明出处51数据库 » wordvba如何向纵向合并单元格的