Vba 基于列标题粘贴特定行中的单元格

我不是一个程序员，但会感谢一些帮助

我正在尝试获取一系列单元格，并将它们粘贴到电子表格的另一部分，但粘贴到我想要的正确列中（该列稍后会更改，这就是为什么我希望它标识要将单元格粘贴到正确行中的列）

例如，将单元格（A2:A10）粘贴到“TTM”列D4:D12中。。。在这里我把文本TTM放入D1。。。稍后，TTM可能变成E1，在这种情况下，A2:A10单元需要移动到E4:E12

---

非常感谢

以下功能可用于执行所需操作。您需要解释触发此代码的原因，以及是否要搜索“活动工作表”以外的内容

Function Move_Cells()
Dim iCols   As Integer
Dim i       As Integer
Dim strKey  As String
Dim iNewCol As Integer

    strKey = "TTM"      ' Set this to whatever label you want to search row 1 for.
    iCols = ActiveSheet.UsedRange.Columns.Count         ' Get count of used columns

    For i = 1 To iCols              ' Find column containing 'TTM'
        If LCase(Cells(1, i).text) = LCase(strKey) Then     ' ignore case inCASE SoMeBody....
            iNewCol = i             ' Save col # containing search keyword
            Exit For
        End If
    Next i

    'ActiveSheet.Range("A2:A10").Copy        ' Where to copy from
    'ActiveSheet.Cells(2, iNewCol).PasteSpecial xlPasteValues        ' Paste into new location
    'Application.CutCopyMode = False

    ' Try the following instead of the previous copy/paste
    Range("A2:A10").Select
    Selection.Copy
    Cells(2, iNewCol).Select
    ActiveSheet.Paste

End Function

---

你用什么来触发事件？下拉列表还是按钮？谢谢你的帮助！最后一行的第二行似乎给出了一个语法错误，Excel的哪个版本以及突出显示的部分？我想您的意思是“Application.CutCopyMode=False”行？如果是这样的话，只需注释并尝试。这部分是错误：。。。。。。。。ActiveSheet.Cells（2，iNewCol）.粘贴特殊xlPasteValues'粘贴到新位置。。。。。。。。我正在使用excel 2011 v14.1。。。。thanksI更改了答案中的复制/粘贴方法。请尝试新代码。