エクセル VBA データ入力
こんにちは、はじめまして。
エクセル・VBA初心者です。
会社に入って3ヶ月になります。
同じファイル内で、入力用シートから
違うシートに表としてデータを転送するため、
本や今まで作ったものを参考にして下のようなVBAを作成したのですがうまくいきません。
Sub 転記()
Dim ws0 As Worksheet, ws1 As Worksheet, chikuseki As Range
Dim nyuryoku()
Set ws0 = Worksheets("Worksheet1")
Set ws1 = Worksheets("Worksheet2")
nyuryoku = Array("b3", "d3", "f3", "h3")
'転記したいセルの位置
Set chikuseki = ws1.Range("f", "g", "k", "q" & Rows.Count).End(xlUp).Offset(1)
'データ蓄積セル
For i = 0 To UBound(nyuryoku)
chikuseki.Offset(0, i).Value = ws0.Range(nyuryoku(i)).Value
ws0.Range(nyuryoku(i)).MergeArea.ClearContents
Next
masgbox "入力完了"
End Sub
十何個あるデータを転送する場合、フォームから入力した方が簡単なのでしょうか?
また、表にデータを転記し、そのなかのデータのいくつかを別の表に転記することは、一度の操作で可能ですか?
今週中に仕上げろと言われたので急いでいます、
どうかよろしくお願いします。
質問がまとまっていなくてわかりにくければ申し訳ないです。
お礼
返答ありがとうございます。 簡単にできそうだなぁ・・・と思ってたのですが どうやっていいかわからず、回答本当にありがとうございます^^