Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66140 / 76734 ←次へ | 前へ→

【15160】Re:セルの値の移動
回答  ichinose  - 04/6/16(水) 18:45 -

引用なし
パスワード
   ▼レイレイ さん:

こんにちは。


>セルの値を斜め上のセルに移動させるという作業をしたいのですが、
>どうすればいいでしょうか?
>
>-------------------------------------
>A    B    C     D     E
>金額 1000       3000 
>数量 2000       4000
>金額 1000       3000
>数量 2000       4000
>
>-------------------------------------
>
>この表の数量(つまり2000と4000)を下の
>ように右斜め上に移動させたいのです。
>
>-------------------------------------
>
>A    B    C     D     E
>金額 1000   2000    3000   4000
>数量    
>金額 1000   2000    3000   4000
>数量 
>
>-------------------------------------
'================================
Sub test()
  For idx = 2 To 4 Step 2
'数値がある列の数が例題より多い場合は
'     ↑の数値を変更して下さい
   For jdx = 1 To Cells(Rows.Count, idx).End(xlUp).Row
     If jdx Mod 2 = 0 Then
      With Cells(jdx, idx)
        .Offset(-1, 1).Value = .Value
        .Value = ""
        End With
      End If
     Next
   Next
End Sub

当該シートをアクティブにして実行してみて下さい。
シートのデータが例のような配置だと思って作りました。
確認して下さい。
0 hits

【15152】セルの値の移動 レイレイ 04/6/16(水) 17:01 質問
【15159】Re:セルの値の移動 IROC 04/6/16(水) 18:42 回答
【15160】Re:セルの値の移動 ichinose 04/6/16(水) 18:45 回答
【15163】Re:セルの値の移動 Asaki 04/6/16(水) 23:09 回答
【15170】できました! レイレイ 04/6/17(木) 10:23 お礼

66140 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free