目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
16 / 118 ﾂﾘｰ ←次へ　｜　前へ→
【280】両隣のセルにコピーする ショウ 15/8/1(土) 16:20 Excel[未読]
【280】両隣のセルにコピーする
Excel  ショウ E-MAIL  - 15/8/1(土) 16:20 -
引用なし
パスワード
   困っています。

VBAで変化させたい表は以下のようになっています。
C　　　X　Y　Z
　　　 2　4　4
　　　 3　5　5
計　　 5　9　3 　　
　　　　
空欄のC列に計と入力がある場合、計が入力されている同行のX列とZ列のセルに、真ん中のY列にある数字が入力されるようにしたいです。上の場合だと９が両隣に5にコピーされるようにしたいです。
また、この処理を450行目まで繰り返し行えるようにしたいです。

ちなみに考えたＶＢＡは
Sub ()

If Cells(i, "C").Value = "小計（kg）" Then
Cells(i, "X").Value = Cells(i, "Y").Value
Cells(i, "Z").Value = Cells(i, "Y").Value

For i = 1 To 450
Next i
End if
End Sub

このまま起動させると、アプリケーションの定義またはオブジェクションの定義のエラーとなります.

どのように書き換えれば良いでしょうか？
宜しくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
16 / 118 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：   
0
(SS)C-BOARD v3.8 is Free