|
▼じゅんじゅん さん:
ありがとうございます。
Select Caseを使えば良かったのですね。
助かりました。
また、できればもう1点教えて欲しいことがあります。
アクセスからデーターを貼り付けした際、数字が文字列となってしまいます。
これを解決するのに、一列ずつ【区切り位置】を使用して直しいますが、
Range("D4:D25").Select
Selection.TextToColumns Destination:=Range("D4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
A〜Uまで記録すると膨大になってしまいました。
すっきりさせる方法はありますか?
(Forなどの使い方を理解できずにこうなってます)
|
|