CLEAN関数マクロ記述式！

質問

エクセルで、(例えば)A列のセル内改行されたデータを「CLEAN関数」でB列に表示させたい時、A列に入っている分のデータだけを隣のB列に表示させる場合のマクロの記述式を教えて下さい。セルA1「あああ　改行　いいい」→B1「あああいいい」、セルA2「ううう　改行　えええ」→B2「うううえええ」、セルA3「データなし」→B3「表示なし」　　イメージご理解して頂けたでしょうか？要するにA列に入ってるセルのデータのみをCLEAN関数でB列に表示させ、A列に入ってない場合はCLEAN関数を適用しない場合の記述式です。どうか宜しくお願いします。

回答No.3

merlionXX

ひょっとして、B列にCLEAN関数を入れることをマクロでやるということでしょうか？
A列にデータが入っているときのみ、B列に関数をいれるなら、

Sub test01()
Dim x As Long
Dim c As Range
With ActiveSheet
x = .Cells(.Rows.Count, "A").End(xlUp).Row
For Each c In .Range(.Cells(1, "A"), .Cells(x, "A"))
If c <> "" Then c.Offset(0, 1).FormulaR1C1 = "=CLEAN(RC[-1])"
Next
End With
End Sub

ただ、CLEAN関数は、対象セルが空白なら、何も表示しませんから全部に関数を入れてしまっても同じだと思います。その場合は、

Sub test02()
Dim x As Long
With ActiveSheet
x = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range(.Cells(1, "B"), .Cells(x, "B")).FormulaR1C1 = "=CLEAN(RC[-1])"
End With
End Sub

です。

お礼

Wendy02さんの方法でできました。ご教授有り難うございました。