VBA 何かしら文字が入っていたら

以下のルールで構文をかきたいのですが、あれこれやっても動きません。

データはH1から固定数ではなくデータがはいってます。
Ｈ列に何かしらの文字が入っていたらI列に「-」を返す
空白の場合は空白で


以上の構文をどなたかお願いします。

No.2 回答者： fujillin 回答日時： 2023/10/16 17:54

こんにちは

こなのでも可能かと。

Sub Sample()
With Range("I1").Resize(Cells(Rows.Count, 8).End(xlUp).Row)
　.Formula = "=IF(H1="""","""",""・"")"
　.Value = .Value
End With
End Sub

この回答へのお礼

早速のご記入ありがとうございます。
Forなどを使い色々やってみましたが全然動かず
こんなに短い構文で動くんですね。
いつも助けて頂きありがとうございます。m(__)m

お礼日時：2023/10/17 10:23

No.1 回答者： tatsumaru77 回答日時： 2023/10/16 17:26

以下のマクロを標準モジュールに登録してください。

Public Sub sample()
Dim i As Long
For i = 1 To Cells(Rows.Count, "H").End(xlUp).Row
If Cells(i, "H").Value = "" Then
Cells(i, "I").Value = ""
Else
Cells(i, "I").Value = "-"
End If
Next
End Sub

この回答へのお礼

ご回答ありがとうございます。
自分が挑戦した形に似ていました。
大変参考になりました。またよろしくお願いします。

お礼日時：2023/10/17 10:27