database - 在 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的 a 更容易。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