| |
こんにちは。かみちゃん です。
>その「番」よりも右側に何もない場合は
>A1セル：１０番 → B1セル：10 「番」を無くした表示にして
>「番」より右側にある場合は、
>それをハイフン（−）に置き換えたいのです。
>
>「番」の左右の桁数も一定ではありません。
>
>条件判断や文字の置き換えをしなくてはいけませんが、
>どのように記述すれば良いのでしょうか。
概ね以下のような感じでできると思います。
Sub Sample()
Dim v As Variant
Dim lngRow As Long
v = Range("A1:B3").Value
For lngRow = 1 To UBound(v, 1)
If v(lngRow, 1) Like "*番" Then
v(lngRow, 2) = "'" & Mid(v(lngRow, 1), 1, Len(v(lngRow, 1)) - 1)
Else
v(lngRow, 2) = Replace(v(lngRow, 1), "番", "-")
End If
Next
Range("A1:B3").Value = v
End Sub
|
|
かみちゃん
- 09/12/31(木) 17:42 -
