42列にある、画像番号を把握して、それらに文字をつけ、
1列目の2行~16行まで数字を打ち込みたいと思います。
どこがおかしいでしょうか?
2,42番地には、130326100.jpgなどが入っています。
Sub テスト()
Dim k1 As Long
Dim k2 As String
Dim r As Long
k2 = InputBox("英文字2文字", Title:="英文字2文字を入れてください", Default:="")
k1=Replace(Cells(2, 42).Value, ".jpg", "")
For r = 2 To 16
‘次の行でエラーがでます。
Cells(r, 2).Value = k1& k2
k1=k1+1
Next
End Sub
イニシャルをabと入れたとしたら、
A2行から、下に向かって、
130326100ab
130326101ab
130326102ab
・・
130326115ab
などと入力されるようにしたいのです。
どうかよろしくお願いいたします。
Cells(r, 2).Value = k1& k2
って
Cells(r, 2).Value = k1 & k2
というように k1と&の間に スペースを入れて 実行していますか?
びっくりしました。(というか基礎がないですね)おっしゃるとおりで、すべて解決しました。今回も誠にありがとうございました!
2013/03/26 19:34:11