关于合并单元格的问题?Word中
条件:所有的都是A里面三行合并成一个单元格
1 ALT+F8-》宏名里填入“宏1”-》创建-》删了代码窗口原来的内容,把下面内容复制到代码窗口,然后关闭编辑器
2 ALT=F8-》点选“宏1”-》选项-》快捷键填入z-》确定,执行
3 注意问题:“For I = 1 To 10 Step 3”和“s = "A" & I & ":" & "A" & I + 3-1”里的3即为行数,10即为到的列数
Sub 宏1()
'
' 宏1 Macro
' Billgates 记录的宏 2006-1-3
'
' 快捷键: Ctrl+z
'
For I = 1 To 10 Step 3
s = "A" &...全部
条件:所有的都是A里面三行合并成一个单元格
1 ALT+F8-》宏名里填入“宏1”-》创建-》删了代码窗口原来的内容,把下面内容复制到代码窗口,然后关闭编辑器
2 ALT=F8-》点选“宏1”-》选项-》快捷键填入z-》确定,执行
3 注意问题:“For I = 1 To 10 Step 3”和“s = "A" & I & ":" & "A" & I + 3-1”里的3即为行数,10即为到的列数
Sub 宏1()
'
' 宏1 Macro
' Billgates 记录的宏 2006-1-3
'
' 快捷键: Ctrl+z
'
For I = 1 To 10 Step 3
s = "A" & I & ":" & "A" & I + 3-1
Range(s)。
Select
With Selection
。HorizontalAlignment = xlGeneral
。VerticalAlignment = xlBottom
。
WrapText = False
。Orientation = 0
。AddIndent = False
。ShrinkToFit = False
。
MergeCells = True
End With
Next I
End Sub。收起