|
▼ハル さん:
>以前別の掲示板で見つけた関数で、数字を1桁ずつ分ける式は
>あったのですが、数字以外にも △(マイナス)や、¥マークなども
>表示できるようにしたいのです。
関数での解決方法は私には無理ですが、vbaならこういう感じですか
Sub test()
Dim rng As Range, r As Range, n As Integer
With Sheets("sheet1")
Set rng = .Range("a1", .Cells(.Rows.Count, "a").End(xlUp))
End With
For Each r In rng
If IsNumeric(r) Then
txt = Replace(r.Text, "-", "△")
txt = Replace(txt, ",", "") '<-- カンマも必要なら削除
x = Len(txt)
With Sheets("sheet2")
With .Cells(.Rows.Count, "j").End(xlUp).Offset(1)
For i = 1 To x
.Offset(, -(x - i)) = Mid(txt, i, 1)
Next
End With
End With
End If
Next
End Sub
|
|