数字だけを抽出して元のセルを消したい

質問

回答1から回答6までを数字のみにしたいのです。その際に元になった「1.良い」などをすべて消して、関数から導き出された状態ではないようにしたいのです。実際は何百もセルがあるのですが、他のプログラムへインポートするため手入力したような状態にしたいのです。どなたかご指導ください。

回答No.1

ushi2015 · ベストアンサー

こんにちは
マクロで良ければ、
Sub test()
　 Dim r As Range
　 For Each r In Range("B:G").Columns
　 　 r.TextToColumns Destination:=r.Range("A1"), DataType:=xlDelimited, _
　 　 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
　 　 Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
　 　 :=".", FieldInfo:=Array(Array(1, 1), Array(2, 9)), TrailingMinusNumbers:=True
　 Next
End Sub
ダメなら、手作業で1列ずつ選択して、リボンのデータタブの区切り位置で、
その他でピリオドを指定して、区切られた2列目を削除して実行。
これを6列分行えばいいです。