Dim r As Long
c = Selection.Column
Range(Cells(4, c + 1), Cells(5, c + 1)).Merge
Columns(c).EntireColumn.Copy
Columns(c + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
1 回答
试试这种方式:
您可能需要调整一些内容,例如合并某些单元格,您希望粘贴的单元格与复制的单元格相关联 . 让我知道这是如何工作的