[[20160824160921]]　『セルを移動させたい』（初心者）　ページの最後に飛ぶ

『セルを移動させたい』（初心者）

Ｄ列に5と記載されている場合のみ、隣のE列にある文字列をAA列に移動させたいと思ってます。

Ａ列　Ｂ列　Ｃ列　Ｄ列　Ｅ列　・・・　　ＡＡ列
４　　２　　５　　５　　あああ
８　　５　　３　　９　　いいい　　
２　　８　　７　　５　　ううう
７　　３　　３　　５　　えええ
１　　９　　５　　６　　おおお

上記のようなエクセルファイルがあった場合、Ｅ列に記載されている「あああ」、「ううう」、「えええ」をＡＡ列に移動させたいです

ＶＢＡで実施できますでしょうか？

＜使用 Excel：unknown、使用 OS：unknown ＞

とても初心者さんに向いている処理内容と思うのですが、これを自力で考えずに質問してしまうと、全く上達しないように思いますよ？

 Sub test()
    Dim i As Long

    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "D").Value = 5 Then
            Cells(i, "AA").Value = Cells(i, "E").Value
            Cells(i, "E").Value = ""
        End If
    Next i
 End Sub
（???） 2016/08/24(水) 17:15

 VBA でやるまでもなく、

 AA1 : =IF(D1=5,E1,"") といった式を下にフィルコピーすればいいとおもいますが。
 【移動】にはなりませんが、残ったE列に対しては条件付書式で文字色を白にするとか。

 VBA　の勉強ということですか？

（β） 2016/08/24(水) 17:40

ありがとうございます
自分でも考えてみたんですが、ＶＢＡを始めたばかりで全然わからないので、ここでご質問させていただきました。
業務で使い場面もでてくると思うので、自分でも色々もっと試行錯誤しながら実施してみたいと思います
（初心者） 2016/08/25(木) 08:40

コメント返信：

[ 一覧(最新更新順) ]

[[20160824160921]] 『セルを移動させたい』（初心者） ページの最後に飛ぶ

[[20160824160921]]　『セルを移動させたい』（初心者）　ページの最後に飛ぶ