wordvba如何向纵向合并单元格的

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如何向纵向合并单元格的