從一個片複製範圍，並插入到另一個

我只需從A1複製到Q9從片材「頭」和插入這樣的範圍成片材「Master_Sheet」在礦井相同的範圍內。我說插入，因爲在上面的宏調用時，範圍內有數據，我不必取消內容。我嘗試了一些我已經複製過的這些行，但它會將數據複製到現有的一次，而我需要將它們與格式化一起插入。 Obviopusly我不知道VBA。從一個片複製範圍，並插入到另一個

Sub Main() 
    Sheets("Master_Sheet").Range("A1:Q9").Value = Sheets("Header").Range("A1:Q9").Value 
End Sub

您的幫助將非常感激。

來源

2014-03-13 Nullbyte

您的代碼僅將值複製爲不格式。如果你想複製與格式化的數據試試下面的代碼它應該工作

 Sub Main() 
     Dim lrow As Integer 

     With Sheets("Header") 
     lrow = Sheets("Master_Sheet").Range("A1").CurrentRegion.Rows.Count 
     .Range("A1:Q9").Copy Sheets("Master_Sheet").Range("A" & lrow + 1) ' - for cut 
     End With 

    End Sub

，或者如果您插入在單元（A1 - 在原材）的乞討下面的代碼

使用

Sub Macro3() 
    Sheets("Header").Range("A1:Q9").Copy 
    Sheets("Master_Sheet").Select 
    Range("A1").Select 
    Selection.Insert Shift:=xlDown 
    Application.CutCopyMode = False 
End Sub

上述代碼副本從A1中的數據：從前導片材Q9和粘貼在主片的端部的列

來源

2014-03-13 14:33:15

感謝。看起來它完全相反。它將Master_Sheet的範圍複製到Header中。我剛剛交換了表單名稱，除了它是copyng而沒有插入外，沒有問題。 – Nullbyte

很高興。它幫助:) –

Ohps ...它是複製不插入。請幫忙 – Nullbyte

從一個片複製範圍，並插入到另一個

回答

相關問題