他のセルでx回のセルをコピーする

Question

以下のセルに情報があります：H3、H4、H5。正確に：H3は、の文字を含み、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

CInt 

は四捨五入していないあなたはVBAなしで同じ結果を得ることができますのInt

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

Answer 2

実行して：

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 

が続いて+ G Ctrlキーを押して、イミディエイトウィンドウで印刷されたアドレスを参照してください。

Answer 3

を使用する必要があり、整数

の切り捨てを行います。セルC11では

は、次の式を入れて、あなたが

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