VBA复制并粘贴一个单元格与另一个单元格

Question

I am an extreme novice to VBA and have only found myself getting into it because as I research it seems to be the only way to accomplish what I want within excel.

In this case I have a button that should either copy data from specified cells in G or K to a different location of specified cells within the same worksheet.

The first part that copies data from either G16:G18 or K16:K18 works seamlessly. I wonder if it is because there are no formulas in these cells, just numbers.

The next part of the code however seems to only copy from K21 or K19 and I am unsure why this keeps happening. I have formulas in these cells and I believe because of the order I have it is just copying the results from the last active range even if that result is “”.

Below is the code I have now:

Private Sub CommandButton2_Click()
        ActiveSheet.Range("G16:G18").Copy
        ActiveSheet.Range("P38:P40").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

        ActiveSheet.Range("K16:K18").Copy
        ActiveSheet.Range("P38:P40").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

        ActiveSheet.Range("G21").Copy
        ActiveSheet.Range("K39").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

        ActiveSheet.Range("G17").Copy
        ActiveSheet.Range("K40").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

        ActiveSheet.Range("K21").Copy
        ActiveSheet.Range("K39").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

        ActiveSheet.Range("K19").Copy
        ActiveSheet.Range("K40").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

End Sub

Is it because of the pastevalues? Is there a way around this?

Any insight is greatly appreciated!

Answer 1

查看粘贴到的位置，粘贴到K39，然后粘贴到K40，然后再次粘贴到K39，然后K40再次覆盖以前的粘贴，因此它总是看起来好像没有在做第一个副本，因为第二个已超过顶部。