查找并复制/粘贴最后一列

Question

我在插入新列并将最后一列的值粘贴到这些新列中时遇到问题。

目前我得到的代码是这样的

Sub Macro1()
Dim ws As Worksheet
Dim LC As Long

Set ws = ActiveWorkbook.Worksheets("TOT")
LC = ws.Cells(3, Columns.Count).End(xlToLeft).Column

ws.Columns(LC - 2).Insert
ws.Columns(LC - 2).Insert
ws.Columns(LC - 2).Insert
ws.Columns(LC + 1 & ":" & LC + 3).Copy
ws.Range(LC + 1 & "1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

我想在最后三个现有列的前面插入三个新列，并将最后三个现有列的值粘贴到三个新列中。这些区域中没有合并的单元格。

Answer 1

Copy 和 PasteSpecial 方法都必须用于 Range 引用/对象。您正在尝试在 Columns 引用上使用 Copy。试试这个：

Sub Macro1()
    Dim ws As Worksheet
    Dim lastColumn As Long

    Set ws = ActiveWorkbook.Worksheets("TOT")
    lastColumn = ws.Cells(3, Columns.Count).End(xlToLeft).Column

    ws.Columns(lastColumn - 2).Insert
    ws.Columns(lastColumn - 2).Insert
    ws.Columns(lastColumn - 2).Insert
    ws.Cells(RowIndex:=1, ColumnIndex:=lastColumn + 1).Resize(ColumnSize:=3).EntireColumn.Copy
    ws.Cells(RowIndex:=1, ColumnIndex:=lastColumn -2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

End Sub

您需要小心使用此类代码，因为插入列时 lastColumn 的值不会改变，因此可能会产生误导。

Answer 2

试试这个：

Sub insertNew3Col()

Dim ws As Worksheet
Dim LK As Long

Set ws = ActiveWorkbook.Worksheets("TOT")
lc = ws.Cells(3, Columns.Count).End(xlToLeft).Column


ws.Range(Columns(lc - 2), Columns(lc)).Copy
ws.Columns(lc + 1).Insert Shift:=xlToRight
Application.CutCopyMode = False

End Sub

Answer 3

谢谢大家，我不知道这个

必须在 Range >reference/object 上使用 Copy 和 PasteSpecial 方法。您正在尝试在 Columns 引用上使用 Copy

我已经重新安排了我的代码如下，结果成功了

Sub Macro1()
Dim ws As Worksheet
Dim LC As Long

Set ws = ActiveWorkbook.Worksheets("TOT")
LC = ws.Cells(3, Columns.Count).End(xlToLeft).Column

ws.Columns(LC - 2).Insert
ws.Columns(LC - 2).Insert
ws.Columns(LC - 2).Insert
ws.Range(Columns(LC + 1), Columns(LC + 3)).Copy
ws.Range(Columns(LC - 2), Columns(LC)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ws.Range(Columns(LC - 2), Columns(LC)).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False


End Sub