エクセル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

などと入力されるようにしたいのです。

どうかよろしくお願いいたします。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/03/26 19:09:18
  • 終了:2013/03/26 19:34:24

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13537ベストアンサー獲得回数11982013/03/26 19:17:07

ポイント100pt

Cells(r, 2).Value = k1& k2

って

Cells(r, 2).Value = k1 & k2

というように k1と&の間に スペースを入れて 実行していますか?

id:naranara19

びっくりしました。(というか基礎がないですね)おっしゃるとおりで、すべて解決しました。今回も誠にありがとうございました!

2013/03/26 19:34:11

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません