Question

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

我已经为此做了代码。

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

但我现在需要的是程序注册如果从H3到H9的细胞是否为空，如果它们不是空的，它应该将它粘贴到从I3到I9的细胞中，如果它们不是＃9;空它应该将它粘贴在从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

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

1 个答案: