質問: vba 数値のみコピー sub test() intersect(activecell.entire vba 数値のみコピー sub test() intersect(activecell.entirecolumn,range(“3:1000”)).copy destination:=columns(activecell.column + 1) 今アクティブなセルの列の3〜1000行目までを1つ右の列にコピーするのですが、数値のみコピーしたいです。上に記載したコードだと罫線などもコピーされてしまいます、どーしたら良いのですか?
回答: こんにちは 10000行じゃないってことですね? >destination:=columns(activecell.column + 1) って、「右にコピー」とは違うと思うけれどどっちなんでしょうかね? とりあえず。 range("a3:a1000").offset(, activecell.column).value = _ range("a3:a1000").offset(, activecell.column - 1).value