在其他單元格中將一個單元格復制x次

Question

我在以下單元格中有一些信息：H3，H4和H5。 恰好：H3包含字母a ，H4包含b ，H5包含c 。 現在，我想將這些單元格的內容如下：

C11=a,C12=a,C13=a,C14=a,C15=a,C16=a. 

C17=b,C18=b,C19=b,C20=b,C21=b,C22=b. 

C23=b, C24=c,C25=c,C26=c,C27=c,C28=c.

可以觀察到，我們的步驟為6。

我嘗試了以下代碼：

For s = 0 To 17
Cells(s + 11, 3).Value = Cells(CInt(3 + (s / 6)), 8)
Next

我的問題是，單元格的填充方式不正確，並且C26，C27，C28仍然為空。

謝謝！

Answer 1

像這樣運行它：

Public Sub TestMe()

    Dim s   As Long

    For s = 0 To 17
        Debug.Print Cells(s + 11, 3).Address
        Debug.Print Cells(CInt(3 + (s / 6)), 8).Address
        Cells(s + 11, 3).Value = Cells(CInt(3 + (s / 6)), 8)
    Next s

End Sub

然后按Ctrl + G ，在立即窗口中查看打印的地址。

Answer 2

CInt  

對整數進行舍入而不是截斷

您應該使用Int

For s = 0 To 17
Cells(s + 11, 3).Value = Cells(Int(3 + (s / 6)), 8)
Next

Answer 3

不使用VBA，也可以實現相同的結果。

在單元格C11中，輸入以下公式並向下復制以獲得所需的結果

=INDEX($H$3:$H$5,CEILING(ROWS($C$11:C11)/6,1))