ｴｸｾﾙVBAﾏｸﾛでCELLS･行列関係を教えてください｡
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
などと入力されるようにしたいのです｡
どうかよろしくお願いいたします｡
ﾍﾞｽﾄｱﾝｻｰ