时间戳

首页 > 解决方案 > 复制数据并重新排序列并粘贴到另一个工作簿

excel - 复制数据并重新排序列并粘贴到另一个工作簿

问题描述

很抱歉发布一个没有任何代码但不知道从哪里开始的问题。我必须从工作簿中复制数据并粘贴到目标工作簿中，方法是在粘贴到目标工作簿之前重新排序列。两个工作簿的第一列都有数字，因此如果源工作簿中的列有数字 5，那么该列应该粘贴到目标工作簿中，其中顶部列有数字 5。我们在源工作簿中也有很少的列，其中不会有任何数字第一列，因为目标中不需要该数据。我有 1-20 列。数据从第 3 行开始并粘贴到目标工作簿的第 3 行。有人可以帮忙吗？

标签： excelvba

解决方案

由于我没有示例工作表，我只能给出提示。如果我是你，我会使用Range.Find()方法来找到我正在寻找的列。然后就可以在这个位置插入数据了。

更多信息：https ://docs.microsoft.com/de-de/office/vba/api/excel.range.find

Sub Find()

    Dim rng As Range

    Set rng = YourTable.Range("3:3").Find("5", LookIn:=xlValues, LookAt:=xlWhole)

    If (Not rng Is Nothing) Then
        Debug.Print rng.Column
    Else
        Debug.Print "Nothing found"
    End If

End Sub

推荐阅读