|
かみちゃん さん
できました。ありがとうございました。
初めてやってみて難しいことが分かりました。
以下のようになりました。
Sub Macro3()
'
Range("B2:F2").Select
Selection.End(xlToRight).Select
Selection.Copy
Range("B2").Select
ActiveSheet.Paste
'----------------------
Range("B3:F3").Select
Selection.End(xlToRight).Select
Selection.Copy
Range("B3").Select
ActiveSheet.Paste
'----------------------
Range("B4:F4").Select
Selection.End(xlToRight).Select
Selection.Copy
Range("B4").Select
ActiveSheet.Paste
'----------------------
End Sub
最後に下記内容について、700行まで実行させるにはどんなマクロを組めばいいですか?
>後は、複数行を繰り返して処理することを考えていくことになります。
よろしくお願いします。
|
|