Excel VBAマクロ録音スキップブランクコピーした繰り返しペースト

Question

ハロー全員 私は何をしようとしているのは、埋め込まれたセルをc6：d20にコピーし、空白のセルをスキップすることです しかし、貼り付けたときの結果はd6：d20多分、列Cに数式がここ

が満たされているので、 は、任意のヘルプは いいだろう、私の最初のレコードのマクロ編集

Sub RoundedRectangle1_Click() 
' 
' RoundedRectangle1_Click Macro 
' 

' 
Sheets("Resume").Select 
Range("C6:D20").Select 
Selection.SpecialCells(xlCellTypeConstants).Copy 
Sheets("Input").Select 
Range("A" & Rows.Count).End(xlUp).Offset(1).Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
End Sub 

であなただけのCにしたい場合は、あなたに

Answer 1

ありがとうございました式なしOPY-ペースト値以下

Sub RoundedRectangle1_Click() 
    Dim srcSht As Worksheet, destSht As Worksheet 
    Dim srcRng As Range, destRng As Range 

    Set srcSht = ThisWorkbook.Sheets("Resume") 'this is your input sheet 
    Set destSht = ThisWorkbook.Sheets("Input") 'this is your output sheet 

    Set srcRng = srcSht.Range("C6:D20")   'set range to be copied 
    Set destRng = destSht.Range("A" & destSht.Rows.Count).End(xlUp).Offset(1).Resize(srcRng.Rows.Count, srcRng.Columns.Count) 'set range to paste 
    destRng.Value = srcRng.Value    'copy only values 
    destRng.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp 'delete blnk cells 
End Sub 

注役立つかもしれない：あなたはSELECTを使用しないでください。詳細については、thisを参照してください。