セルの値を他のシートに反映させる方法を教えてください。

質問

シート内の複数セルに記入した文字列を、別シートの特定のセルに反映させる方法をご教授いただけませんでしょうか・・・。

具体的には、記入シート内のA1～A4に記入した文字列があります。それらをコマンドボタン押下で、
別シートのA列～D列にそれぞれ反映させたいのです。
（A1=A列、A2=B列、A3=C列、A4=D列という感じです。）
また、各列に反映させた文字列は、毎回上書きされることなく列の一番下に反映するようにしたいと考えています。
VBA初心者で困り果てております。
どうぞ、よろしくお願いしますm(__)m

回答No.4

ham_kamo

No.2&3です。
すみません、ちょっと誤解があったようです。
空白があった場合の制御、というのは１行目が空白の場合だけのことで、タイトル行があるのであれば不要な処理なのです。
逆に、
> 対象の列中に空白のセルはあります。
のケースには対応していません。したがって、このマクロを使っていると不具合が出てくる可能性があります。

具体的には、A1が空白の場合にこの転記を行った場合、コピー先シートのＢ列の新しい行は空白になってしまいますが、次に転記ボタンを押したら、その行に上書きされてしまいます。

そういうケースを考慮して、マクロを書き直してみました。どこかの列に空白があっても、B,L,M,Nのどこかの列に値が入っている場合は、その下の行に追記するようにしました。こちらに置きかえていただけませんか？

Sub ボタン1_Click()
　　Dim DestRow As Integer
　　With Worksheets("Sheet2")
　　　　DestRow = Application.WorksheetFunction.Max( _
　　　　　　.Range("B65535").End(xlUp).Row, _
　　　　　　.Range("M65535").End(xlUp).Row, _
　　　　　　.Range("N65535").End(xlUp).Row, _
　　　　　　.Range("O65535").End(xlUp).Row) + 1

　　　　.Cells(DestRow, 2) = ActiveSheet.Range("A1")
　　　　.Cells(DestRow, 12) = ActiveSheet.Range("A4")
　　　　.Cells(DestRow, 13) = ActiveSheet.Range("A7")
　　　　.Cells(DestRow, 14) = ActiveSheet.Range("A10")
　　End With
End Sub