|
かみちゃん様
説明不足ですみません。
実際置換が必要が必要なのは、With Selection〜Withのサイズのみで、
順番に並んでいます。
そのあと、置換が必要のない、S、M、L、S-M、L-Oなどのサイズが並びます。
(下の順番です)
4 4H 5 5H 6 6H 7 7H
8 8H 9 9H 10 F XS S
M L O S-M L-XL
Range("I2:AC2").NumberFormat = "0.0"
Range("I2:AC2").Value = .Value
のところがよくわからないのですが、表示形式を設定したあと
どうやって数値や数値を貼り付けしたらいいのでしょうか?
よろしくお願いします。
*********************
Range("I2:AC2").NumberFormat = "0.0"
Range("I2:AC2").Value = .Value
Worksheets("靴").Range("I2:AC2").Select '---置き換え対象範囲を選択
With Selection
.Replace What:="4", Replacement:="22.5", _
LookAt:=xlWhole '---完全一致
.Replace What:="4H", Replacement:="23.0", _
LookAt:=xlWhole
.Replace What:="5", Replacement:="23.5", _
LookAt:=xlWhole
.Replace What:="5H", Replacement:="24.0", _
LookAt:=xlWhole '---部分一致
.Replace What:="6", Replacement:="24.5", _
LookAt:=xlWhole
.Replace What:="6H", Replacement:="25.0", _
LookAt:=xlWhole
.Replace What:="7", Replacement:="25.5", _
LookAt:=xlWhole
.Replace What:="7H", Replacement:="26.0", _
LookAt:=xlWhole
.Replace What:="8", Replacement:="26.5", _
LookAt:=xlWhole
.Replace What:="8H", Replacement:="27.0", _
LookAt:=xlWhole
.Replace What:="9", Replacement:="27.5", _
LookAt:=xlWhole
.Replace What:="9H", Replacement:="28.0", _
LookAt:=xlWhole
.Replace What:="10", Replacement:="28.5", _
LookAt:=xlWhole
.Replace What:="F", Replacement:="フリー", _
LookAt:=xlWhole
End With
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>同じ行(I〜AC列)に下記ア.のように文字列で数字+アルファベットが入力
>>されています。
>>これをイのように数値(小数点第一位まで)に置換するにはどうしたらいいでしょうか?
>>イの行は、数値のほかアルファベットもあります。
>
>変換のパターンを説明してください。
>"4"の場合は、4 + 18.5 + 0
>"4H"の場合は、4 + 18.5 + 0.5
>数字がない場合は、そのままの文字列とする
>ということなのでしょうか?
|
|