根据列标题将数据从一张纸复制并粘贴到另一张的VBA代码

-4

在工作簿1中，在工作簿1中，单元格A1：E1具有列标题但没有数据。在工作簿2的工作表1上，数据范围是A1：AC5000。我想选择与工作簿1上的标题相匹配的工作簿中的列，将它们复制并粘贴到工作簿1的列标题下。有人可以帮助我这个请根据列标题将数据从一张纸复制并粘贴到另一张的VBA代码

来源

2014-11-05 shree

我是新来的VBA，因此要求将出现问题。“可怜的“给一个非常熟练的VBA的人，但对我来说不是那么的 – shree 2014-11-05 12:28:39

，但你似乎没有做过任何研究或做出了很多努力？ – 2014-11-05 12:29:46

恰恰相反，我查看了整个上午的这些论坛，找到了一个将会fi的代码。但是，他们没有工作 – shree 2014-11-05 12:43:02

尺寸C为靶场昏暗的RNG作为范围暗淡我作为整数

 Dim r As Range 
    With wsCopyFrom1.Range("a1").CurrentRegion 
    For Each r In wsCopyTo1a.Range("a1:g1") 
     Set c = .Rows(1).Find(r.Value, , , xlWhole, , 0) 
      If Not c Is Nothing Then 
       .Columns(c.Column).Copy 
       r.PasteSpecial xlPasteValues 

      End If 
     Next 
     Application.CutCopyMode = False 
    End With

这工作

来源

2014-11-05 14:40:57 shree

根据列标题将数据从一张纸复制并粘贴到另一张的VBA代码

回答

相关问题