|
こんにちは。かみちゃん です。
>最後に下記内容について、700行まで実行させるにはどんなマクロを組めばいいですか?
その前に、本当に
>>・IV2セルをアクティブにする
>>・Ctrlキーを押しながら、←キーを押す
>>・上記の例では、D2セルがアクティブになる
>>・アクティブになったセルをコピーする
>>・A2セルをアクティブにする
>>・A2セルに貼り付ける
の手順を確認しましたか?
確認したうえで、マクロの記録で記録したコードなのですか?
提示されたコードは、ご自身で検証(実行)されましたか?
少なくとも、
>>> A列に最新データを表示させたい。
という要件は、満たされておらず、
B列に最新データが表示されていませんか?
提示されたコードを見る限り、
>>・IV2セルをアクティブにする
>>・Ctrlキーを押しながら、←キーを押す
という操作をしていないのも気になります。
提示されたコードで、
Range("B2:F2").Select
Selection.End(xlToRight).Select
としているのは、どういう理由からなのですか?
たとえば、B2、C2にデータが入っていて、D2にデータが入っていなくて、
E2にデータが入っている場合、最新のデータは、C2になってしまいますが、
それでいいのですか?
本題については、以下のような感じが一例です。
Sub Macro4()
Dim lngRow As Long
For lngRow = 2 To 700
Range("B" & lngRow & ":F" & lngRow).Select
'〜 省 略 〜
Next
End Sub
|
|