[[20150123090609]]　『自動記録作成の指定範囲変更』（まゆみ）　ページの最後に飛ぶ

『自動記録作成の指定範囲変更』（まゆみ）

お世話になっております
教えて頂けたら有り難いと思い質問させていただきます
宜しくお願いいたします

自動記録で下記の様に作成しました
N7の部分を Range("N" & Rows.Count).End(xlUp)に変更すればいいと思いますが
どの様に入れればいいのでしょうか？

Sub 日付整え1()
'
'

    Columns("K:N").Select
    Selection.NumberFormatLocal = "G/標準"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "=VALUE(RC[-2])"
    Range("M2").Select
    Selection.AutoFill Destination:=Range("M2:N2"), Type:=xlFillDefault
    Range("M2:N2").Select
    Selection.AutoFill Destination:=Range("M2:N7"), Type:=xlFillDefault
    Range("M2:N7").Select
    Selection.Copy
    Range("K2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("M:N").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

マクロの記録からそのままやっているのでしょうが
これを機にSelectを利用せず書き換えるのを覚えてしまいましょう

Range("K:N").NumberFormatLocal = "G/標準"
Range("M2").VALUE = Range("K2").Value

などのように直してみてください

（デイト） 2015/01/23(金) 09:20

コメント返信：

[ 一覧(最新更新順) ]

[[20150123090609]] 『自動記録作成の指定範囲変更』（まゆみ） ページの最後に飛ぶ

[[20150123090609]]　『自動記録作成の指定範囲変更』（まゆみ）　ページの最後に飛ぶ