| |
▼REIKO さん：
こんにちは。
>こんにちは。VBA初心者なので、
>宜しくお願いします。
>
>A列に文字が入力されいる最後の行まで
>B1に入力した式をオートフィルで
>コピーしたいのですが、
>どうやって式をコピーするのかがわかりません。
>表は以下のような感じです。
>
>---------------------------
> A B C
>1 00003
>2 00004
>3 UA00
>4 CK30
>5 CK50
> ↓
>
>---------------------------
>
>1.上のようにA列には文字列が入力されており、
> 入力されている最後の行は毎回変化します。
>
>2.B列にはA列の値が４桁ならA列の値に""を
> 追加した文字列が入るような式を、
> ４桁以外なら文字列を数値として表示
> するような式を入力します。
>
> 入力する式は以下の通りです
>
> "=If(LENB(A1)=4,A1&" ",value(A1))"
>
>3.この式をB1からオートフィルでA列の最終行まで
> コピーしたいです。
>
>以上のようなことをしたいのですが、
>理解していただけましたでしょうか？
>
>ご指導宜しくお願い致します。
>
>
Ａ列には最低一つは､データが入っているとして、
'==============================================
Sub test1()
Range("a1", Cells(Rows.Count, 1).End(xlUp)).Offset(0, 1).Formula = _
"=If(LENB(A1)=4,A1&"" "",value(A1))"
End Sub
|
|
ichinose
- 03/6/13(金) 17:10 -
