[[20180314120041]]　『Ａ列に入力されている数字をＢ列に乗算で表示させ』（どらちゃん）　ページの最後に飛ぶ

『Ａ列に入力されている数字をＢ列に乗算で表示させたい』（どらちゃん）

質問欄を見ながらマクロを記録しましたが、
行数が増えたり減ったりするのに対応できません。
どこを修正すればいいでしょうか？

    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",(RC[-1]*10))"
    Range("B1").AutoFill Destination:=Range("B1:B29"), Type:=xlFillDefault
    Columns("B:B").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B1").Select

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

    Range("B1").Resize(Cells(Rows.Count, "A").End(xlUp).Row, 1).FormulaR1C1 = "=IF(RC[-1]="""","""",(RC[-1]*10))"
    Columns("B:B").Copy
    Columns("B:B").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("B1").Select
    Application.CutCopyMode = False

（???） 2018/03/14(水) 12:59

ありがとうございました。
スッキリしました
（どらちゃん） 2018/03/14(水) 16:47

コメント返信：

[ 一覧(最新更新順) ]

[[20180314120041]] 『Ａ列に入力されている数字をＢ列に乗算で表示させ』（どらちゃん） ページの最後に飛ぶ

[[20180314120041]]　『Ａ列に入力されている数字をＢ列に乗算で表示させ』（どらちゃん）　ページの最後に飛ぶ