Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

66213 / 76807

←次へ　｜　前へ→


	【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