特定の桁数を抽出

質問

教えてください。

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

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

条件としては、

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

です。

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

回答No.1

tom04 · ベストアンサー

こんばんは！
画像の配置とは若干異なり、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

お礼

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

回答No.2

mu2011

ワークシート関数＜=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

お礼

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