用于在Excel中复制粘贴的按钮

Question

好的，所以我在C3到C9的单元格中写了一些字。 然后我想要一个按钮，将这6个块复制并粘贴到从H3到H9的单元格中。

我已经为此做了代码。

Sub Save_Click() 
Range("C3:C9").Copy 
Range("H3:H9").PasteSpecial
End Sub

但是我现在需要的是程序注册是否从H3到H9的单元格为空，如果它们不为空，则应将其粘贴到从I3到I9的单元格中，如果这些不为空，则应将其粘贴到从J3到J9的单元格，依此类推...

我找到了其他一些与此有关的论坛，但是我对此完全是个菜鸟，却没有得到我必须做的事情。 如果有人知道我必须做什么，我将非常感激。

Answer 1

您只需要依靠一个简单的循环即可。 此外， Cells比带字母的Range使事情更容易。 这里有一个示例代码：

Sub Save_Click() 
Range("C3:C9").Copy
Dim curRange As Range
Dim curCol As Integer: curCol = 7
Dim completed As Boolean: completed = False
Do
    curCol = curCol + 1
    Set curRange = Range(Cells(3, curCol), Cells(9, curCol))

    If (WorksheetFunction.CountA(curRange) = 0) Then
       Exit Do
    End If
Loop While (Not completed)

curRange.PasteSpecial
End Sub