ＶＢＡ詳しい方お願いします

ＶＢＡ詳しい方お願いします

　Ｆ列に入っている文字列の左１文字だけ切り取ってＥ列に入れていくのを１行目から最終行まで繰り返したいのですがどうすればいいですか？
　データは数万行あります。
　Ｆ列に空欄もふくまれています。
　よろしくお願いします。。
　

No.1 回答者： n-jun 回答日時： 2008/08/13 15:17

ＶＢＡは使えるようになったのでしょうか？

No.2 回答者： FEX2053 回答日時： 2008/08/13 15:59

=LEFT(F1,1)

で出来ることをなんでVBAでやるのか、というそもそも論が・・・。

エラー回避だって =IF(ISERROR(LEFT(F1,1)),"",LEFT(F1,1))で出来るし。
関数で値を作っておいて「コピー」「形式を選択して貼り付け」で「値」
にすれば関数は消えるし。なんでかな、と。

No.3 ベストアンサー 回答者： pkh4989 回答日時： 2008/08/13 17:17

こんにちは。

VBAは使えるようになったのでしょうか？
どうしても、VBAなら・・・

Sub　文字展開()
　　　　Dim　RowMax　　　　　　　　　　　　　As　Long
　　　　Dim　wRow　　　　　　　　　　　　　　　　　As　Long
　　　　'
　　　　With　ActiveSheet
　　　　　　　　wRowMax　=　.Range("F"　&　Rows.Count).End(xlUp).Row
　　　　　　　　For　wRow　=　1　To　wRowMax
　　　　　　　　　　　　If　.Cells(wRow,　"F")　<>　""　Then
　　　　　　　　　　　　　　　　.Cells(wRow,　"E")　=　Left(.Cells(wRow,　"F"),　1)
　　　　　　　　　　　　End　If
　　　　　　　　Next
　　　　End　With
End　Sub

この回答へのお礼

ありがとうございます！
どうしてもＶＢＡでしたっかたのうれしいです(＾＾)

お礼日時：2008/08/14 10:05