目安箱 IV

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

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
4 / 107 ツリー ←次へ | 前へ→

【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列にある数字が入力されるようにしたいです。上の場合だと9が両隣に5にコピーされるようにしたいです。
また、この処理を450行目まで繰り返し行えるようにしたいです。

ちなみに考えたVBAは
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

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

どのように書き換えれば良いでしょうか?
宜しくお願いします。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
4 / 107 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free