Excel VBA宏录制跳过空白复制重复粘贴

Question

Halo Everyone 我想要做的是在c6：d20中复制填充的单元格并跳过空白单元格 但是当我粘贴我的结果只得到了d6：d20 也许是因为在C栏中填写了公式

这是我的第一个记录宏编辑

line

任何帮助都会很好 谢谢

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。有关详细信息，请参阅this。