Excel VBA質問箱 IV

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

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


52605 / 76736 ←次へ | 前へ→

【28966】Re:移動のマクロ
お礼  道草少年  - 05/9/19(月) 20:02 -

引用なし
パスワード
   ▼かみちゃん さん:
>Sub Macro1()
> Dim RowNo As Long
> 
> For RowNo = 3 To 65536 Step 3
>  With Cells(RowNo, 2)
>   If .Value = "" Then Exit For
>   .Offset(-1, 1).Value = .Value
>   .ClearContents
>  End With
> Next
>End Sub

ありがとうございます!
やりたいことは単純なのに知らない文字(?)がたくさんで…。
マクロって奥深いですね。
ほんとにありがとうございました。

0 hits

【28960】移動のマクロ 道草少年 05/9/19(月) 18:41 質問
【28961】Re:移動のマクロ かみちゃん 05/9/19(月) 18:48 発言
【28964】Re:移動のマクロ 道草少年 05/9/19(月) 19:49 発言
【28965】Re:移動のマクロ かみちゃん 05/9/19(月) 19:58 回答
【28966】Re:移動のマクロ 道草少年 05/9/19(月) 20:02 お礼

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