マクロで指定したセル内の改行を削除
エクセル2013です。
既に動いているマクロに別な処理を追加したいです。
まずその追加したい処理だけの単独のコードを
作成し、正しく動いたら
今使用しているマクロの最初に組込たいです。
内容はシート内において、指定した複数のセルの中の
すべての改行を削除です。
マクロでなくてもできますが、上記理由でマクロで行いたいです。
・質問1
Sub 実験()
最終行 = Cells(Rows.Count, 6).End(xlUp).Row 'F列の最終行を求める
Range(Cells(4, 1), Cells(最終行, 6)).Value = Replace(Range(Cells(4, 1), Cells(最終行, 6)).Value, vbLf, "")
End Sub
これですと
「型が一致しません」でERRです。
これは何処が悪いのでしょうか?
・質問2
Sub 改行削除()
Dim 対象範囲 As Range
最終行 = Cells(Rows.Count, 6).End(xlUp).Row 'F列の最終行を求める
Set 対象範囲 = Range(Cells(4, 1), Cells(最終行, 6))
対象範囲.Replace vbLf, "", xlPart
End Sub
↑これなら正しく動きました。
でこれを、今動いているマクロの先頭に入れたら
対象範囲.Replace vbLf, "", xlPart
↑
ここで「型が一致しません」でERRです。
なぜ単独では動作するのに、別のマクロの先頭に組み込むとERRに
なるのかわかりません。
よろしくお願いします。
お礼
ありがとうございます。 まだVBA初心者のため、基本的な間違えに気づかず、また、あまりに基本的な間違い過ぎて、本やネットにも載っていないので、大変助かります。