[[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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.