- Excel VBA 質問スレ Part65
36 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 41ce-ED79)[sage]：2020/03/24(火) 22:01:18.60 ID:PstaeSXz0 - >>29
Dim c As Range, e As Range
s$ = "一言コメント："
For Each c In Range(Cells(1, 3), Cells(Rows.Count, 3).End(xlUp))
i% = InStr(c, s)
If i Then
Set e = c.Offset(0, 2)
e = Replace(Left(c, i - 1) & e, s, "")
End If
Next
|