根據列標題將數據從一張紙複製並粘貼到另一張的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代碼

回答

相關問題