vbaの1つのセル内の改行文字を1行ずつ取得について

Question

以前こちらで教えていただいたコードです。
下記画像の改行内を分けるというので、期待結果を得られたのですが
もし、改行がない場合。
改行がない場合は
ws.Cells(r, 68).Resize(, UBound(ary) + 1).Value = ary
上記の部分で"アプリケーション定義またはオブジェクト定義のエラー"とでてしまいます
If InStr(ws.Range("AT" & k), vbLf) <> "" Then　をいれてみましたが駄目でした。

教えてくださったコードを活かしてコードを書いていたので、sheet名やセルは画像と違います。
申し訳ございません。

こういった場合の対応方法を知りたいです。

Sub sample_soujou()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    '//使用セルの最終行を取得
    Dim fin_line As Long, k As Long
    With ActiveSheet.UsedRange
        fin_line = .Rows(.Rows.Count).Row
    End With!

For k = 2 To fin_line
 Dim LastRow As Long
    LastRow = ws.Cells(Rows.Count, 46).End(xlUp).Row
    Dim rng  As Range
    Set rng = ws.Range("AT" & LastRow)

    Dim r As Long
  txt = ws.Range("AT" & k)
  If InStr(ws.Range("AT" & k), vbLf) <> "" Then
    For r = 2 To LastRow
        Dim ary
        ary = Split(ws.Cells(r, 46).Value, vbLf)
        ws.Cells(r, 68).Resize(, UBound(ary) + 1).Value = ary
    Next r
End If

End With![]

Answer 1

InStrの使い方は他の方からご指摘の通りですが、
vbLfはあってもなくても動くはずだと思います。

Sub sample_soujou()
    
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")

    Dim LastRow As Long
    LastRow = ws.Cells(ws.Rows.Count, 46).End(xlUp).Row

    Dim k As Long, txt As String, ary As Variant
    
    For k = 2 To LastRow
        txt = ws.Range("AT" & k).Value
        If txt <> "" Then
            ary = Split(txt, vbLf)
            ws.Range("BP" & k).Resize(, UBound(ary) + 1).Value = ary
        End If
    Next
End Sub

（空白時の条件分岐を追加しました。）

Comments

[dmg]

度々ありがとうございます！

Answer 2

Instrは文字列の位置を返却しその値は数値です。
InStr 関数

構文
InStr([ start ], string1, string2, [ compare ])

戻り値
条件 　　　　　　　　　　　　　　　　InStr により返される値
string1 の長さが 0　　　　　　　　　　0
string1 が Null　　　　　　　　　　　Null
string2 の長さが 0　　 　　　　　　　start
string2 が Null　　　　　　　　　　　Null
string2 が見つからない　　　　　　　　0
string2 が string1 内で見つかった　　一致が見つかった位置
start > string2　　　　　　　　　　　0

なので、以下の様な判定になります。

If InStr(ws.Range("AT" & k), vbLf) > 0 Then

Comments

[dmg]

ご回答ありがとうございます！
上記のコードで行いましたがエラーが出てしまいました。

[sazi]

ws.Range("AT" & k)がNullの場合があるなら、条件に追加してみてください。

Answer 3

セル内改行の有無をチェックするのであれば、

「""」と比較ではなく、

If InStr(ws.Range("AT" & k), vbLf) <> "" Then

以下のようになるのでは？

If InStr(ws.Range("AT" & k), vbLf) <> 0 Then

Comments

[dmg]

ご回答ありがとうございます！
上記のコードで行いましたがエラーが出てしまいました。