|
エクセルで文字と数字を分割するしたのですが、
G01Z-2.F100.→"G" "01" "Z-" "2." "F" "100."
となっていしまいます。
G01Z-2.F100.→"G" "01" "Z" "-2." "F" "100."
とするにはどうすればいいのでしょうか?
プログラムは以下になります。
Sub BUNKATU()
d = "A6" '元データの最初のセル
r = "D6" '結果表示範囲の最初のセル
Dim a() As String
For k = Range(d).Row To Cells(65536, Range(d).Column).End(xlUp).Row
ReDim a(1 To 1)
myStr = Cells(k, Range(d).Column)
f = IsNumeric(Left(myStr, 1))
j = 1
ReDim a(1 To j)
For i = 1 To Len(myStr)
t = Mid(myStr, i, 1) '文字列の指定位置から指定数の文字を出力する。
If (f <> IsNumeric(t)) And Not (f And t = ".") Then
f = Not f
j = j + 1
ReDim Preserve a(1 To j)
End If
a(j) = a(j) & t
Next i
Cells(k, Range(r).Column).Resize(1, j) = a()
Next k
End Sub
|
|