VBA宏複製列從一張到另一張空白在

Question

我需要從圖紙ABC複製一列（說A）到另一列說B在DEF。

我一直用這個代碼：

Sheets("ABC").Activate 
ActiveSheet.Range("A1").Select 
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select 
Selection.Copy 

Sheets("DEF").Activate 
ActiveSheet.range("B1").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False' 

這工作得很好，但如果空白值之間進來它不會複製任何進一步的價值。你能幫我解決這個問題嗎？

我需要整個A列在表ABC在那裏在B列中DEF

非常感謝您的幫助！

Answer 1

下面的代碼創建包含到源極範圍的引用的變量，然後將目標範圍的Value到源範圍的Value：

Dim SrcRng As Range 
With Worksheets("ABC") 
    Set SrcRng = .Range(.Cells(1, "A"), .Cells(.Rows.Count, "A").End(xlUp)) 
End With 
Worksheets("DEF").Range("B1").Resize(SrcRng.Rows.Count, 1).Value = SrcRng.Value 

它還避免了使用Select和Activate。 （見How to avoid using Select in Excel VBA macros。）