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

任何幫助都很好謝謝

Answer 1

如果您只想復制粘貼值而不使用公式，則以下內容可能會有所幫助

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 。 請參閱此了解詳情。