数字の抽出

質問

B列の3行目セル左から10桁目～15桁目までの数字を抽出し、その値をC列に記入　ですが、処理終了に時間が掛かっているようです。
Dim k As Long
For k = 3 To Range("B65536").End(xlDown).Row
Range( C" & k).Value = Mid(Range(B" & k),10,6)
Next k

ご教授お願い致します。
また、Cells(ｋ,1)を使った方法も教えて頂けますと助かります。

回答No.1

kmetu · ベストアンサー

今の状態では65536行まで実行してるから時間がかかるのだと思います。
Range("B65536").End(xlDown).Row
↓
Range("B65536").End(xlUp).Row
ですよ。
Cellsの使い方とは以下のようなことですか？
Cells(k, "C") = Mid(Cells(k, "B"), 10, 6）

お礼

回答有難う御座います。
初歩的ミスでした。
Cellsの使い方も参考になりました。