从一系列单元格中添加列

Question

抱歉，如果这看起来像是重复的，但我正在寻找一个可能是常见问题的特定解决方案。

我有以下代码来添加一系列单元格中的行：

Sub Insert_Matrix_Rows()
    Dim Lr As Integer, Fr As Integer

    Fr = Columns("B").Find(What:="User R", After:=Range("B9")).Row 'Searching row of "User R" header
    Lr = Range("B" & Fr).End(xlDown).Row 'Searching last row in Risk table

    Rows(Lr + 1).Insert Shift:=xlDown 'Inserting new row
   'Cells(Lr + 1, "B") = Cells(Lr, "B") + 1 'Adding a sequential number
    Rows(Lr).Copy 'Copying format of last row
    Rows(Lr + 1).PasteSpecial Paste:=xlPasteFormats 'Pasting format to new row
    Application.CutCopyMode = False 'Deactivating copy mode
    Cells(Lr + 1, "C").Select
End Sub

我将它指定为一个宏，它可以复制第 9 行，并将其粘贴到该行下方。本质上，我想为列复制这个过程。这样，在生成列时，上面的代码可能生成的任何行都将被包括在内，反之亦然。

我试图将代码转换为适用于列，但我运行出现错误（类型不匹配）：

  Sub Insert_Matrix_Columns()
    Dim Lc As Integer, Fc As Integer

    Fc = Columns("D").Find(What:="User C", After:=Range("E6")).Column 'Searching row of "User C" header
    Lc = Range("E" & Fr).End(xlRight).Column 'Searching last row in Risk table

    Columns(Lc + 1).Insert Shift:=xlRight 'Inserting new row
   'Cells(Lr + 1, "B") = Cells(Lr, "B") + 1 'Adding a sequential number
    Columns(Lc).Copy 'Copying format of last row
    Columns(Lc + 1).PasteSpecial Paste:=xlPasteFormats 'Pasting format to new row
    Application.CutCopyMode = False 'Deactivating copy mode
    Cells(Lc + 1, "E").Select
End Sub

Answer 1

替换

Fc = Columns("D").Find(What:="User C", After:=Range("E6")).Column

和

Fc = Rows(6).Find(What:="User C", After:=Range("E6")).Column

编辑： 这是工作代码（我复制了 table）使用：

Sub Insert_Matrix_Columns()
    Dim lastCol As Range

    Set lastCol = Rows(6).Find(What:="User C").End(xlToRight).EntireColumn

    Columns(lastCol.Column + 1).Insert Shift:=xlShiftToRight
    lastCol.Copy
    Columns(lastCol.Column + 1).PasteSpecial Paste:=xlPasteFormats

    Application.CutCopyMode = False
End Sub

您的代码的主要问题是使用 xlRight 而不是 xlShiftToRight 和 xlToRight，它们分别是 -4152、-4161、-4161

从一系列单元格中添加列

Adding Column from a Range of Cells

excel

vba

add

rows

cells