Excel 复制数据并对列重新排序,然后粘贴到另一个工作簿中

Excel 复制数据并对列重新排序,然后粘贴到另一个工作簿中,excel,vba,Excel,Vba,很抱歉发布了一个没有任何代码的问题,但不确定从哪里开始。在粘贴到目标工作簿之前,我必须从工作簿中复制数据,并通过对列重新排序来粘贴到目标工作簿中。两个工作簿的第一列中都有数字,因此,如果源工作簿中的某一列有数字5,则该列应粘贴到目标工作簿中,其中上一列有数字5。我们在源工作簿中也有一些列,第一列中不会有任何数字,因为目标工作簿中不需要这些数据。我有1-20列。数据从第3行开始,将粘贴到目标工作簿的第3行。请有人帮忙。由于我没有工作表示例,我只能给出一个提示。如果我是你,我会使用Range.Fin

很抱歉发布了一个没有任何代码的问题,但不确定从哪里开始。在粘贴到目标工作簿之前,我必须从工作簿中复制数据,并通过对列重新排序来粘贴到目标工作簿中。两个工作簿的第一列中都有数字,因此,如果源工作簿中的某一列有数字5,则该列应粘贴到目标工作簿中,其中上一列有数字5。我们在源工作簿中也有一些列,第一列中不会有任何数字,因为目标工作簿中不需要这些数据。我有1-20列。数据从第3行开始,将粘贴到目标工作簿的第3行。请有人帮忙。

由于我没有工作表示例,我只能给出一个提示。如果我是你,我会使用Range.Find方法来查找我要查找的列。然后您可以在此位置插入数据

更多信息:

子查找 变暗rng As范围 设置rng=YourTable.Range3:3.Find5,LookIn:=xlValues,LookAt:=xlWhole 如果不是,那么rng什么都不是 Debug.Print rng.Column 其他的 调试。未找到打印内容 如果结束 端接头
嗨@Sharmila,试着对你的专栏做一个直观的解释,他们将有助于更好地理解问题,并为能够回答问题的人收集可能的解决方案。源工作簿顶部列-2 8 4 7 N 1 5 6 3 N 9目标Wbtop列-1 2 3 4 5 6 7 8 9带有N的列标题将为空,这意味着不需要在目标工作簿中粘贴列数据。希望这是清楚的。