[[20180306123842]]　『右から〇文字削除』（しょう）　ページの最後に飛ぶ

『右から〇文字削除』（しょう）

ExcelVBAで、A列の値に、右からみて1文字目、もしくは2文字目に"-"がある時"-"を含む後ろにある文字を削除という事は可能でしょうか?
VBAで先に別の処理を行ってから"-"の処理を行いたいのでVBA希望です。

1234-5→1234
123-45→123

＜使用 Excel：unknown、使用 OS：unknown ＞

 Sub test()
    Dim i As Long
    Dim cw As String

    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        cw = Cells(i, "A").Text
        If cw Like "*-?" Or cw Like "*-??" Then
            Cells(i, "A").Value = Left(cw, InStrRev(cw, "-") - 1)
        End If
    Next i
 End Sub
（???） 2018/03/06(火) 12:53

コメント返信：

[ 一覧(最新更新順) ]

[[20180306123842]] 『右から〇文字削除』（しょう） ページの最後に飛ぶ

[[20180306123842]]　『右から〇文字削除』（しょう）　ページの最後に飛ぶ