如何基于列名在Excel当前行的Plano de Contas列粘贴内容

不再依赖固定偏移量，我们可以通过查找表格首行的「Plano de Contas」列标题，定位到目标列后，再在当前行的对应位置粘贴内容，这样不管当前选中单元格在该行哪个位置都能正确粘贴。

修改后的代码如下：

Sub COLAR_CC()
    Dim targetCol As Range
    ' 在首行查找目标列标题
    Set targetCol = Rows(1).Find(What:="Plano de Contas", LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 判断是否找到目标列
    If Not targetCol Is Nothing Then
        ' 定位到当前行的目标列单元格，粘贴数值
        Cells(ActiveCell.Row, targetCol.Column).PasteSpecial Paste:=xlPasteValues, _
            Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    Else
        MsgBox "未找到「Plano de Contas」列，请检查表格标题！"
    End If
End Sub

代码说明：

• 用Rows(1).Find在表格首行精准匹配「Plano de Contas」列标题，确保定位到正确的列
• 增加了判断逻辑，如果找不到目标列会弹出提示，避免代码报错
• 通过Cells(ActiveCell.Row, targetCol.Column)直接定位当前行的目标列单元格，替换原来的固定偏移写法

内容的提问来源于stack exchange，提问作者Cooper