特定の桁数を抽出

教えてください。

エクセルのVBAで、
特定の桁数を抽出するにはどうすれば、よいでしょうか。

イメージは、添付ファイルのC列のようなVBAを作りたい、
と考えています。

条件としては、

(1)先頭～１０桁までを抽出
(2)それ以降は削除
(3)文字列にする、

です。

使用ソフトは、EXCEL2010です。
よろしくお願いします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2010/11/11 23:08

こんばんは！

画像の配置とは若干異なり、A列の2行目からあり、B列に表示させるとします。
一例です。

Sub test()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
With Cells(i, 2)
.Value = Left(Cells(i, 1), 10)
.NumberFormat = "@"
End With
Next i
End Sub

こんな感じで良いのでしょうか？m(__)m

この回答へのお礼

ありがとうございました。
完璧です。

お礼日時：2010/11/13 22:57

No.2 回答者： mu2011 回答日時： 2010/11/12 12:20

ワークシート関数＜=LEFT(セル,10)＞でできる事をＶＢＡで行いたい意図が良く分かりませんが一例です。

Sub sample()
For i = 3 To Cells(Rows.Count, "B").End(xlUp).Row
Cells(i, "C").Formula = "=LEFT(B" & i & ",10)"
Next
End Sub

この回答へのお礼

ありがとうございました。
参考にさせていただきました。

お礼日時：2010/11/13 22:57