UC知道excel宏怎么只重复我录制的操作
来源：百度知道 编辑：UC知道 时间：2024/09/26 00:21:23
excel宏怎么只重复我录制的操作,我要想他继续向下操作可是不行,是什么原因啊?
Sub Macro4()
'
' Macro4 Macro
' 宏由 XX 录制，时间: 2009-8-6
'
'
Range("A14:A15").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
Range("B14:B15").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selecti
Sub Macro4()
'
' Macro4 Macro
' 宏由 XX 录制，时间: 2009-8-6
'
'
Range("A14:A15").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
Range("B14:B15").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selecti
录制完宏以后，你要对宏进行修改，才能使用到别的地方~~
比如说一个宏，你录制的一个宏是这样的（这个事选择性粘贴数值的快捷宏）
Sub Macro1()
'
' Macro1 Macro
' 宏由 ?? 录制，时间: 2009-8-6
'
'
Range("A1:A7").Select
'以上这句需要删除，才能用到别的地方，因为这个是选择单元格的
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
你是想A14:A15 B14:B15 C14:C15 这样一直合并？描述不太清晰，如果是这样的话，就用For语句，自已写。
for i =1 to 100
range(cells(14,i),cells(15,i)).merge
next i
以上从第一列，一直合并到100列，范围自已改
宏是录制你之前的操作，操作的是那个单元就重复那个单元，还需要再修改的。