如何在VBA代码中插入行或列并让其和上面的和左边的格式相同

2025-03-29 03:29:49

推荐回答（1个）

回答1：

Sub Macro1()
Dim rngY As Range, rngC As Range

Set rngY = [b2] '格式源，即：第2行、B列
Set rngC = [D5] '插入行或列的位置，即：插入的行为第5行、插入的列为D列

'----插入行：
rngC.EntireRow.Insert Shift:=xlDown
rngY.EntireRow.Copy
rngC.EntireRow.PasteSpecial Paste:=xlPasteFormats
'----插入列：
rngC.EntireColumn.Insert Shift:=xlToRight
rngY.EntireColumn.Copy
rngC.EntireColumn.PasteSpecial Paste:=xlPasteFormats
'----退出复制粘贴模式
Application.CutCopyMode = False
End Sub

如何在VBA代码中插入行或列 并让其和上面的和左边的格式相同

如何在VBA代码中插入行或列并让其和上面的和左边的格式相同