Excel セルを取得して入力する VBA

質問

A列に不特定（毎回違う）データがあります（空白なし）最大10000行
このA列の一番最後（下）の行に合わせてB列に関数を入力したいのですが
上手くいきません
プロの方
お願いします

B列に入力したい関数です

=IF(ISERROR(FIND("--",A2))=TRUE,"2","1")

回答No.1

watabe007 · ベストアンサー

シートモジュールに以下のコードを貼り付けてお試し下さい。
(シートタブを右クリックで表示されるメニューの[コードの表示]を選択すると表示される画面)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long

With Target
If .Column <> 1 Then Exit Sub
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
If .Row = LastRow Then
.Offset(, 1).Formula = "=IF(ISERROR(FIND(""--"",""A2""))=TRUE,""2"",""1"")"
End If
End With
End Sub

お礼

素晴らしい
これはプロでないと
出来ない技ですね
ありがとうございました