0

ループしない以外は、成功しております。ただ、For i = ActiveCell.End(xlDown).Rowが構文エラーとなってます。決まった範囲ではないので、選択しているセルから最後の行までループしたく。

また、右隣(コメントの値となるセル)が空白の場合はスルーする処理も追加できたら幸いです。宜しくお願い致します。

Sub 右隣のセルをコメントとして挿入()
Dim r   As Range
    
 On Error Resume Next  'エラーを無視
 
 For i = ActiveCell.End(xlDown).Row

Dim Mytext As String
Mytext = ActiveCell.Offset(0, 1).Value

ActiveCell.Select
ActiveCell.AddComment Text:=Mytext


Next i

 
End Sub
1
  • そもそも質問の仕方からですね。汗 訂正有難うございます! 6月26日 7:14

1 件の回答 1

0

Excel VBAのFor文はFor i = 1 to 10のように記述します。
ご質問のコードではtoが足りないため構文エラーになります。

サンプルコード

Sub 右隣のセルをコメントとして挿入()
    Dim targetCol As Integer
    targetCol = 2   'コメントを入れる列番号

    For r = Selection.Row To Cells(Rows.Count, targetCol).End(xlUp).Row
        Dim Mytext As String
        Mytext = Cells(r, targetCol + 1).Value
        If Mytext <> "" Then
            Cells(r, targetCol).AddComment (Mytext)
        End If
    Next r
End Sub
1
  • ありがとうございます!!! 教えてくださり、感謝です!!精進します! 6月26日 7:12

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。